Hallo zusammen,
ich werkel an dem Code aber komme nicht weiter vlt könnt ihr mir ja helfen =)
With Workbooks("Callannahmezahlen_neu.xlsx")
Dim rngcell As Range
Dim wkssheet As Worksheet
wkssheet = "Montag" & "Dienstag" & "Mittwoch"
rngcell = Range("C4:AK27", "C30:I42")
For Each wkssheet In Workbooks("Callannahmezahlen_neu.xlsx").Worksheets
rngcell.ClearContents
Next
End With
Hallo,
da ist so viel falsch, dass man gar nicht weiß, wo man anfangen soll. Der größte Fehler ist es sicher, dass es offenbar für jeden Wochentag ein Tabellenblatt gibt.
Hallo,
versuche es mal so:
Code:
Sub Beispiel_For_Each_Next()
Dim Blatt As Object
For Each Blatt In ActiveWorkbook.Sheets
Range("C4:AK27, C30:I42").ClearContents
Next Blatt
End Sub
Hi,
da wäre ein Grundkurs in VBA sehr sehr notwendig! Der Code ist eine Katastrophe.
z.B.: Jede Tabelle muß einzeln angesprochen werden ("Montag"&"Dienstag" ergibt MontagDienstag!)
Mit for Each werden dann aber alle! Tabellen in der Datei angesprochen.
Ich habe keine Lust jetzt jeden Fehler aufzulisten, aber es wäre sinnvoll, die Office-Hilfe aufzurufen oder in Foren zu googeln, Stichworte: nicht zusammenhängende Zellbereich, Zuweisung eines Bereichs zu einer Variablen, Verwendung von with......
(06.02.2022, 18:24)BoskoBiati schrieb: [ -> ]Stichworte: nicht zusammenhängende Zellbereich, Zuweisung eines Bereichs zu einer Variablen, Verwendung von with......
Einen haste vergessen, BoskoBiati:
Erstellen einer Excel-Vorlage (.xltx)!
Dann kann er sich den Grundkurs in VBA sparen …
Lies Dir mal diese Hilfeseite durch, Enclave …