Herbers Excel/VBA-Archiv

Do...Loop

• Do...Loop von Dr. vom 07.09.2004 11:05:09
• End If fehlt - von y am 07.09.2004 11:07:10
  • Logo. *kopfpatsch* Danke! oT - von Dr. am 07.09.2004 11:26:31

Betrifft: Do...Loop von: Dr.
Geschrieben am: 07.09.2004 11:05:09

Moin,

warum schreit er mich hier an, dass ein Loop ohne Do vorhanden sei!!??!!?

Do Until ActiveCell.Offset(1, 0).Value = 0
If Left(ActiveCell, 2) = "14" Then
ActiveCell.EntireRow.Delete
ElseIf Left(ActiveCell, 2) = "24" Then
ActiveCell.EntireRow.Delete
ElseIf Left(ActiveCell, 2) = "34" Then
ActiveCell.EntireRow.Delete
ActiveCell.Offset(1, 0).Select
Loop

Betrifft: End If fehlt von: y
Geschrieben am: 07.09.2004 11:07:10

.




Betrifft: Logo. *kopfpatsch* Danke! oT von: Dr.
Geschrieben am: 07.09.2004 11:26:31

.