Hallo Gemeinde
ich habe diesen Code mit dem man Farben Löschen kann. Was muss ich daran ändern damit ich Daten Löschen kann.
Mfg Volker
Sub Termine_Löschen()
Dim Wert As String
'Wert = "TestWert"
If MsgBox("Willst du wirlich alle Termine Löschen ???", vbCritical + vbYesNo) = vbNo Then
'MsgBox "Abbruch", vbOKOnly
Exit Sub
Else
'MsgBox "Hier geht es weiter", vbOKOnly
End If
Range("D3:E33,I3:J33,N3:O33,S3:T33,X3:Y33,AC3:AD33,AH3:AI33,AM3:AN33,AR3:AS33,AW3:AX33,BB3:BC33,BG3:BH33").Select
Range("D3").Activate
Selection.Interior.ColorIndex = xlNone
Range("A1").Select
End Sub