Eine Userform zum befüllen von verschiedenen Textboxen

25.01.2026 11:44:18

Frank

Moin,

Das ganze ist für die Cracks hier wahrscheinlich eine Kleinigkeit, ich bin allerdings nur ein "Hobbydarsteller" hier :-) und komme manchmal mit den einfachsten Dingen nicht klar.

Anbei mein Problem :
Ich habe eine Userform1("ufStueckzahlen") mit verschiedenen Textfeldern und Zahlenformaten die gefüllt werden müssen.
Hierfür habe ich eine weitere Userform2("ufZahlenEingabe", mit einer Zahlentastatur ohne viel "SchnickScnack") mit verschiedenen CommandButtons erstellt, die diese Textfelder füllen.
Hierzu benötige ich allerdings jedes mal ein neuen Commandbutton in Userform2 um die entsprechende Textbox in Userform1 zu befüllen.
Wenn ich viele Textboxen zu füllen habe gibt es entsprechend viele CommandButtons und es wird unübersichtlich und viel Aufwand.

Hier meine Fragen :
Kann man das ganze mit einem Code vereinfachen um die Textboxen zu befüllen?
Wieso kann ich das negative rote Zahlenformat nicht direkt übergeben, sondern es geht nur über eine if Funktion?

Als Anlage die Beispielmappe.
https://www.herber.de/bbs/user/180083.xlsm

Die Userform2 öffnet sich beim klicken auf die entsprechende Textbox.

Ich würde mich sehr über eine Lösung freuen.

Liebe Grüße an das Forum

Frank

AW: Eine Userform zum befüllen von verschiedenen Textboxen

25.01.2026 12:23:53

Alwin Weisangler

Hallo,

ist zwar ziemliche Spielerei, aber bitte schön entsprechend geändert.
https://www.herber.de/bbs/user/180084.xlsm

Gruß Uwe

AW: Eine Userform zum befüllen von verschiedenen Textboxen

26.01.2026 00:04:16

Daniel

Hi

wenn du mit einem Button auskommen willst, mache es so:

1. lege im allgemeinen Modul direkt unter Option Explict eine Public-Variable vom Typ "Control" an.
diese Variable ist dann in allen Modulen und Makros bekannt und kann verwendet werden:
dh im Modul "Zahleneingabe"

Option Explicit

Dim TB As Control



Sub NeueWerteanlegen()

ufStueckzahlen.Show

End Sub

2. in den ENTER-Events der Textboxen weist du dann die jeweilige Textbox dieser Variablen zu, bevor du die Userform mit der Tastatur aufrufst:

Private Sub txtPreis_Enter()

    Set TB = txtPreis

    ufZahlenEingabe.Show vbModal

End Sub

für die anderen Textboxen dann analog.

3. im Makro des "Eintragen"-Buttons (du brauchst ja nur noch einen) verwendest du dann diese Variable:

Private Sub btnStueckEintragen_Click()

   TB.Value = Format(CDbl(Ziffereingabe), "#,##0;[Red]-#,##0")

    If Ziffereingabe  0 Then

            TB.ForeColor = RGB(255, 0, 0)

        Else

            TB.ForeColor = RGB(0, 0, 0)

    End If

    Unload Me

End Sub

zu deiner zweiten Frage:
der Text in der Textbox ist einfacher Text ohne Formatierung
wenn du ihn färben willst, musst du die entsprechenden Eigenschaften der Textbox ändern.

Gruß Daniel

AW: Eine Userform zum befüllen von verschiedenen Textboxen

26.01.2026 11:25:06

Frank

Hallo Daniel,

vielen Dank für Deine schnelle Antwort. Sowohl Deine als auch Alwin's Lösung bringen mich weiter.
Vielen Dank

Gruss
Frank

AW: Eine Userform zum befüllen von verschiedenen Textboxen

25.01.2026 22:21:33

Alwin Weisangler

Hallo,

ich habe das mal etwas umgebaut und die Zifferneingabe in eine Klasse gepackt.
https://www.herber.de/bbs/user/180085.xlsm

Gruß Uwe

AW: Eine Userform zum befüllen von verschiedenen Textboxen

26.01.2026 09:37:30

Alwin Weisangler

Hallo,

hier noch ein paar letzte Änderungen von Dingen die so nicht mehr erfordelich sind.
https://www.herber.de/bbs/user/180086.xlsm

Gruß Uwe

AW: Eine Userform zum befüllen von verschiedenen Textboxen

26.01.2026 11:30:53

Frank

Hallo Alwin,

vielen Dank für Deine Mühe. Ist genau das wonach ich gesucht habe.
Es sieht zwar nach Spielerei aus, das weiss ich, aber das ist für meinen Vater (85 Jahre!) der nicht mehr so gut mit der Tastatur ist,
und besser mit Maus und grossen Bildern umgehen kann.
Ich finds gut, dass er sich immer noch mit sowas beschäftigt und seine Zahlen in Excel erfassen möchte.

Nochmals Dir und Daniel vielen Dank

Gruss

Frank

Eine Userform zum befüllen von verschiedenen Textboxen

Forumthread: Eine Userform zum befüllen von verschiedenen Textboxen

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Eine Userform zum befüllen von verschiedenen Textboxen

Forumthread: Eine Userform zum befüllen von verschiedenen Textboxen

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread