Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1600to1604
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
Inhaltsverzeichnis

Text aus Textfeld speichern?

Text aus Textfeld speichern?
07.01.2018 22:25:58
Jürgen
Hallo zusammen,
ich speichere eine Eingabemaske (Texte) in Zellen.
Dabei verwende ich folgenden Code:
Sub DatenEintragen()
Dim lngNext As Long
Dim objCB As Object
Dim strTmp As String
lngNext = Application.max(3, Cells(Rows.Count, 1).End(xlUp).Row + 1)
Cells(lngNext, 1) = TextBox7.text
Cells(lngNext, 2) = "Datum: " & TextBox1.text & vbCrLf & _
"Zeit: " & TextBox2.text & vbCrLf & _
"Ort: " & TextBox3.text & vbCrLf & _
"Experimentator: " & TextBox4.text & vbCrLf & _
"Anwesende: " & TextBox5.text & vbCrLf & _
"Frequenz: " & TextBox6.text & vbCrLf & _
"Scan-Steprate: " & TextBox9.text & vbCrLf & _
"Band: " & TextBox8.text
Cells(lngNext, 4) = TextBox10.text
For Each objCB In Me.OLEObjects
If objCB.progID = "Forms.CheckBox.1" Then
If objCB.Object.Value Then
strTmp = strTmp & objCB.Object.Caption & vbCrLf
objCB.Object.Value = False
End If
ElseIf objCB.progID = "Forms.TextBox.1" Then
objCB.Object.Value = ""
End If
Next
If Len(strTmp) Then Cells(lngNext, 3) = Left(strTmp, Len(strTmp) - 1)
Cells(lngNext, 4) = Cells(2, 4).text
Cells(2, 4) = ""
Rows(lngNext).AutoFit
End Sub
Frage:
der Text aus "TextBox10.txt" wird nicht in die Zelle geschrieben wie z.B. bei "TextBox7.txt" obwohl ich den selben Code verwende:
Cells(lngNext, 4) = TextBox10.text
Was mache ich falsch!? Vielen Dank für Hilfe!
Danke & Gruss,
Juergen

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

Betreff
Datum
Anwender
Anzeige
nur als Vermutung ...
07.01.2018 22:37:47
Matthias
Hallo
Nach:
Cells(lngNext, 4) = TextBox10.text

überschreibst Du ja den Wert der Zelle wieder
mit:
Cells(lngNext, 4) = Cells(2, 4).text
Wenn dann noch zufällig lngNext = 2 ist löschst Du dann wieder mit:
Cells(2, 4) = ""
Gruß Matthias
sry, nicht mehr aktualisiert. o.w.T.
07.01.2018 22:41:12
Werner
kein Problem ;-) o.w.T.
07.01.2018 22:45:51
Matthias
AW: Text aus Textfeld speichern?
07.01.2018 22:40:13
Werner
Hallo Juergen,
kann es sein, dass du hier
Cells(lngNext, 4) = TextBox10.text

die Textbox10 in die Zelle schreibst, aber hier
Cells(lngNext, 4) = Cells(2, 4).text

dann mit dem Wert aus Cells(2, 4) wieder überschreibst
Gruß Werner
Anzeige
AW: Danke, gelöst.
07.01.2018 22:55:23
Jürgen
Hallo Werner,
ja so ist es. Habe beide Zeilen auf 'rem' gesetzt und nun klappt's.
Weiss gar nicht warum dass da gestanden hat? Ein Versuchsüberbleibsel anscheinend.
Vielen Dank für die schnelle Hilfe!...auch an Mathias.
Gruss, Juergen
Gerne u. Danke für die Rückmeldung. o.w.T.
07.01.2018 22:57:44
Werner

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige