Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
928to932
928to932
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

TextBox Berechnung anstellen

Forumthread: TextBox Berechnung anstellen

TextBox Berechnung anstellen
23.11.2007 15:22:00
Heinz
Hallo Leute
Ich möchte gerne mit TextBox27 den Wert aus Zelle G58 auslesen.
Weiters möchte ich in TextBox28 einen Wert eingeben der mit TextBox 27 multipliziert wird, und diesen Wert dann in Zelle M47 eintragen.
Zb. (Box27) 40,00 x 5 (Box28) = 200,00 ( In Zelle M47 eintragen)
Könnte mir bitte dabei bitte jemand weiterhelfen.
Gruß Heinz

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: TextBox Berechnung anstellen
23.11.2007 15:26:20
Beverly
Hi Heinz,
mal ungetestet
zu Frage 1: TextBox27 = Range("G58")
zu Frage 2: Range("M47") = CDbl(TextBox27) * CDbl(TextBox28")
________________________________________

AW: TextBox Berechnung anstellen
23.11.2007 15:47:00
Heinz
Hallo Karin
Habe jetzt Deinen Code in meinen Code eingefügt.
Leider läuft es nicht nach wunsch. Es wird in TextBox27 kein Wert angezeigt.
Könntest Du mir bitte nochmals weiterhelfen.
Gruß Heinz 

Private Sub cmdUebertragen_Click()
If txtA.Value  "" Then
Cells(3, 2).Value = txtA.Value '[B3]= Name
End If
If txtB.Value  "" Then
Cells(3, 1).Value = txtB.Value '[A3]= PersNummer
End If
If TextBox17.Value  "" Then
Cells(1, 6).Value = TextBox17.Value '[F1]= Beginn Stundenliste
End If
If txtD.Value  "" Then
Cells(101, 2).Value = txtD.Value '[B101]= Montag Arb.Beginn
End If
If TextBox1.Value  "" Then
Cells(101, 3).Value = TextBox1.Value '[C101]= Montag Arb.Ende
End If
If TextBox27 = Range("G58") Then
End If
TextBox28 = Range("M47") = CDbl(TextBox27) * CDbl("TextBox28")
End If
If CheckBox1.Value = True Then '[H101]= Montag bezahlte Pause
Range("H101") = "Ja"
End If
Unload Me
End Sub


Anzeige
AW: TextBox Berechnung anstellen
23.11.2007 16:01:00
Beverly
Hi Heinz,
diese Zeilen sind nicht richtig, du musst sie löschen

If TextBox27 = Range("G58") Then
End If
TextBox28 = Range("M47") = CDbl(TextBox27) * CDbl("TextBox28")
End If


Den Wert aus G58 musst du z.B. im UserForm-Activate an die die TextBox27 übergeben. Das Mutiplikationsergebnis übergibst du dann an Zelle M47 in deinem CommandButton-Code genau auf die Weise, wie ich im vorhergehenden Beitrag gepostet hatte (s. Antwort zu Frage 2)
Bis später,
Karin

Anzeige
AW: TextBox Berechnung anstellen
23.11.2007 16:36:01
Heinz
Hallo Karin
Damit bin ich etwas Überfordert.
Wenn Du bitte Lust und Zeit hättest mir dabei weiterzuhelfen.
Habe die Datei mal hochgeladen.
Danke & Gruß Heinz

Die Datei https://www.herber.de/bbs/user/47992.xls wurde aus Datenschutzgründen gelöscht


Anzeige
AW: TextBox Berechnung anstellen
23.11.2007 17:06:23
Beverly
Hi Heinz,
schau dir das UserForm_Initialize Ereignis und den Code für den CommandButton an - ich habe die neuen Zeilen markiert.
https://www.herber.de/bbs/user/47994.xls
Bis später,
Karin

Anzeige
AW: TextBox Berechnung anstellen
23.11.2007 17:09:31
Heinz
Hallo Karin
Du bist ein ENGEL !!!
Jetzt habe ich wieder etwas dazugelernt.
Recht herzlichen DANK
Heinz
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige