Von UserForm soll ein Prozentwert (25%) in das Tabellenblatt ("K55").
Sheets("Center").Range("O55") = ?
"irgendwas mit" Format, "0.00%"Kann mir bitte jemand die Zeile richtig ergänzen?
Gruß
Fred
Sheets("Center").Range("O55") = ?
"irgendwas mit" Format, "0.00%"Sheets("Center").Range("O55") = DeineTextbox / 100
Zielzelle als Prozent formatieren.Private Sub CommandButton1_Click()
If IsNumeric(TextBox1) Then
Sheets("Tabelle1").Cells(1, 1) = TextBox1 / 100
Else
MsgBox "Eintrag ist keine Zahl"
TextBox1 = ""
TextBox1.SetFocus
End If
End Sub
Gruß Werner