habe ein Problem beo dem ich nicht weiterkomme.
Ich möchte in Tabelle 10 einen Button klicken, so dass die Zellen A1:F20 in den Tabellen 1-9 gelöscht werden.
hat da jemand ne Idee ?
Excel gut - VBA fortgeschrittener anfänger.
Gruß Dirk
Sub Dirk()
Dim s As String
Dim sh As Integer
For sh = 1 To 9
With Sheets("Tabelle" & sh)
Range(.Cells(1, 1), .Cells(20, 6)) = ""
End With
Next sh
End Sub
Sub Dirk()
Dim s As String
Dim sh As Integer
For sh = 1 To 9
With Sheets("Tabelle" & sh)
.Range(.Cells(1, 1), .Cells(20, 6)) = ""
End With
Next sh
End Sub
Sub Dirk()
Dim wks As Worksheet
For Each wks In Worksheets
wks.Range("A1:F20").ClearContents
Next
End Sub