Zeile entleeren

Forumthread: Zeile entleeren
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Zeile entleeren

Zeile entleeren

04.09.2004 20:31:50

Erich

Hallo,
in einer Tabelle, ausfüllbar von D5 bis G200 ändert sich die letzte ausgefüllte Zeile ständig. Es kommen immer wieder neue Werte hinzu.
Erscheint in der letzten Zeile in Spalte G der Wert Null, sollen alle Zelleninhalte von B:G der letzten Zeile gelöscht werden.
Wer hilft bitte ?
Gruß Erich Müller

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zeile entleeren

04.09.2004 21:01:39

BerndB
AW: Zeile entleeren

Erich

AW: Zeile entleeren

04.09.2004 21:01:39

BerndB

Hallo Erich,
dieses Makro wird Deine Forderung lösen können:


Sub LetzteBelegteZeileFinden()
Dim lngZeile As Long
Dim intSpalte As Integer
intSpalte = 7 '"G"
lngZeile = ActiveSheet.Cells(65536, intSpalte).End(xlUp).Row
'auf "0" prüfen, wenn ja, Spalte B-G leeren
If Cells(lngZeile, intSpalte).Value = 0 Then
Range(Cells(lngZeile, 2), Cells(lngZeile, intSpalte)).ClearContents
End If
End Sub

Gruß Bernd

AW: Zeile entleeren

Erich

Hallo Bernd,
genau das habe ich gesucht. Danke Dir.
Gruß Erich Müller

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!