zellen löschen in mehreren Tabellen

[Enclave]

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

[Klaus-Dieter]

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

[BoskoBiati]

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......

[RPP63]

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 …