Kleines Problem beim schließen der UserBox.
Bis zum Schließen klappt alles, aber dann sagt er :
Laufzeitfehler '13' Typen unverträglich weil TextBox1 leer ist, soll sie auch.
Wie bekomme ich das Schließen trotzdem hin ohne Meldung?
Private Sub CommandButton87_Click()
Unload UserForm1
Set UserForm1 = Nothing
End Sub
Private Sub CommandButton89_Click()
With ThisWorkbook.Sheets("4.1") 'Übergabe der Daten an Excel
If .Range("D63").End(xlUp).Row
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) 'TextBox1_Exit
TextBox3 = "2,5"
With UserForm1
" TextBox2.Value = Format(TextBox1 / TextBox3, "0") [Hier liegt der _
_
Fehler] "
End With
End Sub
Gruß und bleibt GESUNDMike