Supportnet / Forum / Tabellenkalkulation
Makro speichern unter mit Laufwerksangabe
Frage
Hallo Forum,
2 Sachen vorweg:
- Bin neu in diesem Forum
- Mache mich z.Zt. mit VBA schlau
Zu meinem Problem:
Ich habe eine Art Lieferschein, dessen aktuelle Nummer erweitert sich bei jedem Öffnen um 1. Gleichzeitig wollte ich gern die aktuelle Lieferscheinnummer als Dateinamen speichern (bis hierher gings). Nun kann ich aber nicht den Laufwerkspfad ändern, der speichert mit das immer auf meiner Platte und nicht auf dem Server. Ich verwende zum speichern einen Command Button mit folgendem Code:
Private Sub CommandButton1_Click()
ActiveWorkbook.SaveAs Range("F6").Value & Range("G6").Value & ".xls"
End Sub
Um die Nummer zu erhöhen den:
Private Sub Workbook_Open()
Dim Test As String, Testzahl As Long
Test = ActiveWorkbook.Names("LfdNummer").Value
Testzahl = Val(WorksheetFunction.Replace(Test, 1, 1, "")) + 1
Test = "=" & Format(Testzahl, "0")
ActiveWorkbook.Names.Add Name:="LfdNummer", RefersToR1C1:=Test
End Sub
Ich krieg das nur nicht mit dem Laufwerkspfad hin!!!
Bitte um Eure Hilfe und danke im voraus
Mick
Antwort 1 von Beverly
Hi Mick,
Bis später,
Karin
ActiveWorkbook.SaveAs "C:\Excel_Test\" & Range("F6").Value & Range("G6").Value & ".xls"
Bis später,
Karin
Antwort 2 von Mixcel
Hallo Karin,
Hallo Forum,
vielen Dank, klappt!!!
Aber noch eine Frage:
Jetzt speichert mit Excel das wie folgt: 2007 35. Wobei 2007 wunderbar, 3 eigentlich ein Index ist der allein stehen sollte (2007 3 5) und die 5 als 005 zählen und gespeichert werden sollte (2007 3 005 als endgültiger Dateiname).
Könnt Ihr mir nochmal helfen??
Danke Mick
Hallo Forum,
vielen Dank, klappt!!!
Aber noch eine Frage:
Jetzt speichert mit Excel das wie folgt: 2007 35. Wobei 2007 wunderbar, 3 eigentlich ein Index ist der allein stehen sollte (2007 3 5) und die 5 als 005 zählen und gespeichert werden sollte (2007 3 005 als endgültiger Dateiname).
Könnt Ihr mir nochmal helfen??
Danke Mick
Antwort 3 von Beverly
Hi Mick,
formatiere die Zahl 3-stellig
Bis später,
Karin
formatiere die Zahl 3-stellig
Format(Range("G6"), "000").ValueBis später,
Karin
Antwort 4 von Mixcel
Hallo Karin,
klappt nicht, da kommt ständig die Fehlermeldung:
Laufzeitfehler 424
Objekt erforderlich
Wahrscheinlich gebe ich den Befehl an der/ den falschen Stellen ein, aber mir gehen die Ideen aus...
Mick
klappt nicht, da kommt ständig die Fehlermeldung:
Laufzeitfehler 424
Objekt erforderlich
Wahrscheinlich gebe ich den Befehl an der/ den falschen Stellen ein, aber mir gehen die Ideen aus...
Mick
Antwort 5 von Mixcel
Hallo nochmal,
jetzt hab ich folgendes probiert:
Der Fehler kommt nun nicht mehr, dafür speichert es mir die Datei unter: 2007 5 5 und nicht 2007 5 005
Verzweifeln ist....
jetzt hab ich folgendes probiert:
Der Fehler kommt nun nicht mehr, dafür speichert es mir die Datei unter: 2007 5 5 und nicht 2007 5 005
Verzweifeln ist....
Antwort 6 von Mixcel
Das habe ich probiert:
Private Sub Form_Load()
Format(Range("G6"), "0000").Value
End Sub
Private Sub Form_Load()
Format(Range("G6"), "0000").Value
End Sub
Antwort 7 von Beverly
Hi,
Bis später,
Karin
ActiveWorkbook.SaveAs "C:\Excel_Test\" & Range("F6").Value & Format(Range("G6").Value, " 000") & ".xls"
Bis später,
Karin