Daten aus Steuerelementen auslesen und konvertieren
Schritt-für-Schritt-Anleitung
Um die Werte aus Steuerelementen wie Drop-Down-Listen in Excel auszulesen und in Text umzuwandeln, kannst du das folgende VBA-Makro verwenden. Gehe dafür wie folgt vor:
-
Öffne deine Excel-Datei und drücke ALT + F11, um den VBA-Editor zu öffnen.
-
Klicke im Menü auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.
-
Kopiere den folgenden Code in das Modul:
Sub DropdownTexteAuslesen()
'02.01.2010, NoNet
Dim objDropDown As Object
Application.ScreenUpdating = False
For Each objDropDown In ActiveSheet.DropDowns
objDropDown.TopLeftCell.Value = objDropDown.List(objDropDown.Value)
objDropDown.Delete
Next
Application.ScreenUpdating = True
End Sub
-
Schließe den VBA-Editor und kehre zu Excel zurück.
-
Drücke ALT + F8, wähle DropdownTexteAuslesen aus und klicke auf Ausführen.
Nach dem Ausführen des Makros werden die ausgewählten Werte aus den Drop-Down-Listen in die Zellen geschrieben und die Drop-Down-Boxen entfernt.
Häufige Fehler und Lösungen
Alternative Methoden
Falls du keine VBA-Makros verwenden möchtest, kannst du auch die folgenden Methoden ausprobieren:
- Manuelles Kopieren: Du kannst die Werte manuell aus den Drop-Down-Listen kopieren und in die gewünschten Zellen einfügen.
- Formeln verwenden: Eine Formel, die die Werte aus einer Drop-Down-Liste referenziert, kann ebenfalls hilfreich sein, um die Daten in Zellen zu zeigen, ohne die Steuerelemente zu löschen.
Praktische Beispiele
Angenommen, du hast eine Excel-Datei mit einer Drop-Down-Liste in Zelle A1. Wenn der Benutzer eine Auswahl trifft, wird das Makro die Auswahl in Zelle A1 schreiben und die Drop-Down-Box entfernen.
Hier ist ein Beispiel, wie du das Makro anpassen kannst, um weitere Steuerelemente zu berücksichtigen:
Sub DropdownTexteAuslesen()
Dim objDropDown As Object
Application.ScreenUpdating = False
For Each objDropDown In ActiveSheet.DropDowns
objDropDown.TopLeftCell.Value = objDropDown.List(objDropDown.Value)
objDropDown.Delete
Next
Application.ScreenUpdating = True
End Sub
Tipps für Profis
- Kopiere immer eine Sicherungskopie deiner Excel-Datei, bevor du Makros ausführst, um Datenverlust zu vermeiden.
- Teste das Makro zuerst auf einer Testdatei, um sicherzustellen, dass es wie gewünscht funktioniert.
- Du kannst das Makro erweitern, um auch andere Steuerelementtypen wie Listenfelder oder Kombinationsfelder zu berücksichtigen.
FAQ: Häufige Fragen
1. Kann ich das Makro auch in Excel Online verwenden?
Nein, VBA-Makros sind nur in der Desktop-Version von Excel verfügbar.
2. Was passiert mit den Daten, wenn ich die Drop-Down-Boxen lösche?
Die ausgewählten Werte werden in den Zellen gespeichert, bevor die Drop-Down-Boxen entfernt werden. Du verlierst also keine Daten.