Hallo zusammen,
ich hab ein Problem mit meinem Makro. da mein VBA ziemlich bescheiden ist, finde ich den Fehler leider nicht alleine. Wenn das Makro direkt im Modul einer Tabelle steht, läuft es perfekt. Doch sobald ich das Makro aus der Personal.xlsb heraus ausführe kommt es immer zu folgender Fehlermeldung:
Laufzeitfehler '1004': Kann einem Blatt nicht den gleichen Namen geben wie einem anderen Blatt, einer Objektbibliothek....
Hier mal der Code bis zum Abbruch:
Sub sucheAlleTabellen()
Dim objSh As Worksheet, objNew As Worksheet
Dim rng As Range, lngNext As Long, lngCol As Long, LRow As Long
Dim strSearchh As String, strSearchm As String, strSearchg As String, strFirst As String
Dim i As Integer, count As Integer
strSearchh = "hoch"
strSearchm = "mittel"
strSearchg = "gering"
lngNext = 1
Set objNew = ThisWorkbook.Worksheets.Add(before:=ThisWorkbook.Sheets(1))
objNew.Name = "Zusammenfassung" ------ Hier kommt der Abbruch
Wieso bricht der hier ab? Warum läuft das Makro aus der Arbeitsmappe heraus Problemlos? Fragen über Fragen... Kann mir irgendjemand helfen?
Schöne Grüße
Stefan