Hallo,
bin auf der Suche nach jemanden der mir mal einen Code für folgende Aufgabe zur Verfügung stellt.
Das meiste von meinem Grundgerüst habe ich mittlerweile alleine fertiggestellt, jedoch komm ich jetzt alleine nicht weiter.
Ich benötige einen Code der folgendes ermöglicht:
Die CSV Datei die im per VBA importiere haben im Grunde alle den selben Aufbau im Bezug auf den Dateinamen.
Nun würde ich es gerne so hinbekommen das der Name beim Speichern mit "ActiveWorkbook.SaveAs Filename:=" wie folgt zusammen setzt.
Windowsbenutzername_GBCVTAACE_cvtXX_Jahr,Monat,Tag,Stunde,Minute,Sekunde und als standard Vorgabe genutzt wird.
z.B.: hanswurst_GBCVTAACE_cvt02_20210212011448
Da sich allerdings bei jeder Datei das _cvtXX_ ändert (und leider nicht in Reihenfolge) möchte ich nun dass sich das Script
vorm Abspeichern mit einer Inputbox-Function meldet, der komplette Dateiname vorgegeben wird und der Benutzer lediglich
das _cvtXX_ angeben/ändern kann und die Datei dann entsprechende der Eingabe gespeichert wird.
Ist sowas machbar? und wenn ja wie muss der Code dazu aussehen?
Den Pfad habe ich so Angegeben:
Dim strPfad As String
strPfad = DefaultPath = Environ("Userprofile") & "\Documents\"
Hoffe es findet sich jemand der Mitleid hat und mir den passende Code dafür zusammenbaut ;-)
VG
bin auf der Suche nach jemanden der mir mal einen Code für folgende Aufgabe zur Verfügung stellt.
Das meiste von meinem Grundgerüst habe ich mittlerweile alleine fertiggestellt, jedoch komm ich jetzt alleine nicht weiter.
Ich benötige einen Code der folgendes ermöglicht:
Die CSV Datei die im per VBA importiere haben im Grunde alle den selben Aufbau im Bezug auf den Dateinamen.
Nun würde ich es gerne so hinbekommen das der Name beim Speichern mit "ActiveWorkbook.SaveAs Filename:=" wie folgt zusammen setzt.
Windowsbenutzername_GBCVTAACE_cvtXX_Jahr,Monat,Tag,Stunde,Minute,Sekunde und als standard Vorgabe genutzt wird.
z.B.: hanswurst_GBCVTAACE_cvt02_20210212011448
Da sich allerdings bei jeder Datei das _cvtXX_ ändert (und leider nicht in Reihenfolge) möchte ich nun dass sich das Script
vorm Abspeichern mit einer Inputbox-Function meldet, der komplette Dateiname vorgegeben wird und der Benutzer lediglich
das _cvtXX_ angeben/ändern kann und die Datei dann entsprechende der Eingabe gespeichert wird.
Ist sowas machbar? und wenn ja wie muss der Code dazu aussehen?
Den Pfad habe ich so Angegeben:
Dim strPfad As String
strPfad = DefaultPath = Environ("Userprofile") & "\Documents\"
Hoffe es findet sich jemand der Mitleid hat und mir den passende Code dafür zusammenbaut ;-)
VG