IF_Then mit For_Next verbinden!
02.02.2007 10:41:42
Afro
mir fällt nicht ein, was ich hier falsch mache.... Ich will zwei Schleifen miteinander verbinden, aber es klappt nicht....Freue mich über Hilfe!
Fehlermeldung= ElseIf ohne If-Eintrag!!!
Es handelt sich bei Namen von Ordnern und Verzeichnissen (SZ,gs), die ausgewählt werden sollen als Text und in eine Formel kommen sollen.
Aufgabe: Für SZ=1, soll gs hintereinander =1, 2, 3, 4, 5, 6, 7, 8, 10, 11 sein.
Er soll die Werte nicht überschreiben, deshalb ist NEXT i ganz unten.Nach jedem Durchlauf der Schleife folgt ein Eintrag des gesamten Pfades in eine Formel, die die Werte der Pfade(der Zellen) addieren soll.Der Teil für die Formel steht ganz unten und läuft.
Bin über Eure Hinweise sehr froh!Afro
Sub if_then()
Dim i As Integer
Dim x As Variant
dim SZ as integer
SZ = 1
If SZ = 1 Then
For i = 0 To 10
x = Array(1, 2, 3, 4, 5, 6, 7, 8, 10, 11)
gs = x(i)
ElseIf SZ = 2 Then 'HIER STEHT der FEHLER!
For i = 0 To 9
x = Array(1, 2, 3, 4, 5, 6, 7, 8, 10, 11)
gs = x(i)
End If
Next i
End Sub
***********
If Formel = "" Then
Formel = "='" & pfad & "GS" & gs & "'!$" & Bereich
Else
Formel = Formel & " + '" & pfad & "GS" & gs & "'!$" & Bereich
End If
****************