Problem mit Schleife
07.03.2007 18:02:04
Mister B
Hallo,
ich möcte eine Schleife durch eine Tabelle laufen lassen. Da ich nicht weiß wie viele Einträge vorhanden sind, habe ich es so versucht (Auszug):
Sub SuchListe()
On Error Resume Next
Dim lEnd As Long
Dim Zeile As Long
Dim i As Integer
i = Sheets("Normal").Cells(65536, 1).End(xlUp).Row
Sheets("Schnellsuche").Cells(1, 11) = i
With Sheets("Normal")
For Zeile = 6 To i
Sheets("Schnellsuche").Cells(Zeile - 5, 1) = .Cells(Zeile, "C") & IIf(Not IsEmpty(.Cells(Zeile, "D")), ", _
" _
_
& .Cells(Zeile, "D"), "")
Sheets("Schnellsuche").Cells(Zeile - 5, 2) = .Cells(Zeile, "E")
Sheets("Schnellsuche").Cells(Zeile - 5, 3) = .Cells(Zeile, "F")
Sheets("Schnellsuche").Cells(Zeile - 5, 4) = .Cells(Zeile, "G")
Sheets("Schnellsuche").Cells(Zeile - 5, 5) = .Cells(Zeile, "H")
Sheets("Schnellsuche").Cells(Zeile - 5, 6) = .Cells(Zeile, "I")
Sheets("Schnellsuche").Cells(Zeile - 5, 7) = .Cells(Zeile, "J")
Sheets("Schnellsuche").Cells(Zeile - 5, 8) = .Cells(Zeile, "K")
Sheets("Schnellsuche").Cells(Zeile - 5, 11) = .Cells(Zeile, "B")
Next
End With
End Sub
Leider funktioniert es nicht. Ich vermute, dass es mit der Ermittlung des letzten Eintrages (i) hängt denn wenn ich i durch eine Zahl ersetze funktioniert's.
Wer weiß wo ich falsch abgebohen bin?
Gruß
Martin