Danke im Voraus Gunnar
Die erste Zeile deines Bereiches bitte definieren. Die letzte wird automatisch berechnet.
Gruss Rainer
Falls Code vorhanden wurde er getestet unter Betriebssystem Windows 2000 Pro und Excel Version 2003 Beta 2.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.
Microsoft MVP für Excel
wie folgt...
Option ExplicitPrivate Sub cmdEintragLöschen_Click()
Dim Startzeile%, aktZeile&, Letzte&, Spalte%
Startzeile = 2 '1Zeile enthält evtl.Überschriften
Spalte = 6 'Spalte F
Letzte = ActiveSheet.Cells(Rows.Count, Spalte).End(xlUp).Row
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For aktZeile = Startzeile To Letzte
If aktZeile > Letzte Then Exit Sub
If Cells(aktZeile, Spalte) = 0 Then
'Cells(aktZeile, Spalte).EntireRow.ClearContents 'nur Zellinhalte löschen
Rows(aktZeile).EntireRow.Delete 'Zellen komplett löschen
aktZeile = aktZeile - 1
Letzte = Letzte - 1
End If
Next aktZeile
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub
Code eingefügt mit Syntaxhighlighter 2.1
Ciao MikeS
werde es testen
Gunnar
sieht einfach aus, werde es testen. Danke!
Gunnar
sieht einfach aus, werde es testen. Danke!
Gunnar
danke, werde es testen
Gunnar