For Schleife
29.09.2013 19:39:42
Tina
ich habe dies soweit:
Private Sub Start_Click()
Dim Sh As Worksheet
Set TB = Worksheets("Liste")
r = 2
For Each Sh In Worksheets
For a = 3 To 23
TB.Cells(r, 1) = Sh.Cells(1, 1)
TB.Cells(r, 2) = Sh.Cells(a, 1)
TB.Cells(r, 3) = Sh.Cells(a, 2)
TB.Cells(r, 4) = Sh.Cells(a, 3)
TB.Cells(r, 5) = Sh.Cells(a, 4)
TB.Cells(r, 6) = Sh.Cells(a, 5)
TB.Cells(r, 7) = Sh.Cells(a, 6)
TB.Cells(r, 8) = Sh.Cells(a, 7)
r = r + 1
Next a
a = a + 1
Next Sh
End Sub
jetzt soll da aber noch rein:
wenn dieser Wert "Sh.Cells(a,4)" ist leer dann nimm das nächste "a"
in etwa so:
If Sh.Cells(a,4) = "" then
next a
end if
geht aber nicht, kommt die Fehlermeldung: Next ohne For geht nicht.
Versteh ich nicht, hat jemand einen Tip?
Eigentlich soll eine Liste aus verschiedenen Tabellen erstellt werden, aber wenn die Zelle leer ist soll die nächste Zeile genommen werden.
Ist bestimmt ganz einfach, man sollte nur wissen wie ;o)
LG
Tina
Anzeige