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

UserForm aufrufen und bearbeiten

Forumthread: UserForm aufrufen und bearbeiten

UserForm aufrufen und bearbeiten
05.12.2004 13:14:45
Hajo
Hallo
Ich bin ein VBA-Anfänger und habe folgendes Anliegen :
Ich habe ein UserForm ( Name "Einzelheiten" ) erstellt mit sechs Textboxen. Wie bekomme ich das UserForm eigentlich aufgerufen und wie mache ich es, dass die Eingaben in den Textboxen auf dem Tabellenblatt "Rechnung" in bestimmte Zellen
( A5, B18, C12, C,16, D11, D24 ) eingetragen werden ?
Ihr seht, absoluter Anfänger, deshalb würde ich mich über Hilfe freuen
Also bis dann
Hajo
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: UserForm aufrufen und bearbeiten
ransi
hallo hajo
die form aufrufen kannst du Z.B. so:

Private Sub CommandButton1_Click()
einzelheiten.Show
End Sub

einzelheiten.show ist der befehl.
den kannst du auch an alle möglichen ereignisse dranhängen.
z.B. auch so:

Private Sub Worksheet_Activate()
einzelheiten.Show
End Sub
einen wert in eine zelle übernehmen geht z.B. so:

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Sheets("rechnungen").[a5] = TextBox1.Text
End Sub

ransi
Anzeige
AW: UserForm aufrufen und bearbeiten
05.12.2004 13:56:24
Hajo
Hallo Ransi
Super deine schnelle Antwort. leider weiß ich nicht wodurch ich denn jetzt das UserrForm
aufrufen kann. Ich habe zwar dein private Sub eingetragen, aber wenn ich auf dem Tabellenblatt Rechnungen bin, was mach ich um dieses Ding aufzurufen ?
Schade wenn man keine Ahung hat, so wie ich !!
Vielen Dank Dietmar
Anzeige
AW: UserForm aufrufen und bearbeiten
ransi
hallo hajo
geh mal ins menue "Anpassen".
dann blendest du die visualbasic symbolleiste ein.
ein click auf das icon mit hammer und schraubenschlüssel.
dann werden dir so allerhand steuerelemente angezeigt.
click mal den commandbutton und zieh ihn dir irgendwo im tabellenblatt auf.
mit doppelclick auf den aufgezogenen commandbutton bist du in der entwicklungsumgebung.
da muss der code vom button rein.
den code von der textbox kriegst du genauso dahin wo er hingehört.
in der entwicklungsumgebung auf die textbox, rechte maus drauf-code anzeigen.
ransi
Anzeige
AW: UserForm aufrufen und bearbeiten
05.12.2004 13:30:26
Hajo_Zi
Hallo Hajo
Einzelheiten.Show
Range("A1")=Textbox1
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.


Anzeige
;
Anzeige

Infobox / Tutorial

UserForm in Excel aufrufen und bearbeiten


Schritt-für-Schritt-Anleitung

Um ein UserForm in Excel aufzurufen und die Eingaben in bestimmte Zellen eines Tabellenblattes zu übertragen, folge diesen Schritten:

  1. Erstellen des UserForms:

    • Öffne den Visual Basic for Applications (VBA) Editor mit ALT + F11.
    • Füge ein neues UserForm hinzu und füge sechs Textboxen hinzu. Nenne das UserForm „Einzelheiten“.
  2. UserForm aufrufen:

    • Füge einen CommandButton in dein Tabellenblatt ein. Klicke mit der rechten Maustaste auf den Button und wähle „Code anzeigen“.
    • Füge den folgenden Code ein, um das UserForm beim Klicken auf den Button anzuzeigen:
      Private Sub CommandButton1_Click()
       Einzelheiten.Show
      End Sub
  3. Daten in die Zellen übertragen:

    • Um die Eingaben der Textboxen in die entsprechenden Zellen des Tabellenblattes „Rechnung“ zu übertragen, kannst du den Code in das UserForm einfügen. Zum Beispiel:

      Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
       Sheets("Rechnung").Range("A5") = TextBox1.Text
      End Sub
      
      Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
       Sheets("Rechnung").Range("B18") = TextBox2.Text
      End Sub
    • Wiederhole diesen Schritt für die anderen Textboxen, um die Werte in die gewünschten Zellen zu übertragen.

Häufige Fehler und Lösungen

  • Fehler: Das UserForm öffnet sich nicht.

    • Lösung: Stelle sicher, dass der Code zum Aufrufen des UserForms korrekt im CommandButton platziert ist.
  • Fehler: Die Daten werden nicht in die Zellen geschrieben.

    • Lösung: Überprüfe, ob die Namen der Textboxen und die Zellen korrekt referenziert sind. Achte auch auf die Groß- und Kleinschreibung.

Alternative Methoden

Wenn du die UserForms nicht über einen Button aufrufen möchtest, kannst du sie auch über andere Ereignisse aktivieren:

  • Worksheet_Activate:
    Private Sub Worksheet_Activate()
      Einzelheiten.Show
    End Sub
  • Du kannst auch ein Makro erstellen, das beim Öffnen der Arbeitsmappe automatisch das UserForm anzeigt.

Praktische Beispiele

Hier einige praktische Beispiele, wie du die Werte von mehreren Textboxen auf das Tabellenblatt übertragen kannst:

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Sheets("Rechnung").Range("A5") = TextBox1.Text
End Sub

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Sheets("Rechnung").Range("B18") = TextBox2.Text
End Sub

Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Sheets("Rechnung").Range("C12") = TextBox3.Text
End Sub

Fahre fort, indem du die restlichen Textboxen entsprechend den benötigten Zellen zuweist.


Tipps für Profis

  • Fehlermeldungen vermeiden: Implementiere Fehlerbehandlungsroutinen, um sicherzustellen, dass dein VBA-Code auch bei unerwarteten Eingaben stabil läuft.
  • Benutzerfreundlichkeit: Füge Labels hinzu, die den Benutzer darüber informieren, was in die Textboxen eingegeben werden soll.
  • Datenvalidierung: Implementiere eine einfache Überprüfung der Eingaben, um sicherzustellen, dass der Benutzer gültige Daten eingibt.

FAQ: Häufige Fragen

1. Wie kann ich das UserForm automatisch beim Öffnen der Datei anzeigen? Du kannst das UserForm im Workbook_Open-Ereignis aufrufen:

Private Sub Workbook_Open()
    Einzelheiten.Show
End Sub

2. Welche Excel-Version benötige ich für UserForms? UserForms sind in den meisten Excel-Versionen verfügbar, aber dieses Tutorial basiert auf Excel 2003 SP1. Neuere Versionen unterstützen ebenfalls die gleichen Funktionen mit geringfügigen Anpassungen.

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