Spalte Inhalte löschen

Question

Hallo,
ich habe eine Tabelle1 und möchte Via VBA und einem CommandButton in der
Tabelle2 die Inhalte von Spalte A löschen außer die Zelle A1.
Kann mir dort einer helfen?

Gruß Thomas

Answer 1

Hallo Thomas,

versuch es mal so:

Private Sub CommandButton1_Click()
Dim lngLetzte As Long

With ThisWorkbook.Worksheets("Tabelle2")
lngLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row
.Range(.Cells(2, 1), .Cells(lngLetzte, 1)).ClearContents
End With

End Sub

Den Namen der Tabelle2 musst du natürlich auf deine Verhältnisse anpassen.

Gruß

M.O.

Answer 2

Hallo M.O.

danke für die schnelle Antwort, geht Super !!!

Gruß Thomas