Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Code hilfe | Herbers Excel-Forum


Betrifft: Code hilfe von: Juergen
Geschrieben am: 29.11.2009 13:36:59

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

  

Betrifft: AW: Code hilfe von: Hajo_Zi
Geschrieben am: 29.11.2009 13:40:11

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?

GrußformelHomepage


  

Betrifft: AW: Code hilfe von: Nepumuk
Geschrieben am: 29.11.2009 13:52:16

Hallo,

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

Gruß
Nepumuk


  

Betrifft: AW: Code hilfe von: Juergen
Geschrieben am: 29.11.2009 14:31:18

Hi



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



jr


  

Betrifft: AW: Code hilfe von: Nepumuk
Geschrieben am: 29.11.2009 15:29:04

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