Daten kopieren mit Schleife (VBA)
09.09.2003 17:39:12
Martin
ich habe mir ein Makro gebastelt, das in Tabelle1 einen bestimmten Bereich durchläuft und, wenn es einen Wert > 0 findet, die gesamte Reihe in eine andere Tabelle einfügt.
Zumindest sollte es so funktionieren, nur kopiert xl die Daten unregelmässig, mal ja, mal nein!?
Hier das Makro
Sub PrepareMail()
i = Sheets(2).Cells(65536, 1).End(xlUp).Row + 1
Sheets(1).Range("G3").Select
Do Until ActiveCell.Value = "---"
If ActiveCell.Value > 0 Then
Selection.EntireRow.Copy Destination:=Sheets(2).Cells(i, 1)
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
End Sub
Wo liegt mein Fehler? Ist die Art, die ich gewählt habe (mit Do Until) gut oder gibt es da was besseres?
Gruss,
Martin