PDA

Vollständige Version anzeigen : Makroproblem


BIG_EASY
11.07.2015, 22:02
Guten Abend...

Ich habe vor ein Makro zu erstellen. Da ich davon keine Ahnung habe, war ich so frei und hab mir aus dem Netz mal einen (fast) passenden Code heraus gesucht. Leider lässt sich dieser Code nicht ausführen sondern schmeisst stattdessen folgende Fehlermeldung aus.

BASIC-Laufzeitfehler.
Sub- oder Function-Prozedur nicht definiert.

Hier mal der Code:

Sub Kombi()
Dim varZahl(8) As Variant
Dim loA As Long
Dim loB As Long
Dim loC As Long
Dim loD As Long
Dim loE As Long
Dim loF As Long
Dim loG As Long
Dim loK As Long
Dim loJ As Long
loG = 3
loK = 1
loJ = 5
For loA = 0 To 8
varZahl(loA) = Cells(loA + 1, 2)
Next

For loA = 0 To loG
For loB = loA + 1 To loG + 1
For loC = loB + 1 To loG + 2
For loD = loC + 1 To loG + 3
For loE = loD + 1 To loG + 4
For loF = loE + 1 To 8
Cells(loK, loJ) = varZahl(loA)
loJ = loJ + 1
Cells(loK, loJ) = varZahl(loB)
loJ = loJ + 1
Cells(loK, loJ) = varZahl(loC)
loJ = loJ + 1
Cells(loK, loJ) = varZahl(loD)
loJ = loJ + 1
Cells(loK, loJ) = varZahl(loE)
loJ = loJ + 1
Cells(loK, loJ) = varZahl(loF)
loK = loK + 1
loJ = 5
Next
Next
Next
Next
Next
Next
End Sub

Wäre schön wenn der Code so abgeändert werden könnte, dass er dann auch funktioniert.
Wenn mir dann noch jemand den Code auf 20 anstatt 9 Zahlen erweitern könnte wäre ich wirklich sehr dankbar!!!

Vielleicht liegt der Fehler aber auch gar nicht am Code sondern an mir weil ich vorher noch irgendetwas machen muss, wovon ich nichts weiß.

Vielen Dank schonmal

Gruß BIG_EASY

Hajo_Zi
12.07.2015, 07:58
bei mir läuft er fehlerfrei. Deine Datei sehe ich nicht.

<img src="http://Hajo-Excel.de/images/grusz1.gif" align="middle" height="40" alt="Grußformel"><a href="http://Hajo-Excel.de/index.htm"><img border="0" src="http://Hajo-Excel.de/images/logo_hajo3.gif" align="middle" height="40" alt="Homepage"></a>