ClearContents für mehrere Tabellenblätter LF 1004

Hallo zusammen,
ich habe folgendes Problem:
Für ein Sub, das ich geschrieben habe werden Ergebnisse in vier verschiedenen Tabellenblättern _
einer Datei ausgegeben. Deshalb möchte ich am Anfang der Sub die jeweiligen Inhalt der Tabellenblätter löschen, damit immer die "aktuellen" Ergebnisse _
zu sehen sind. Der Ergebnisbereich ist variabel, deshalb die Ansprache mit .End(xlDown) bzw. .End(xlToRight)
Hier mein Code:


Sub testlöschen()
Worksheets("ComStrom").Range(Range("B2"), Range("B2").End(xlDown).End(xlToRight)). _
ClearContents
Worksheets("Reststrom").Range(Range("B2"), Range("B2").End(xlDown).End(xlToRight)). _
ClearContents
Worksheets("ErlösComStrom").Range(Range("B2"), Range("B2").End(xlDown).End(xlToRight)). _
ClearContents
Worksheets("Einspeisung").Range(Range("B2"), Range("B2").End(xlDown)).ClearContents
End Sub

Jede Programmierzeile einzeln funktioniert, aber wenn ich alle vier Tabellenblätter auf einmal löschen möchte, bekomme ich den Laufzeitfehler 1004 (Anwendungs- oder objektdefinierter Fehler).
Zu dem Laufzeitfehler habe ich nur Anmerkungen über verbundene Zellen gefunden, die habe ich in den betreffenden Tabellenblättern definitiv nicht.
Auch, wenn ich vorher über .Select das betreffende Tabellenblatt anspreche, bekomme ich den gleichen Fehler.

Sub testlöschen()
Worksheets("ComStrom").Range(Range("B2"), Range("B2").End(xlDown).End(xlToRight)).Select
Selection.ClearContents
Worksheets("Reststrom").Range(Range("B2"), Range("B2").End(xlDown).End(xlToRight)).Select
Selection.ClearContents
End Sub

Hat jemand eine Idee, woran das liegen könnte?
Schon einmal vielen Dank!
Anna

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub testlöschen() Dim CStrom As Worksheet, RStrom As Worksheet Set CStrom = Worksheets("ComStrom") Set RStrom = Worksheets("RestStrom") 'Lösung über Set Anweisung CStrom.Range(Range("B2"), CStrom.Range("B2").End(xlDown).End(xlToRight)).ClearContents 'Lösung über Worksheet("ComStrom") Worksheets("ComStrom").Range(Range("B2"), Worksheets("ComStrom").Range("B2").End(xlDown). _ End(xlToRight)).ClearContents 'Lösung über With Klammer) With Worksheets("ComStrom") .Range(.Range("B2"), .Range("B2").End(xlDown).End(xlToRight)).ClearContents End With 'hier kommt unweigerlich Laufzeitfehler !! '** wenn das Aktive Blatt "RestStrom" ist !! Worksheets("Reststrom").Range(Range("B2"), Range("B2").End(xlDown).End(xlToRight)). _ ClearContents End Sub

Public Sub Löschen() For Each Worksheet In ThisWorkbook.Worksheets Select Case Worksheet.Name Case "ComStrom", "Reststrom", "ErlösComStrom", "Einspeisung" With Worksheet .Range(.Range("B2"), .Range("B2").End(xlDown).End(xlToRight)).ClearContents End With Case Else End Select Next End Sub

Beliebteste Forumthreads (12 Monate)

ClearContents für mehrere Tabellenblätter LF 1004

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread