Kleines VBA Problem
05.01.2004 15:27:10
Scrooge
habe leider von VBA keine Ahnung und habe mir aus einigen VBAs etwas zusammengebaut. Hiermit soll man per Tastenkombienationen einen Blatt auf einem bestimmten Pfad abgespeichert werden. Funktioniert astrein, aber nur auf meinem Rechner. Der Netzwerkordner befindet sich aber auf einem anderem Computer.
Sub Speichern()
TBName = InputBox("Blattname:")
If TBName = "" Then Exit Sub
Worksheets.Copy
ChDir "\\Computer1\c\Excel\Rechnungen"
ActiveWorkbook.SaveAs TBName
ActiveWorkbook.Close
End Sub
In der Zeile ChDir habe ich das Problem obwohl ich den Netzwerkordner angegeben habe speichert Excel mir die Datei trotzdem auf meiner Festplatte.
Kann mir jemand helfen ???
Danke Euch
M.f.G.
Marko