Makro Fehler

[elamigo]

Hey Leute,

ich bekomme Folgenden Error bei folgendem Code. Ich verstehe es einfach nicht, in einer anderen Datei mit anderem Pfad geht er.

Hab auch versucht über Haltepunkte näher ans Ziel zu kommen aber nichts.
Der Pfad ist auch richtig, da über windows kopiert. Hat einer eine Idee? 

Code:

Private Sub CommandButton1_Click()

Dim dateiname As String
Dim tabellenblattname As String


Sheets("Master").Shapes("CommandButton1").Delete
Sheets("Master").OLEObjects("CommandButton2").Object.Enabled = True

dateiname = TextBox2.Text
tabellenblattname = TextBox1.Text
       
Sheets("Master").Name = tabellenblattname

ActiveWorkbook.SaveAs Filename:="\\NNNNN\TTTTTTTTTT\HHHHHHHHHHH\2ZZZZ\BBBBB 2020\XXXXXXAbfragelisten\02_Gesplittete Daten\" & dateiname

Unload UserForm1

End Sub

vorher 2 Stunden gesucht jetzt auf einmal drauf gekommen, das es der Arbeitsmappenschutz war.... oh man


#close

[schauan]

Hallöchen,

auch wenn Du den Fehler selbst gefunden hast nochmal ein Tipp -

ich bekomme Folgenden Error bei folgendem Code. Ich verstehe es einfach nicht, in einer anderen Datei mit anderem Pfad geht er.

Das beschreibt keineswegs den Fehler, im Code ist auch kein Hinweis darauf … Mit detaillierten Angaben fällt die Hilfe leichter, man spart eventuell Rückfragen und es könnte insgesamt auch schneller gehen ...

[WillWissen]

Hi,

Das beschreibt keineswegs den Fehler, im Code ist auch kein Hinweis darauf …

... aber im ScrShot

[schauan]

Hallöchen,

... aber im ScrShot

… wahrscheinlich hat elamigo es schon vor meiner Antwort selbst bemerkt und seinen Beitrag deswegen bearbeitet