|
Hallo !
Wo soll ich Deine Zeile einfügen ?
lg chris58
Private Sub CommandButton3_Click()
Dim StartZeile&
Dim Ws As Worksheet
Set Ws = ActiveSheet
StartZeile = Ws.Cells(3, 1).End(xlUp).Row + 5
HIER - HIER ? Statt
TextBox1 = CDbl(Format(Ws.Cells(StartZeile, 3), "0 ,"""))
Diese Zeile ? - das geht nicht ? da kommt ein Fehler
Int(Ws.Cells(StartZeile, 3)/1000), "0 ,"""))
UserForm1.TextBox1.SetFocus
Ws.Cells(StartZeile + 1, 3) = TextBox3
End Sub
|