Microsoft Excel

Herbers Excel/VBA-Archiv

Do...Loop

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

.