Hallo!
Ich möchte gerne mit Klick auf einen Button die Hintergrundfarbe von Zellen in einer Spalte auf transparent zurücksetzen.
Irgendetwas scheine ich falsch gemacht zu haben, vielleicht hat ja jemand von euch eine Idee. Die Daten sind in der Spalte 4 und ab Reihe 2.
Vielen Dank für die Hilfe!
Dies ist mein Code:
Option Explicit
Private Sub cmdloeschen_Click()
Dim lngRow As Long
If MsgBox("Möchtest du wirklich alles löschen?", _
vbYesNo + vbDefaultButton2) = vbNo Then Exit Sub
With ThisWorkbook.Sheets("bundesliga_Spieler")
lngRow = 2
Do While .Cells(lngRow, 4) <> ""
Cells(lngRow, 4).Interior.Color = RGB(0, 0, 0)
lngRow = lngRow + 1
Loop
End With
End Sub
|