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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen