Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Zeilen löschen mit VBA

0 views
Skip to first unread message

Dennis

unread,
Apr 6, 2005, 1:11:01 PM4/6/05
to
Hallo liebe Excel Community,

ich erstelle zur Zeit einen Seminarkalender. Dabei wollte ich einen Button
"Aktualisieren" einbauen, mit dem man alle Veranstaltungen, die bereits
vorüber sind löschen kann.

Ich bin in VBA-Programmierung nicht 100%fit und habs mit bedingter
Formatierung und Aufzeichnen versucht aber das bringt nichts. Mein VBA-Buch
kann ich in die Tonne kloppen. Hat irgendejemand von euch eine Ahnung, wie
man das in VBA programmieren kann?

Das Enddatum ist in Spalte G, das aktuelle in Spalte P. Eigentlich ist das
ja ganz einfach:
Wenn Datum in P > Datum in G dann Zeile löschen.

Aber ich kriegs in VBA einfach nicht hin!

Danke für eure Hilfe!

Herbert Taferner

unread,
Apr 6, 2005, 1:43:24 PM4/6/05
to
Hallo Dennis,

vielleicht so,

prüfen beim aktivieren des Blattes
'Code in die Tabelle
'----------------------------------------
Private Sub Worksheet_Activate()
Dim Lz As Long, i As Long
With ActiveSheet
Lz = .Cells(Rows.Count, "P").End(xlUp).Row
For i = Lz To 1 Step -1
If CDate(.Range("P" & i).Value) > _
CDate(.Range("G" & i).Value) Then
Rows(i).Delete
End If
Next i
End With
End Sub
'-----------------------

mfg Herbert


Dennis

unread,
Apr 7, 2005, 5:57:03 AM4/7/05
to
Noch ein Laufzeitfehler, aber vom Prinzip klappts. Klasse und riesen
Dankeschön!

"Herbert Taferner" schrieb:

0 new messages