Button "Speichern unter" in Excel einfügen
Schritt-für-Schritt-Anleitung
Um einen Button "Speichern unter" in Excel einzufügen, folge diesen Schritten:
-
VBA-Editor öffnen: Drücke ALT + F11, um den VBA-Editor zu öffnen.
-
Neues Modul erstellen: Klicke mit der rechten Maustaste auf "VBAProject (DeinWorkbookName)", gehe zu "Einfügen" und wähle "Modul".
-
Code einfügen: Kopiere den folgenden Code in das Modul:
Sub SpeichernUnter()
Dim varRetVal As Variant
Dim Datname As String
Dim Pfad As String
Pfad = "" ' Verzeichnis, in dem die Datei gespeichert werden soll
Datname = "Referenz-" & Range("B12").Value & ".xlsm"
varRetVal = Application.GetSaveAsFilename( _
InitialFileName:=Pfad & Datname, _
FileFilter:="Microsoft Excel-Dateien (*.xlsm), *.xlsm", _
Title:="Datei speichern unter... ")
If varRetVal = False Then Exit Sub
ActiveWorkbook.SaveAs varRetVal
End Sub
-
Button einfügen: Gehe zurück zu deinem Excel-Blatt. Klicke auf "Entwicklertools" und dann auf "Einfügen". Wähle den Button aus und ziehe ihn auf dein Arbeitsblatt.
-
Makro zuweisen: Klicke mit der rechten Maustaste auf den Button, wähle "Makro zuweisen" und wähle SpeichernUnter.
Jetzt hast du erfolgreich einen Speicher-Button in Excel eingefügt!
Häufige Fehler und Lösungen
Alternative Methoden
Wenn du keinen Button verwenden möchtest, kannst du auch die Entwicklertools aktivieren und die Funktion "Speichern unter" über das Menü einfügen:
- Gehe zu "Entwicklertools" > "Einfügen".
- Wähle ein Steuerelement, z. B. einen Formular-Button.
- Weise das Makro
SpeichernUnter dem Button zu.
Dies ermöglicht es dir, die Funktionalität auch ohne VBA zu nutzen.
Praktische Beispiele
- Beispiel 1: Wenn in Zelle B12 der Nachname "Müller" steht, wird die Datei als
Referenz-Müller.xlsm gespeichert.
- Beispiel 2: Wenn du den Namen in B12 änderst, z. B. auf "Schmidt", wird die Datei als
Referenz-Schmidt.xlsm gespeichert, sobald du den Button drückst.
Tipps für Profis
-
Fehlerbehandlung: Füge Fehlerbehandlung in dein Makro ein, um Benutzer auf mögliche Probleme hinzuweisen. Zum Beispiel:
If varRetVal = False Then
MsgBox "Speichern abgebrochen.", vbExclamation
Exit Sub
End If
-
Button anpassen: Du kannst den Button stilistisch anpassen, um ihn hervorzuheben. Klicke mit der rechten Maustaste auf den Button und wähle "Form formatieren".
FAQ: Häufige Fragen
1. Wie kann ich den Speicherort für die Datei festlegen?
Du kannst den Pfad im VBA-Code anpassen, um die Datei in einem bestimmten Verzeichnis zu speichern.
2. Kann ich den Button auch in Excel 365 verwenden?
Ja, dieser Code funktioniert in Excel 365 sowie in den meisten anderen Versionen, die VBA unterstützen.
3. Was passiert, wenn ich einen bestehenden Dateinamen verwende?
Excel wird dich fragen, ob du die vorhandene Datei überschreiben möchtest.