Löschvorgang für mehrere Tabellen funktioniert nicht

Question

Hallo 

wer von den Experten kann mir bitte helfen?

Habe ein Makro erstellt nach einer Vorlage, doch er löscht nur 1Runde.

Bitte um Hilfe. was könnte hier falsch sein.

Sub meinlöschvorgang  ()

Dim wksTab As Worksheet

For Each wksTab In Worksheets

Select Case wksTab.Name

Case "1Runde", "2Runde", "3Runde"

wksTab.Range("K19:CD127,B19:I127,L11:CD11,KU2:KU25").ClearContents

End Select

Next wksTab

End Sub Gruß Adde

Answer 1

Hi,

der Code ist völlig in Ordnung. Es ist also anzunehmen, dass die Namen der anderen Tabellenblätter nicht mit den im Code festgelegten Namen übereinstimmen - ist vielleicht ein Leerzeichen am Ende, welches man ja optisch nicht erkennen kann.

Bis später, Karin

Answer 2

Hallo Karin,

du hattest Recht. Es war wirklich ein Leerzeichen dahinter. Bereinigt und funktioniert jetz.

Danke für deine Rückmeldung.

Gruß Adde