Speichern per Makro

Moderator: ModerationP

Speichern per Makro

Beitragvon Fitze.Becker » 13. Mai 2019, 09:52

Hallo Zusammen

Habe ein Makro mit dem im Ordner Sicherung geprüft wir ob der ordner mit dem Jahr (2019) und unter ordner Monat(Mai) vorhanden ist,
diese wenn nicht vorhanden dan angelegt werden und die Datei darin gespeichert wird .

Z.b. C:/.../Sicherung/2019/Mai/Sicherung-mai.xlsm

Das problem ist das die Datie in der das Mackro ist, sich in Mai befindet und das mackro dan die Ordner von mai aus prüft und anlegt,

C:/.../Sicherung/2019/Mai/2019/Mai/Sicherung-mai.xlsm

Wie kann man das mackro änder das, das Mackro aus mai gestartet wird es aber von sicherung aus prüft und gegebenfalls die ordner von da an anleget.
Das Jahr und der Monat änern sich jede Jahr und Monat, dan würde die datei sich im Juni im Verzeichniss

Z.b. C:/.../Sicherung/2019/Juni/Sicherung-Juni.xlsm


Code: Alles auswählen
Private Sub CommandButton1_Click()


    Dim wb As Workbook, ws As Worksheet, NewName As String, rBereich As String

    Dim reakt As Integer
    Dim path As String
    Set wb = ActiveWorkbook

    Dim monat As Variant
    Dim jahr As Variant
    Dim Name As Variant
   
    Dim SpVerz As String
    Dim spverz1 As String
    Dim spverz2 As String
   
   
    Set monat = UserForm2.Label2
    Set jahr = UserForm2.Label3
    Set Name = UserForm2.Label2
   
   
    SpVerz = monat
    spverz1 = jahr
    spverz2 = Name
   
   
    If SpVerz = "" Then Exit Sub
    If spverz1 = "" Then Exit Sub


    If Right(Trim(wb.path & "\" & spverz1), 1) <> "\" Then
            path = Left$(wb.path, Len(wb.path) - 2)
        spverz1 = spverz1 & "\"
    End If

    If Not IsDiskFolder(wb.path & "\" & spverz1) Then
            MkDir wb.path & "\" & spverz1
            ChDir wb.path & "\" & spverz1
        End If


   '++++++++++++++
    If Right(Trim(wb.path & "\" & SpVerz), 1) <> "\" Then
        SpVerz = SpVerz & "\"
    End If

    If Not IsDiskFolder(wb.path & "\" & spverz1 & "\" & SpVerz) Then
            MkDir wb.path & "\" & spverz1 & "\" & SpVerz
            ChDir wb.path & "\" & spverz1 & "\" & SpVerz
       End If


'    If SpVerz = "" Then Exit Sub

ActiveWorkbook.SaveAs wb.path & "\"& "Sicherung-" & spverz2 & ".xlsm"

End Sub
Function IsDiskFolder(ByVal fName As String) As Boolean
    'liefert True zurück, wenn der Ordner existiert

    If (Dir(fName, vbDirectory) <> "") Then
        IsDiskFolder = True
    Else
        IsDiskFolder = False
    End If
   
    If Right(Name, 1) = "\" Then
    IsDiskFolder = Left(Name, Len(Name) - 1)
End If
On Error Resume Next
IsDiskFolder = Left(Name, InStrRev(Name, "\"))


End Function



Bin um jede Hilfe dankbar


Jens
Fitze.Becker
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 9
Registriert: 28. Aug 2014, 17:41

Re: Speichern per Makro

Beitragvon cysu11 » 13. Mai 2019, 19:21

Hallo Jens,

lade bitte deine Beispielmappe hoch, damit wir den Code testen können!

LG
Alexandra
cysu11
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 103
Registriert: 23. Mär 2019, 11:12

Re: Speichern per Makro

Beitragvon Flotter Feger » 13. Mai 2019, 21:18

Hallo,

du darfst nicht wb.path verwenden.

Da muss dann schon "C:\...\Sicherung\" stehen, wenn du aus diesem Ordner heraus arbeiten willst.
VG Sabina

bei mir läuft Win 7 32-Bit - Office 2010 Pro Plus 32-Bit und Office 2016 Pro Plus 32-Bit
Wer auch weiter Hilfe erwartet, sollte sich nicht zu schade sein, ein kurzes Feedback zu geben.
Benutzeravatar
Flotter Feger
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 2263
Registriert: 24. Okt 2016, 16:40

Re: Speichern per Makro

Beitragvon Fitze.Becker » 14. Mai 2019, 05:46

Hallo cysu11

Anbei ist die datei mit der ich arbeite.

MFG Jens
Du hast keine ausreichende Berechtigung, um die Dateianhänge dieses Beitrags anzusehen.
Fitze.Becker
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 9
Registriert: 28. Aug 2014, 17:41

Re: Speichern per Makro

Beitragvon cysu11 » 14. Mai 2019, 12:22

Hallo Jens,

so!

LG
Alexandra
Du hast keine ausreichende Berechtigung, um die Dateianhänge dieses Beitrags anzusehen.
cysu11
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 103
Registriert: 23. Mär 2019, 11:12

Re: Speichern per Makro

Beitragvon Fitze.Becker » 15. Mai 2019, 12:53

Hallo Alexandra

1000 dank für die schnelle antwort, spichern klappt alles super.

Bis auf das wenn die Datei schon vorhanden ist,
und man die frage überschreiben oder nicht mit nein
beantworte dan kommt eine Fehlermeldung.

Mal sehen ob ich das noch gelöst bekomme ansonsten melde ich mich nochmal.

MFG
Jens
Fitze.Becker
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 9
Registriert: 28. Aug 2014, 17:41

Re: Speichern per Makro

Beitragvon cysu11 » 15. Mai 2019, 13:10

Fitze.Becker hat geschrieben:Hallo Alexandra

1000 dank für die schnelle antwort, spichern klappt alles super.

Bis auf das wenn die Datei schon vorhanden ist,
und man die frage überschreiben oder nicht mit nein
beantworte dan kommt eine Fehlermeldung.

Mal sehen ob ich das noch gelöst bekomme ansonsten melde ich mich nochmal.

MFG
Jens


Hi Jens,

was meinst du? Der Code speichert die Datei ohne Nachfrage, selbst wenn diese bereits vorhanden?

LG
Alexandra
cysu11
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 103
Registriert: 23. Mär 2019, 11:12

Re: Speichern per Makro

Beitragvon Fitze.Becker » 15. Mai 2019, 14:39

Hallo Alexandra

Ich meinte wenn ich das makro laufen lasse dan wird die Datei ja in den ordner
2019 und unterordner Mai geseichert,
wenn ich jetzt von da an das Makro nochmal starte wird die Datei ja wieder in den gleichen Ordner Kopiert und da kommt dann die Meldung
Datei mit Name .... ist schon vorhanden sol sie überschrieben werden ,
wenn man da auf nein klickt bekomme ich eine Fehlermeldung.

MFG Jens
Fitze.Becker
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 9
Registriert: 28. Aug 2014, 17:41

Re: Speichern per Makro

Beitragvon cysu11 » 15. Mai 2019, 15:02

Hi Jens,

ich denke die Arbeitsdatei heißt Mai und die Sicherungsdatei heißt "Sicherung Mai", oder verstehe ich was falsch?

LG
Alexandra
cysu11
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 103
Registriert: 23. Mär 2019, 11:12

Re: Speichern per Makro

Beitragvon Fitze.Becker » 16. Mai 2019, 13:42

Hallo Alexandra

Die Namen der Dateien ist wie du Geschrieben hast, nur das bei der Sicherungs Datei noch was dabei gekommen ist ,
damit ich auch Später schneller weis was das genau für eine datei ist, ohne sie zu öffnen.

Das Problem ist wenn ich das Makro nochmal laufen lasse und die Userform2 mit ja beantworte dan wird
die Datei ja wieder in dem selben ordner Kopiert, wo ja schon eine Datei mit dem Nahme der sicherung Datei ist.
dan bekomme ich die Meldung das die Datei ja schon vorhanden ist,

Unbenannt1.GIF

wenn ich da jetzt auf ja drücke wird die datei überschrieben was ja auch in ordnung ist
drück man da aber auf nein bekomme ich eine Fehlermeldung.


Unbenannt2.GIF




MFG Jens
Du hast keine ausreichende Berechtigung, um die Dateianhänge dieses Beitrags anzusehen.
Fitze.Becker
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 9
Registriert: 28. Aug 2014, 17:41

Re: Speichern per Makro

Beitragvon cysu11 » 16. Mai 2019, 14:28

Fitze.Becker hat geschrieben:drück man da aber auf nein bekomme ich eine Fehlermeldung.


Hallo Jens,

mich wundert es, dass du da eine Fehlermeldung bekommst, denn in der Beispieldatei ist gar kein Code hinterlegt für den Button "NEIN"!?

Unabhängig davon, was soll den passieren, wenn du nein drückst?

LG
Alexandra
cysu11
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 103
Registriert: 23. Mär 2019, 11:12

Re: Speichern per Makro

Beitragvon Fitze.Becker » 16. Mai 2019, 17:32

Hallo Alexandra

ich glaube wir reden aneinander vorbei,

Mit dem (Nein Butten) meine ich nicht den von der Userform2,
damit schließe ich nur die Userform2 und da kommt auch keine Fehlermeldung.

Wenn man das Makro das erstemal startet öffnet sich ja die Userform2

Wenn ich da jetzt auf JA drücke speichert er ja die Datei in den Ordner so wie
es ja sein soll, da hast du mir ja super bei geholfen, dafür nochmal danke.

Wenn das Makro jetzt nochmal gestartet wird, wird die Datei ja nochmal in das gleiche
Verzeichnis kopiert wo sie ja schon ist und dann kommt das Fenster welches ich im Bild Unbenannt1 angefügt habe.

Wenn man da jetzt auf ja klickt ist alles in Ordnung,
Drückt man da jetzt aber auf nein, bekomme ich die Fehlermeldung
die ich in Bild 2 Unbenannt2 angefügt habe.


MFG
Jens
Fitze.Becker
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 9
Registriert: 28. Aug 2014, 17:41

Re: Speichern per Makro

Beitragvon Klaus B. Aus E. » 16. Mai 2019, 18:47

Hallo Alexandra
Hallo Jens.

Ja ihr redet aneinander vorbei.

Wenn es bei der Speicher rotine einen Fehler gibt.

Füge doch vor der Speicher Zeile ein

"on Error go to ende"

Und ganz am ende ein

"Ende:

Damit dürfte es keine Fehlermeldung mehr geben.

Oder füge in den Dateinamen einfach die Uhrzeit mit ein
Damit sollt es au h keine doppelte Datei mehr geben.

Gruss
Klaus
Klaus B. Aus E.
 

Re: Speichern per Makro

Beitragvon cysu11 » 17. Mai 2019, 15:08

Hallo Jens,

jetzt habe ich Dich verstanden! Bei mir wird die Datei einfach überschrieben ohne Nachfrage!
Hast du den Code irgendwie geändert?

Amsonsten, kannst du das ja so machen, wie Klaus vorgeschlagen hat!

LG
Alexandra
cysu11
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 103
Registriert: 23. Mär 2019, 11:12

Re: Speichern per Makro

Beitragvon Fitze.Becker » 17. Mai 2019, 17:29

Hallo Alexandra


Habe nur das Speicherverzeichnis angepasst, und um den Fehler bei der Speicherung zu um gehen,
habe ich das ( on error goto ) von Klaus eingebaut .

Ich bedanke mich nochmal bei Dir und Klaus für die Hilfe.

MFG Jens
Fitze.Becker
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 9
Registriert: 28. Aug 2014, 17:41

Nächste

Zurück zu Excel Forum (provisorisch)

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 19 Gäste