Office: Leere Textbox mit Null füllen

Hallo,

Ich habe ein Problem. Ich habe eine UserForm mit mehreren Textboxen, mit denen ich bestimmte Zellen in einem Tabellenblatt ausfülle. Ich möchte nun gerne, dass die Textboxen, in denen kein Wert steht, eine Null (0) als Wert (Textformat) an die entsprechende Zelle übermittelt. Ist dies Möglich?
Ich hoffe meine Beschreibung war annähernd verständlich.
Vielen Dank,
Wiglias

:)

 

Hallo
wenn auch die 0 nicht in der Textbox angezeigt werden soll dann so.
Code:

gruss hary

 

Hi,
was genau meinst du mit "eine Null (0) als Wert (Textformat)"?
Soll in der Zelle der Text "0" stehen oder die Zahl 0?

Für die Zahl 0 hat hary eine Lösung gepostet. Für den Text "0" solltest du
Code:

schreiben.

 

Hi, Vielen Dank für die schnelle Antwort!!!
Ich würde gerne, dass mir die Textbox die Zahl 0 zurück gibt, falls die Box leer ist. Ich habe hier mal meinen Code:

Private Sub cmdDatenspeichern_Click()

Dim LastCellRow As Long
Dim Textboxerl As Control
With Tabelle1

LastCellRow = .Cells.Find("*", , , , xlByRows, xlPrevious).Row + 1

.Cells(LastCellRow, 1).Value = tbName
.Cells(LastCellRow, 2).Value = tbCNCMill
.Cells(LastCellRow, 3).Value = tbEDM
.Cells(LastCellRow, 4).Value = tbWire
.Cells(LastCellRow, 5).Value = tbCNG
.Cells(LastCellRow, 6).Value = tbConGr
.Cells(LastCellRow, 7).Value = tbTurn
.Cells(LastCellRow, 8).Value = tbConM
.Cells(LastCellRow, 9).Value = tbManual
.Cells(LastCellRow, 10).Value = ttDate

End With

For Each Textboxerl In Controls

If Left(Textboxerl.Name, 2) = "tb" Then Textboxerl.Text = ""


Next

End Sub

Das Problem ist, dass ich die Werte weiterverarbeiten möchte. Allerdings wird von manchen immer wieder vergessen, die Textboxen auszufüllen, das heißt es wird kein Wert weitergegeben und ich erhalte damit Fehlermeldungen. Diese könnte ich bereits vermeiden, wenn der Wert 0 weitergegeben wird.

Vielen Dank!

P.s.: Momentan bekomme ich einen Wert als Textformat zurück, ist es auch möglich, Zahlenwerte zurück zu bekommen?