Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 14:59:21
Zellformel in VBA
23.04.2024 14:47:39
Formel SVERWEIS
23.04.2024 14:27:08
Excel - Zellen verketten anhand anderer Spalte
23.04.2024 14:23:45
Gehe zu Tabellenblatt
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
392to396
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
392to396
392to396
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

TextBoxen in UF addieren

TextBoxen in UF addieren
10.03.2004 14:32:50
Siomone
Hallo
Benutze unter anderem folgenden Code, um Werte
aus einer UF-TextBox in ein TB zu übertragen

Private Sub TextBox6_Change()
If ComboBox1.ListIndex = -1 Then Exit Sub
Cells(i, 8).Value = TextBox6.Text
End Sub



Private Sub TextBox7_Change()
If ComboBox1.ListIndex = -1 Then Exit Sub
Cells(i, 9).Value = TextBox7.Text
End Sub

usw.
Soweit alles i.O.!
Wie müsste der Code umgestaltet werden, das
alle TextBoxen (5-28) der UF miteinander
addiert und in TextBox29 der UF der aktuelle
Wert angezeigt wird?
Dieses Ergebnis soll nicht übertragen werden,
sondern stellt eine zusätzliche Kontrolle dar.
Für Eure Mithilfe schon jetzt ein Dankeschön
Mit freundlichen Grüßen
Simone

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: TextBoxen in UF addieren
10.03.2004 14:39:03
K.Rola
Hallo,
so sind die Werte in den Zellen aber Texte, ist das so gewollt?
Soll der Wert in Textbox29 bei jeder Änderung aktualisiert werden
oder erst, nachdem alle Eingaben gemacht wurden?
Gruß K.Rola
AW: TextBoxen in UF addieren
10.03.2004 15:38:08
Simone
Hallo K.Rola,
ja, unabhängig in welcher TextBox nun etwas eingetragen
soll der Wert in TextBox29 sofort aktualliesert werden.
Übrigens werden die Werte nicht als Text, sondern als Zahl
angezeigt!
Dieser Code steht noch vor den anderen.
Wie schon gesagt, es funzt alles einwandfrei, fehlt nur noch
die aktuelle Wertanzeige in Box29.
Möglichst ohne CommandButton, wie Benny freundlicher weise
geschrieben hat.

Private Sub ComboBox1_Click()
i = ComboBox1.ListIndex + 3
TextBox1.Value = Format(Workbooks("ger.xls").Sheets("Tabelle1").Cells(i, 3).Value, "h:mm")
usw.
Beep
TextBox5.Value = Format(Workbooks("ger.xls").Sheets("Tabelle1").Cells(i, 7).Value, "h:mm")
usw.
Range("A22").Value = ComboBox1.ListIndex
Range("A24").Value = i
Range("A26").Value = ComboBox1.Text
Label3.Caption = "Listindex: " & ComboBox1.ListIndex
End Sub

Gruß
Simone
Anzeige
AW: TextBoxen in UF addieren
10.03.2004 16:13:42
k.Rola
Hallo,
überprüf noch die Bummerirung der Textboxen:
Option Explicit

Private Sub TextBox6_Change()
If ComboBox1.ListIndex = -1 Then Exit Sub
Cells(i, 8).Value = TextBox6.Text
Call zSum
End Sub



Private Sub TextBox7_Change()
If ComboBox1.ListIndex = -1 Then Exit Sub
Cells(i, 9).Value = TextBox7.Text
Call zSum
End Sub



Private Sub UserForm_Initialize()
ComboBox1.AddItem "sdbvf,bv"
ComboBox1.AddItem "sdhjhgv"
ComboBox1.ListIndex = 0
End Sub

Sub zSum()
Dim c As Byte, summ As Double
For c = 5 To 28
If Not Controls("Textbox" & c) = "" Then
summ = summ + CDbl(Controls("Textbox" & c))
End If
Next
TextBox29 = summ
End Sub

Gruß K.Rola
Anzeige
Vielen, vielen Dank!
10.03.2004 16:31:51
Simone
.
AW: TextBoxen in UF addieren
10.03.2004 14:51:32
Beni
Hallo Siomone,
mit diesem Code werden die Werte addiert.
Gruss Beni

Private Sub CommandButton1_Click()
Dim intIndex, Summe As Integer
Summe = 0
For intIndex = 5 To 28
Summe = Summe + Controls("TextBox" & CStr(intIndex))
Next
TextBox29 = Summe
End Sub

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige