Live-Forum - Die aktuellen Beiträge
Datum
Titel
05.10.2025 23:18:01
Summewenns aber mit VBA
05.10.2025 11:43:19
Bed. Format. Spezialfall, Möglich, die Registerfarbe nutzen?
04.10.2025 18:18:42
Anzahl in einer Zelle automatisch ermitteln
04.10.2025 17:44:54
Power Query - Filtern einer Spalte mittels einer Liste
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1988to1992
1988to1992
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Aut. Speichern von Wartungsplänen in bestimmten Pfaden

Forumthread: Aut. Speichern von Wartungsplänen in bestimmten Pfaden

Aut. Speichern von Wartungsplänen in bestimmten Pfaden
09.09.2024 12:32:22
Bastian
Hallo zusammen,

ich bin gerade dabei, in meinem Betrieb einen Wartungsplan für unsere Maschinen zu erstellen.
Es gibt eine Arbeitsmappe pro Maschine, in der die Blätter "Täglich, Wöchentlich, Monatlich" drin sind.
Aktuell öffnen die Mitarbeiter die Vorlage, tragen ihre Daten und Kommentare zu den Wartungsarbeiten ein, und speichern das bearbeitete Dokument dann im geeigneten Ordnerpfad (bspw. G:\PROD\Maschinen\Anlage1\Wartung\Täglich\2024\September\2024_09_09.XLSX).

Ich hätte sehr gerne ein Eingabefenster beim öffnen der Vorlage, welches fragt, welche Wartung man haben möchte (Täglich, wöchentlich, monatlich) - dann das entsprechende Blatt geöffnet wird und im Hintergrund direkt eine Datei mit dem heutigen Datum als Dateiname (Format zweitrangig) im entsprechenden Ordner erstellt wird.
Wenn der Mitarbeiter vor dem Schließen dann auf "speichern" klickt, soll die Vorlage unverändert sein, nur das im richtigen Ordner erstellte Dokument soll die Inhalte vorweisen.

Ist das irgendwie möglich bzw. kann mir jemand bei der Umsetzung helfen? Meine letzten VB Erfahrungen habe ich 2011 in der Realschule gesammelt, mit Makros habe ich bisher nicht arbeiten müssen.

Freundliche Grüße
Anzeige
AW: Aut. Speichern von Wartungsplänen in bestimmten Pfaden
09.09.2024 13:10:05
JoWE
Hallo Bastian,

ja das ist natürlich möglich.
Du solltest zur Vereinfachung Deine Vorlage hier hochladen, von der ich annehme, dass die für alle Maschinen identisch ist?

Gruß
Jochen
AW: Aut. Speichern von Wartungsplänen in bestimmten Pfaden
09.09.2024 13:18:21
Bastian
Hallo JoWe,

die Vorlage ist von Grund auf dieselbe, die Inhalte in den einzelnen Zeilen variieren nur je nach Anlage.

https://www.herber.de/bbs/user/172097.xlsx
Anzeige
AW: Aut. Speichern von Wartungsplänen in bestimmten Pfaden
09.09.2024 13:32:21
JoWE
hmm, also doch mehrere Vorlagen.
Damit ist vor Auswahl der durchzuführenden Wartung also zunächst eine der Maschinen auszuwählen.
Wieviele Maschinen gibt es und wie sind die benannt, damit der Bediener weiß für welche Maschine die Wartung einzutragen ist?
AW: Aut. Speichern von Wartungsplänen in bestimmten Pfaden
09.09.2024 13:40:33
Bastian
Es wird pro Maschine ein eigenes Dokument geben, welches am Desktop vom zugehörigen PC (jede Anlage hat einen) verlinkt sein wird. Die Auswahl der Maschine muss nicht im Dokument stattfinden.
Anzeige
AW: Aut. Speichern von Wartungsplänen in bestimmten Pfaden
09.09.2024 18:49:29
JoWE
Hallo Bastian,
die Speichern-Schaltflächen in den drei Tabellen dieser Arbeitsmappe (xlsm):
https://www.herber.de/bbs/user/172113.xlsm
machen genau das, was Du beschrieben hattest, allerdings erst beim Klick auf den Speichern-Button.
Es werden XLSX-Dateien erstellt und gespeichert und die Original-Arbeitsmappe wird unverändert geschlosen.
Dabei ist es wichtig, das die Ordnerbezeichnungen wie z.B. "G:\PROD\Maschinen\Anlage1\Wartung\Täglich\2024\September\"
auch tatsächlich alle vorhanden sind. Kannst Du das nicht anders/bequemer lösen? Der Teil "2024\September\" ist m.E. nach obsolet,
ist er doch bereits im Dateinamen ersichtlich. Und Du musst dann nicht jeden Monat und einmal im Jahr neue Ordner anlegen
Nun, das ist Deine Sorge und nicht meine Aufgabe.
Gruß
Jochen
Anzeige
AW: Aut. Speichern von Wartungsplänen in bestimmten Pfaden
09.09.2024 19:14:20
Bastian
Guten Abend JoWE,

vielen lieben Dank dafür, das ist eine prima Basis mit der ich weiterarbeiten kann,.
Ich denke alles weitere kann ich entsprechend für mich anpassen - von hier an komme ich zurecht!

Freundliche Grüße
Bastian
Gerne
09.09.2024 19:21:24
JoWE
Ja
AW: Aut. Speichern von Wartungsplänen in bestimmten Pfaden
09.09.2024 19:19:47
Bastian
Jetzt ist mir doch noch was aufgefallen - kannst du mir erklären, was es damit auf sich hat? 

Private Sub Workbook_BeforeClose(Cancel As Boolean)

    ActiveWorkbook.SaveCopyAs ThisWorkbook.path & "\Bastian.xlsx"
Anzeige
AW: Aut. Speichern von Wartungsplänen in bestimmten Pfaden
09.09.2024 19:28:44
JoWE
ups,
den Teil: 
Private Sub Workbook_BeforeClose(Cancel As Boolean)

    ActiveWorkbook.SaveCopyAs ThisWorkbook.path & "\Bastian.xlsx"

End Sub

kannst Du löschen, das war ein untauglicher Versuch :-))

Gruß
Jochen
AW: Aut. Speichern von Wartungsplänen in bestimmten Pfaden
09.09.2024 19:42:19
Bastian
Hab ich raus gemacht, dankeschön :)
Er speichert mir jetzt die Dokumente alle korrekt ab nachdem ich die Pfade erstellt habe (den Dateinamen habe ich mittlerweile auch angepasst), jedoch kriege ich die Meldung "Die Datei kann von Excel nicht geöffnet werden, da das Dateiformat oder die Dateierweiterung ungültig ist" - hast du da evtl. noch Abhilfe?
Anzeige
AW: Aut. Speichern von Wartungsplänen in bestimmten Pfaden
09.09.2024 20:23:03
JoWE
Hi,
ja, das Prob hatte ich auch. Hatte ich schon gelöst aber beim Speichern offenbar übersehen, sorry; hier die Lösung:
Tausche im Modul1 das vorhandenen Makro gegen diesen neuen veränderten Code aus: das Fileformat:=51 ist das entscheidende Moment!!) 
Sub speichern(pErgänzung As String)

  Dim myPath As String

  'myPath = "G:\PROD\Maschinen\Anlage1\Wartung\"

  myPath = "G:\Mein Excel\Herbers Excel-Forum\Bastian 09092024\PROD\Maschinen\Anlage1\Wartung\"

  myPath = myPath & pErgänzung & "\"

  myPath = myPath & Format(Date, "YYYY") & "\" & _

    Format(Date, "MMMM") & "\" & Format(Date, "YYYY") & "_" & Format(Date, "mm") & _

    "_" & Format(Date, "DD") & "_" & Format(Now(), "HHMMSS") & ".xlsx"

  Application.DisplayAlerts = False

  ActiveWorkbook.SaveAs myPath, FileFormat:=51

  Application.DisplayAlerts = True

  ActiveWorkbook.Close savechanges:=False

End Sub

Jochen
Anzeige
AW: Aut. Speichern von Wartungsplänen in bestimmten Pfaden
09.09.2024 20:41:27
JoWE
...da wäre noch eine Kleinigkeit zu verbessern: 
Sub speichern(pErgänzung As String)

  Dim myPath As String

  Dim sh As Long

  For sh = 1 To 3

    Sheets(sh).Shapes(1).Delete

  Next

  myPath = "G:\PROD\Maschinen\Anlage1\Wartung\"

  'myPath = "G:\Mein Excel\Herbers Excel-Forum\Bastian 09092024\PROD\Maschinen\Anlage1\Wartung\"

  myPath = myPath & pErgänzung & "\"

  myPath = myPath & Format(Date, "YYYY") & "\" & _

  Format(Date, "MMMM") & "\" & Format(Date, "YYYY") & "_" & Format(Date, "mm") & _

  "_" & Format(Date, "DD") & "_" & Format(Now(), "HHMMSS") & ".xlsx"

  Application.DisplayAlerts = False

  ActiveWorkbook.SaveAs myPath, FileFormat:=51

  Application.DisplayAlerts = True

  ActiveWorkbook.Close savechanges:=False

End Sub

Tschööö,
Jochen
Anzeige
AW: Aut. Speichern von Wartungsplänen in bestimmten Pfaden
10.09.2024 10:00:26
Bastian
Hallo Jochen,

ich wollte mich nochmal bei dir bedanken.
Mittlerweile habe ich das Skript entsprechend angepasst und mein Chef ist begeistert.
Das Ganze sieht jetzt so aus: 

Sub speichern(pErgänzung As String)

  ActiveSheet.Copy

  Dim myPath As String

  Dim sh As Long

  For sh = 1 To 3

  Next

  myPath = "G:\PROD\Maschinen\M618\Wartung\"

  myPath = myPath & pErgänzung & "\"

  If pErgänzung = "01 Täglich" Then

    myPath = myPath & Format(Date, "YYYY") & "\" & _

  Format(Date, "MM") & " " & Format(Date, "MMMM") & "\" & Format(Date, "ddddd") & ".xlsx"

  ElseIf pErgänzung = "02 Wöchentlich" Then

    myPath = myPath & Format(Date, "YYYY") & "\" & "KW" & _

  Format(Date, "WW") & ".xlsx"

  ElseIf pErgänzung = "03 Monatlich" Then

  myPath = myPath & Format(Date, "YYYY") & "\" & _

  Format(Date, "MM") & " " & Format(Date, "MMMM") & ".xlsx"

  End If

  Application.DisplayAlerts = False

  ActiveSheet.SaveAs myPath, FileFormat:=51

  Application.DisplayAlerts = True

  ActiveWorkbook.Close savechanges:=False

  

End Sub
Anzeige
AW: Gerne
10.09.2024 10:55:46
JoWE
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige