Folgendes Problem:
Möchte mit VB(?) und der Taste z.B.: F9 oder wenn in (AD1)=1 ist , bestimmte Spalten (G5:G49) (I5:I49) (U5:Y49) und Zellen (E3) (T3) den Inhalt wieder leer setzen bzw. den Inhalt löschen.
Danke im voraus.
Gruß Jasper
Sub loeschen()
Dim bigRange As Range
Set bigRange = _
Application.Union(Range("G5:G49"), _
Range("I5:I49"), Range("U5:Y49"), _
Range("E3"), Range("T3"))
bigRange.ClearContents
End Sub
Sub loeschen()
Dim sh1 As Object
Set sh1 = ThisWorkbook.Sheets("Tabelle1")
Dim rng1, rng2, rng3, rng4 As Range
Set rng1 = sh1.Range("I5:I49"): rng1.ClearContents
Set rng2 = sh1.Range("U5:Y49"): rng2.ClearContents
Set rng3 = sh1.Range("E3"): rng3.ClearContents
Set rng4 = sh1.Range("T3"): rng4.ClearContents
End Sub