Microsoft Excel

Herbers Excel/VBA-Archiv

Letzte gefüllte Zelle: Inhalt löschen | Herbers Excel-Forum


Betrifft: Letzte gefüllte Zelle: Inhalt löschen von: Fritz_W
Geschrieben am: 16.02.2012 16:48:20

Hallo VBA-Experten,

wie kann ich per VBA den Inhalt der letzten - nicht leeren - Zelle des Zellbereichs A10:A30 entfernen.

Im Voraus besten Dank für eure Hilfen.

mfg
Fritz

  

Betrifft: AW: Letzte gefüllte Zelle: Inhalt löschen von: Tino
Geschrieben am: 16.02.2012 17:42:10

Hallo,
müsste so gehen.

Sub LeoscheLetztenWert()
Dim lngRow&
With Sheets("Tabelle1") 'Tabelle anpassen
    lngRow = .Cells(31, 1).End(xlUp).Row
    If lngRow > 9 Then
        .Cells(lngRow, 1).ClearContents
    End If
End With
End Sub
Gruß Tino


  

Betrifft: AW: Letzte gefüllte Zelle: Inhalt löschen von: Fritz_W
Geschrieben am: 16.02.2012 17:47:48

Hallo Tino,

fuinktioniert hervorragend, besten Dank für Deine Hilfe.

Viele Grüße
Fritz


  

Betrifft: AW: Letzte gefüllte Zelle: Inhalt löschen von: Christian
Geschrieben am: 16.02.2012 17:53:27

Hi Tino,
ja, wenn die Zelle A31 leer ist, sonst liefert .Cells(31, 1).End(xlUp).Row wie bei .Cells(.Rows.Count, 1).End(xlUp).Row den Wert 1.

mein Vorschlag, solange kein Autofilter oder ähnliches:

Option Explicit

Sub TestIt()
    Dim lngLR&
    
    Const lngLMT As Long = 30
    
    With ThisWorkbook.Sheets("Tabelle1") 'Tabelle anpassen
        lngLR = IIf(Len(.Cells(lngLMT, 1)), lngLMT, .Cells(lngLMT, 1).End(xlUp).Row)
        If lngLR > 9 Then .Cells(lngLR, 1).ClearContents
    End With
End Sub
Gruß
Christian


  

Betrifft: AW: Letzte gefüllte Zelle: Inhalt löschen von: Fritz_W
Geschrieben am: 16.02.2012 18:34:33

Hallo Christian,

prima, auch Dir vielen Dank.

mfg
Fritz


Beiträge aus den Excel-Beispielen zum Thema "Letzte gefüllte Zelle: Inhalt löschen"