Code hilfe
Juergen
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
Anzeige