Microsoft Excel

Herbers Excel/VBA-Archiv

Zeile entleeren

Betrifft: Zeile entleeren von: Erich Müller
Geschrieben am: 04.09.2004 18:31:50

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

  


Betrifft: AW: Zeile entleeren von: BerndB
Geschrieben am: 04.09.2004 19:01:39

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


  


Betrifft: AW: Zeile entleeren von: Erich Müller
Geschrieben am: 04.09.2004 19:24:20

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