Microsoft Excel

Herbers Excel/VBA-Archiv

Ab leerer Zelle in Spalte A alles unterhalbLöschen

Betrifft: Ab leerer Zelle in Spalte A alles unterhalbLöschen von: Muehli
Geschrieben am: 27.10.2014 09:19:24

Guten Morgen zusammen,

ich habe folgendes Anliegen:

Vorliegende Tabelle:

|SpalteA|SpalteB|SpalteC|
|Text1|Text2|Text3|
|Text4|Text5|Text6|
|.....|.....|.....|
|TextX|TextY|TextZ|

sobald in SpalteA nichts mehr steht (leere Zelle) soll alles unterhalb gelöscht werden (in jeder Spalte).

Kann mir jemand dabei helfen?

Freundliche Grüße
Muehli

  

Betrifft: AW: Ab leerer Zelle in Spalte A alles unterhalbLöschen von: yummi
Geschrieben am: 27.10.2014 09:44:30

Hallo Muehli,

das kannst Du so machen:

Sub loescheZeile()
Dim letzteZeileA As Long
Dim letzteZeile As Long

    letzteZeileA = ActiveSheet.Range("A:A").SpecialCells(xlCellTypeBlanks).Row
    letzteZeile = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
    
    ActiveSheet.Rows(letzteZeileA & ":" & letzteZeile).Delete
End Sub
Gruß
yummi


  

Betrifft: AW: Ab leerer Zelle in Spalte A alles unterhalbLöschen von: Muehli
Geschrieben am: 27.10.2014 09:58:49

Hallo Yummi,

funktioniert prima! Danke!

Gruß
Muehli


 

Beiträge aus den Excel-Beispielen zum Thema "Ab leerer Zelle in Spalte A alles unterhalbLöschen"