Makro bleibt hängen
20.10.2020 20:47:21
Robert
habe schon wieder ein Problem bei welchen ich Eure Hilfe bräuchte. Das Makro soll fast die _ gesamte Arbeitsmappe ausser ein paar Ausnahmen, sie stehen im Makro, Gruppieren. Macht es sogar aber es endet mit der Fehlermeldung Laufzeitfehler 1004, Methode Select ist für das Objekt Worksheet fehlgeschlagen. Wenn ich den Debugmodus öffne, dann ist dieser Satz
Call shBlatt.Select(Replace:=blnReplace)
gelb gekennzeichnet.Ich hänge auch den Text an des kompletten Makros
Option Explicit
Sub Gruppierenallepaker()
Dim shBlatt As Worksheet
Dim blnReplace As Boolean
'Verbotene Blätter
'Trenner ist "/" (für Blattnamen unzulässig)
Const cStrForbidden As String = " Schaltflächen Makro/ Zentral Zeitg.Werbg./ Zentral Gesamt/ _
Zentral ABG Nord/ Liefer Nord/ Zentral ABG Mitte/ Liefer Mitte/ Zentral ABG SO/ Liefer SO/ Zentral L 1 A/ Liefer L1A/ Zentral L 1 B/ Liefer L1B/ Zentral L 2/ Liefer L2/ Zentral L 3/ Liefer L3/ Zentral L 4/ Liefer L4/ Zentral L 5/ Liefer L5/ Zentral L 6 Nord/ Liefer L6 Nord/ Zentral L 6 Süd/ Liefer L6 Süd/ Zentral Selbstabholer/ Liefer Selbstabholer/ Kurieraufl./ Urlaub.Rausl.Woche/ Tabelle1/ Url.Krak.Austrg./ Gewichte Halle/ Gewicht/ Daten.Austräger.Wochenlohn/ Wochenlohn/ Verteilung Ausgabe Kurier/ Tabelle2"
blnReplace = True
For Each shBlatt In ActiveWorkbook.Sheets
If InStr(cStrForbidden, shBlatt.Name) = 0 Then
Call shBlatt.Select(Replace:=blnReplace)
blnReplace = False
End If
Next shBlatt
End Sub
Was kann ich tun um den Fehler zu umgehen. Wie gesagt, die Gruppierung ist trotz der Fehlermeldung vollzogen.Für Eure Mühe danke ich Euch im voraus
LG Robert