TextBox- inhalte übertragen

Forumthread: TextBox- inhalte übertragen
3 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: TextBox- inhalte übertragen

29.03.2006 15:51:42

Frank

Hallo Forum,
mit dem folgenden Code möchte ich erreichen, wenn die TextBox1 leer ist soll Null in die Sheet übertragen werden ansonsten der Textboxinhalt. Leider wird die Null nicht übertragen. Was ist falsch an diesem Code. Kann mir da jemand helfen?
If UserForm15.TextBox1 = "" Then 'wenn TB leer dann übertrage 0 an Zelle
Variable = 0
Else
Set Frm = Tabelle5
Sheets("Objekte").Activate
Range("d65536").End(xlUp).Offset(1, 0).Select
With Frm
ActiveCell.Value = UserForm15.TextBox1
End With
End If
Vielen Dank!
Gruß

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: TextBox- inhalte übertragen

29.03.2006 16:00:04

Andi
AW: TextBox- inhalte übertragen

29.03.2006 23:47:25

yal
AW: TextBox- inhalte übertragen

30.03.2006 00:02:52

Frank

AW: TextBox- inhalte übertragen

29.03.2006 16:00:04

Andi

Hi,
so wie ich das sehe, schreibst Du die 0 nicht in eine Zelle, sondern in eine Variable namens 'Variable'.
Schönen Gruß,
Andi

AW: TextBox- inhalte übertragen

29.03.2006 23:47:25

yal


Private Sub cmdSendeWert_Click()
ThisWorkbook.Sheets("Objekte").Range("A65000").End(xlUp).Offset(1, 0) = IIf(Me.TextBox1.Value = "", 0, Me.TextBox1.Value)
End Sub