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ß