Thema: Code hilfe | Herbers Excel-Forum

Hallo
Mit diesen Code überschreibe ich geänderte Daten aus einer Userform ins Tabellenblatt.
Das Problem ist das die Daten die in der Textbox 176 stehen ( Name und KW) zb. Meier KW 01 )
im Tabellenblatt dann immer nur als 0 angezeigt werden.
Woran kann das liegen?

Private Sub CommandButton1_Click()  ' Daten überschreiben
Dim liMsg As Integer
liMsg = MsgBox("Möchten Sie die geänderten Daten überschreiben?", vbQuestion + vbYesNo,
"Datenänderung")
If liMsg = vbNo Then Exit Sub
If b Is Nothing Then Exit Sub
If TextBox176 = "" Then Exit Sub
b.Value = Val(TextBox176.Value)
b.Offset(, 1).Value = TextBox173
b.Offset(, 2).Value = TextBox178
b.Offset(, 3).Value = TextBox174
b.Offset(, 4).Value = TextBox175
b.Offset(, 5).Value = TextBox38
Ende:
End Sub

Gruss
Juergen

Hallo Jürgen,
Du hast schon im Einzelschritt getestet das Du zu den Zeilen kommst wo es in die Tabelle geschrieben wird?
Der Inhalt der Textboxen ist <>0?

Hallo,
weil "Meier KW 01" beim besten Willen der Val-Funktion nicht in einen nummerischen Wert umgewandelt werden kann.
Gruß
Nepumuk

Hi
ist es möglich im Code was abzuändern damit es funktioniert.
jr

Hallo,
versuch es mal so:
Val(Split(TextBox176.Value, " ")(2))
Wenn da aber nicht genau "Name Kw XX" drin steht läufst du auf einen Fehler. So etwas macht man aber auch nicht. Besser wären 2 Textboxen in denen Text und die Kw getrennt sind.
Gruß
Nepumuk