Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Zelle über eintrag in popup fenster füllen

Zelle über eintrag in popup fenster füllen
26.06.2013 15:49:02
david.a2k
Hallo,
ich habe in Excel folgenden VBA Code (Aussschnitt):
Range("G2").Select
ActiveCell.FormulaR1C1 = "XY"
Selection.AutoFill Destination:=Range("G2:G" & LetzteZeile)
Der Code ermtitelt die Anzahl der gefüllten Zeilen in Spalte A und schreibt diesen Wert in die Variable "Letzte Zeile".
Daraufhin füllt er von Zeile G2 bis G"Letzte Zeile" den Wert XY.
Ich möchte aber dass in Excel ein Popup Fenster aufgeht, in das man statt XY ein beliebiges Wort schreiben kann und dieses dann in die Spalte G geschrieben wird.
Wie müsste ich den Code anpassen?
Danke

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
ActiveCell.FormulaR1C1 = inputbox("Wert für G")
26.06.2013 15:53:59
GuentherH
ActiveCell.FormulaR1C1 = inputbox("Wert für Spalte G", "Eingabe","XY")
Gruß,
Günther

AW: ActiveCell.FormulaR1C1 = inputbox("Wert für G")
26.06.2013 16:41:43
david.a2k
Super,
funktioniert,
danke sehr!
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Zelle über Eintrag in Popup-Fenster füllen


Schritt-für-Schritt-Anleitung

  1. Öffne Excel und gehe zu den Entwicklertools. Wenn du die Entwicklertools nicht siehst, aktiviere sie über die Optionen.

  2. Öffne den Visual Basic for Applications (VBA) Editor. Drücke ALT + F11, um den Editor zu öffnen.

  3. Erstelle ein neues Modul. Klicke im Menü auf Einfügen > Modul.

  4. Füge den folgenden Code ein:

    Sub PopupEingabe()
       Dim LetzteZeile As Long
       LetzteZeile = Cells(Rows.Count, 1).End(xlUp).Row
       Dim Eingabe As String
       Eingabe = InputBox("Wert für Spalte G", "Eingabe", "XY")
       Range("G2").Select
       ActiveCell.FormulaR1C1 = Eingabe
       Selection.AutoFill Destination:=Range("G2:G" & LetzteZeile)
    End Sub
  5. Schließe den VBA-Editor. Gehe zurück zu Excel.

  6. Führe das Makro aus. Gehe zu Entwicklertools > Makros, wähle PopupEingabe und klicke auf Ausführen. Ein Excel Pop-up Fenster erscheint, in dem du deinen gewünschten Wert eingeben kannst.


Häufige Fehler und Lösungen

  • Fehler: Popup-Fenster öffnet sich nicht.

    • Lösung: Stelle sicher, dass die Makros in Excel aktiviert sind. Gehe zu Datei > Optionen > Trust Center und aktiviere die Makros.
  • Fehler: Eingabe wird nicht in die Zelle geschrieben.

    • Lösung: Überprüfe, ob die Zelle G2 tatsächlich ausgewählt ist, bevor du das Makro ausführst.

Alternative Methoden

Falls du kein VBA nutzen möchtest, gibt es auch die Möglichkeit, ein HTML Popup Fenster mit einer Form zu erstellen. Das ist jedoch komplexer und erfordert zusätzliche Kenntnisse in HTML und JavaScript.

Eine einfachere Methode ist, die Funktion Datenüberprüfung in Excel zu verwenden, um eine Dropdown-Liste zu erstellen, aus der der Benutzer auswählen kann.


Praktische Beispiele

Hier ist ein Beispiel, wie du das Makro anpassen kannst, um einen Standardwert anzuzeigen:

Eingabe = InputBox("Wert für Spalte G", "Eingabe", "Standardwert")

Das öffnet ein Excel Pop-up Fenster mit Eingabe, das den Text "Standardwert" vorab in das Eingabefeld einfügt.


Tipps für Profis

  • Nutze die Funktion Application.DisplayAlerts = False, um Benachrichtigungen zu unterdrücken, während das Makro läuft.
  • Um das Benutzererlebnis zu verbessern, kannst du auch eine Fehlerbehandlung einfügen, die sicherstellt, dass die Eingabe in der richtigen Form vorliegt.

FAQ: Häufige Fragen

1. Wie kann ich das Popup-Fenster anpassen?
Du kannst die Texte in der InputBox ändern, um sie benutzerdefinierter zu gestalten.

2. Kann ich mehrere Zellen gleichzeitig füllen?
Ja, passe den Bereich in der AutoFill-Methode entsprechend an, um mehrere Zellen zu füllen.

3. Funktioniert das in allen Excel-Versionen?
Ja, der VBA-Code funktioniert in den meisten modernen Excel-Versionen, solange die Makros aktiviert sind.

Beliebteste Forumthreads (12 Monate)

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