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ß WernerDie erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen