Abfrage als Popup zum eintragen von Werten

Forumthread: Abfrage als Popup zum eintragen von Werten

01.11.2005 17:49:43

Werten

Hi Leute,
Ich habe folgendes Problem, ich habe eine Excel Tabelle gemacht https://www.herber.de/bbs/user/28023.xls so so zur Buchhaltung und nun möchte ich wenn ich die Datei öffne jeden Tag eine abfrage nach gewissen Werten von diesem Tag! Spalte D;F;H;J und er soll die Daten dann immer jeweils dort eintragen. Ich hoffe ihr habt so halbwegs mein Problem verstanden und könnt mir helfen!
Danke im Vorraus
MfG
Stefan

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Abfrage als Popup zum eintragen von Werten

01.11.2005 20:01:22

Werten

AW: Abfrage als Popup zum eintragen von Werten

01.11.2005 20:01:22

Werten

hallo, fang so an:
im modul DieseArbeitsmappe folgender Code für den anfang:


Private Sub Workbook_Open()
Dim strEingabe As String
strEingabe = InputBox("eingabe:", "Frage:", 123)
If strEingabe = "" Then Exit Sub
'und jetzt kannste den wert aus strEingabe
'in deine zellen übernehmen
End Sub

damit kannste immer beim öffnen der datei eine ganz einfache abfrage machen.
wie der eingetragene Wert dann in deine gewünschten zellen kommt, bekommste evtl. sogar selber mit ein wenig probieren raus.
mischa richter

Infobox / Tutorial

Abfrage als Popup zum Eintragen von Werten in Excel

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Um eine Abfrage in Excel als Popup zu erstellen, die beim Öffnen der Datei erscheint, kannst Du folgenden VBA-Code verwenden:

Öffne Deine Excel-Datei.
Drücke ALT + F11, um den VBA-Editor zu öffnen.
Im VBA-Editor, suche im Projektfenster nach "DieseArbeitsmappe".

Doppelklicke auf "DieseArbeitsmappe" und füge den folgenden Code ein:

Private Sub Workbook_Open()
    Dim strEingabe As String
    strEingabe = InputBox("Bitte Wert eingeben:", "Wertabfrage:", 123)
    If strEingabe = "" Then Exit Sub
    ' Hier kannst Du den Wert in Deine gewünschten Zellen eintragen
    ThisWorkbook.Sheets("DeinBlatt").Range("D1").Value = strEingabe
End Sub

Schließe den VBA-Editor und speichere die Datei als Excel-Arbeitsmappe mit Makros (*.xlsm).
Öffne die Datei erneut, um die Abfrage als Popup zu sehen.

Häufige Fehler und Lösungen

Fehler: Popup erscheint nicht
Lösung: Stelle sicher, dass die Datei als Makro-fähige Excel-Datei gespeichert wurde (*.xlsm). Überprüfe auch, ob die Makros in Deinen Excel-Einstellungen aktiviert sind.
Fehler: Eingetragene Werte erscheinen nicht in den Zellen
Lösung: Achte darauf, die richtige Blattbezeichnung im Code (ThisWorkbook.Sheets("DeinBlatt")) zu verwenden und die Zielzelle korrekt anzugeben.

Alternative Methoden

Anstelle eines VBA-Popups kannst Du auch Datenüberprüfungen verwenden, um eine Liste von Werten zur Auswahl anzubieten:

Wähle die Zelle aus, in der Du die Abfrage erstellen möchtest.
Gehe zu Daten > Datenüberprüfung.
Wähle Liste und gib die Werte ein oder wähle den Bereich aus, der Deine Werte enthält.

Diese Methode bietet zwar kein Popup, ermöglicht jedoch eine einfache Auswahl.

Praktische Beispiele

Beispiel 1: Du möchtest beim Öffnen der Datei eine Erinnerung für tägliche Einträge erhalten. Nutze den oben genannten VBA-Code und passe die Zielzellen an, um die Werte in den entsprechenden Spalten (D, F, H, J) zu speichern.
Beispiel 2: Erstelle ein Popup-Fenster mit einer spezifischen Frage, z.B. "Wie viel hast Du heute ausgegeben?" und speichere diese Information in der Zelle D2.

Tipps für Profis

Nutze MsgBox in Kombination mit InputBox, um dem Benutzer eine klarere Anleitung zu geben, z.B.:
```
MsgBox "Bitte trage den Wert für heute in das folgende Fenster ein."
```
Experimentiere mit weiteren Eingabefeldern, um mehrere Werte gleichzeitig abzufragen und in unterschiedlichen Zellen zu speichern.
Achte darauf, dass Du die Eingaben validierst, um sicherzustellen, dass nur erlaubte Werte akzeptiert werden.

FAQ: Häufige Fragen

1. Wie kann ich mehrere Popups erstellen?
Du kannst mehrere InputBox-Anfragen nacheinander im Workbook_Open-Modul hinzufügen, um verschiedene Werte abzufragen.

2. Was ist, wenn ich VBA nicht verwenden möchte?
Du kannst auch Formulare erstellen und diese in Excel verwenden, um Eingaben zu sammeln, jedoch ist dies komplexer als eine einfache InputBox.

Beliebteste Forumthreads (12 Monate)

Abfrage als Popup zum eintragen von Werten

Forumthread: Abfrage als Popup zum eintragen von Werten

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Abfrage als Popup zum Eintragen von Werten in Excel

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread