Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
300to304
300to304
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Userform und Listbox

Forumthread: Userform und Listbox

Userform und Listbox
29.08.2003 10:54:42
Armin
Hallo,

ich habe eine Userform mit mehreren Buttons gebaut. Die einzelnen Buttons sollen Euro-Werte enthalten. (z.B. Button 1 = 0.8 Euro, Button 2 = 1 Euro usw.) Ich möchte nun, wenn ich auf dieser Userform den Button 1 drücke, dass dann in der Tabelle 1 im Textfeld 1 der Wert 0,8 erscheint und auch stehen bleibt. Wenn ich nun den nächsten Button drücke, soll dieser Wert zu dem ersten hinzuaddiert werden.

Besten Dank für eure Hilfe!
Anzeige

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

Betreff
Datum
Anwender
Anzeige
Crossposting o.T.
29.08.2003 11:01:37
ChrisL
AW:Na und was geht dir das an?
29.08.2003 17:13:42
Andi
-
gähhhhn
29.08.2003 17:33:35
ChrisL
Anzeige
AW: Userform und Listbox
29.08.2003 11:14:47
Nayus
Hallo,
kopiere folgenden Code in ein Modul:
##################################################
Sub value_add(pVal As Double)
Dim l_val As Double

If Sheets("Sheet1").TextBox1 = "" Then
l_val = pVal
Else
l_val = CDbl(Sheets("Sheet1").TextBox1)
l_val = l_val + pVal
End If
Sheets("Sheet1").TextBox1 = CStr(l_val)
End Sub

##################################################

Falls Dein Arbeitsblatt und/oder die Textbox anders heißen bitte anpassen...

In der Userform setze folgendes in die "Click"-Prozeduren ein...


Private Sub btn1_Click()
value_add 0.8
End Sub




Private Sub btn2_Click()
value_add 1
End Sub




Private Sub btn3_Click()
value_add 1.2
End Sub


Viel Erfolg,
Nayus
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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