Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
300to304
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
300to304
300to304
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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!

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
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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige