Makro-Datei ohne VBA und Buttons speichern
Schritt-für-Schritt-Anleitung
Um eine Excel-Datei ohne VBA und Buttons zu speichern, befolge diese Schritte:
-
Erstelle ein neues Makro: Öffne den VBA-Editor (Alt + F11) und erstelle ein neues Modul.
-
Füge den folgenden Code ein:
Sub SpeichernOhneVBA()
Dim varFileName As Variant, objWs As Worksheet, objShp As Shape
' Öffne den Speichern unter Dialog
varFileName = Application.GetSaveAsFilename("Excel Arbeitsmappe ohne VBA (*.xlsx),*.xlsx")
' Überprüfe, ob der Nutzer den Dialog bestätigt hat
If Not varFileName = False Then
' Lösche alle Buttons
For Each objWs In ThisWorkbook.Worksheets
For Each objShp In objWs.Shapes
If objShp.Type = msoFormControl Then objShp.Delete
Next objShp
Next objWs
' Speichere die Datei ohne VBA
ThisWorkbook.SaveAs varFileName, FileFormat:=xlOpenXMLWorkbook
Else
MsgBox "Abbruch durch Nutzer."
End If
End Sub
-
Führe das Makro aus: Gehe zurück zu Excel, drücke Alt + F8, wähle SpeichernOhneVBA und klicke auf "Ausführen".
Häufige Fehler und Lösungen
-
Fehlermeldung bei ThisWorkbook.SaveAs: Stelle sicher, dass der varFileName korrekt gesetzt ist, bevor du speicherst. Der Fehler tritt häufig auf, wenn der Nutzer den Dialog abbricht.
-
Buttons werden nicht gelöscht: Überprüfe, ob die Buttons als msoFormControl deklariert sind. Der Code löscht nur diese Art von Buttons.
-
Datei wird nicht gespeichert: Achte darauf, dass die Datei nicht schreibgeschützt ist oder dass du die richtigen Berechtigungen zum Speichern in dem gewählten Verzeichnis hast.
Alternative Methoden
Wenn du einen Excel Button ohne Makro einfügen möchtest und keine Programmierung verwenden willst, kannst du dies tun, indem du:
- In der Registerkarte "Entwicklertools" auf "Einfügen" klickst.
- Wähle "Formularsteuerelemente" und ziehe einen Button in dein Arbeitsblatt.
- Weise dem Button keine Makros zu, um ihn als normalen Button zu verwenden.
Um eine Excel-Datei ohne Verknüpfungen zu speichern, gehe zu "Datei" > "Speichern unter" und wähle das Format ".xlsx" aus, um sicherzustellen, dass keine VBA-Codes oder Verknüpfungen gespeichert werden.
Praktische Beispiele
-
Beispiel für das Löschen von Buttons:
Sub ButtonsEntfernen()
Dim objShp As Shape
For Each objShp In ActiveSheet.Shapes
If objShp.Type = msoFormControl Then objShp.Delete
Next objShp
End Sub
-
Beispiel für das Speichern ohne Makros:
Sub SpeichernOhneMakros()
ThisWorkbook.SaveAs "C:\DeinPfad\DeineDatei.xlsx", FileFormat:=xlOpenXMLWorkbook
End Sub
Tipps für Profis
-
Nutze das FileDialog-Objekt, um dem Nutzer die Auswahl des Speicherorts und Dateinamens zu ermöglichen. Dies verbessert die Benutzerfreundlichkeit erheblich.
-
Stelle sicher, dass du alle Schaltflächen und Steuerelemente vor dem Speichern entfernst, um sicherzustellen, dass die Datei wirklich ohne VBA gespeichert wird.
-
Verwende den Option Explicit-Befehl, um sicherzustellen, dass alle Variablen deklariert sind und Fehler durch falsche Schreibweisen vermieden werden.
FAQ: Häufige Fragen
1. Wie kann ich einen Excel Button einfügen ohne Makro?
Du kannst einen Button über die Entwicklertools einfügen und ihm keine Aktion zuweisen.
2. Was passiert, wenn ich die Datei nicht als .xlsx speichere?
Wenn du die Datei nicht im .xlsx-Format speicherst, bleiben möglicherweise VBA-Codes und Buttons bestehen.
3. Wie lösche ich alle Buttons in einer Excel-Datei?
Verwende den VBA-Code, um alle msoFormControl-Buttons in deinen Arbeitsblättern zu löschen, wie im Abschnitt "Praktische Beispiele" beschrieben.
4. Kann ich die Datei auch ohne VBA speichern, ohne einen Button zu verwenden?
Ja, du kannst die Datei direkt über das Menü "Datei" > "Speichern unter" speichern, ohne ein Makro zu verwenden.
