Hjælp til makroer i excel

Hej

"Opret"?? - hvor har du den henne?

Hvis du vil oprette en makro uden at indspille den den, skal du (mig bekendt)

- trykke Alt + F11.
- Under view klikke på "project explorer".
- Så kan du højreklikke på "this workbook" og
- indsætte et "module".

Herinde kan du så skrive din makro...

  Sub whatever()

    'Her skrives makroen.

  End sub

Prøv at søge lidt på google efter VBA og excel og se om ikke du finder nogle sider som kan give dig lidt grundlængende viden...

Ellers kan jeg anbefale bogen: Excel 2003 programmering med VBA af Sharon Podlin fra libris.

Håber det kan hjælpe dig lidt.

Opret knappen ligger under Funktioner/Makro/Makroer. Her åbnes et vindue med følgende knapper: Afspil - Annuller - Afspil trinvis - Rediger - Opret - Slet - Indstillinger.

Vedr. dit svar: Når jeg så har indskrevet min Sub.... hvordan gør jeg den så tilgængelig for regnearket ? så jeg kan køre den.

Jeg kan godt få noget af det til at virke, men pludselig kan jeg ikke få flere makroer etil at virke. 
Jeg har nu to som virker, men den tredie vises ikke når jeg vælger Funktioner/Makro/Makroer.
Hvordan kan det være ?

Okay - har fundet din "opret" knap, men ved ikke hvorfor den er ikke kan bruges.

De bør være tilgængelige, hvis de er oprettet med:

Sub navn()
makro
End sub

i et modul i this workbook.
Ligeledes skal den under funktioner/makro/makroer også stå til:
"makroer i: Denne projektmappe eller alle åbne projektmapper.

Kan du sætte koden fra den trejde makro som ikke virker ind her, så kan vi andre evt teste den?

Jeg har oprettet 3 makroer (lidt uden sammenhæng/mening da det kun er test):
--------Denne virker---------------------------------------------
Sub ListFiler()
    Dim Mappe As String
    Dim Undermapper As Boolean

    Mappe = InputBox("Indtast sti til mappe" & vbCrLf _
      & "Fx C:\USA")
        If MsgBox("Skal undermappers indhold også listes?", _
          vbYesNo + vbQuestion) = vbYes Then
            Undermapper = True
        Else
            Undermapper = False
        End If

    Set fs = Application.FileSearch
    With fs
        .LookIn = Mappe
        .SearchSubFolders = Undermapper
        .Filename = "*"
        If .Execute() > 0 Then
            Range("a1").Select
            For i = 1 To .FoundFiles.Count
                ActiveCell.Value = .FoundFiles(i)
                ActiveCell.Offset(1, 0).Select
            Next i
        Else
            MsgBox "Mappen findes ikke, eller den er tom", vbOKOnly + vbExclamation
        End If
    End With
End Sub
--------Denne vises under kør makro, men virker ikke ----------
Sub FlytData()
Set sh1 = Sheets("Ark1") ' hent fra
Set sh2 = Sheets("Ark2") ' kopier til
For Each c In sh1.Range(sh1.Range("A1"), ActiveCell.SpecialCells(xlLastCell))
rk = sh2.Cells(1000, 1).End(xlUp).Row + 1
If c.Interior.ColorIndex = 6 Then
c.Copy sh2.Cells(rk, 1)
End If
Next
End Sub
--------Denne er oprettet som modul 3, mn vises ikke under makroer i regnearket--------

Sub Worksheet_Change(ByVal Target As Range)
Dim tekst, farveNr
    If Not Intersect(Target, Range("A1:IV392")) Is Nothing Then
        tekst = Target.Text
     
Rem Test om celle-indhold er slettet                '<---tilføjelser
        If tekst = "" Then                          '<---
            Target.Interior.ColorIndex = xlNone    '<---
        Else                                        '<---
            farveNr = findFarve(LCase(tekst))
            If farveNr <> -1 Then
                Target.Interior.ColorIndex = farveNr
            End If
        End If                                      '<---
    End If
End Sub
Function findFarve(tekst)
    findFarve = -1
 
    If tekst = "Ferie" Then
        findFarve = 4                      'Grøn
    Else
        If tekst = "Syg" Then
            findFarve = 3                  'Rød
        Else
            If tekst = "Ferie fridag" Then
                findFarve = 6              'Gul
            End If
        End If
    End If
End Function
----------------------------------------------------
-Den første makro virker fint: finder alle stier og filer på en disk
-Den næste makro skal kopiere data fra ark 1 til ark 2
-Den tredie skal ændre baggrundsfarven hvis der står: Ferie, Syg, eller Ferie fridag i en celle.

De første to er "almindelige" makroer. Den trejde skal lægges i det bestemte arks programkode.

Højreklik på fanen nederst i dit regneark og vælg "Vis programkode" og indsæt den her, så bør den køre når du foretager ændringer i arket.

Ang. makro 2, (så er jeg ikke nogen haj), men det ser ud til at den kun skal kopier hvis cellerne er farvet gule. Er det meningen?

ja, det kan jeg egentlig godt se, det med farven.  Det sidste ,med at lægge koden ind under fanen nederst i regnearket har jeg prøvet, men hvordan får jeg den så eksekveret ?

Som jeg læser det, så når der sker en ændring i dit range:
Range("A1:IV392")

Jeg kan ikke forstå hvad du mener. Det er range("A1:IV392) jeg er interesseret i.

Et sidste spørgsmål (tror jeg nok ;-) :
Hvordan kan jeg se, om makroen skal lægges ind under fanenen eller kan skrives direkte i VBA editoren ?

Det er noget med når dit Target (hvad det så end er) krydser dit range.

Hvor har du koden fra? Der fulgte ikke en Userform med, som kunne forklare din Target værdis oprindelse?

De almindelige hedder "sub navn()" eller "public sub navn()" og lægges i et module.

Du kan se at din trejde makro hedder:
Sub Worksheet_Change()

Altså relateret til et bestemt worksheet.

Du har faktsik også en fjerde makro:
Function findFarve(tekst)

Det er en funktion, lige som =Sum() er det.
Noget du enten kan bruge til en makro eller som en formel i selve regnearket.

Makroerne har jeg alle lånt fra indlæg på eksperten.

Jeg er da blevet noget "klogere" på makroer, men mangler nok at få at vide:

Hvordan kalder jeg en makro som læges nd under fanen/Vis programkode ?

Tak for hjælpen.
Jeg fandt en artikel om VBA og Excel her:
http://www.anthony-vba.kefra.com/vba/vbabasic1.htm#Creating_Your_First_Macro