TextBox mit 2 Funktionen
Andy
ich hab ein kleines Problem mit meinem VBA Makro.
Makro Funktion:
In der Userform sind 3 Textboxen mit einem CommandButton.
Damit geb ich einen Wert mit +/- Toleranz an.
zB. (20km +/- 5km) TextBox1 ist der Sollwert (20), TextBox2 ist der minuswert (5)
und TextBox3 ist der pluswert (5)
jetzt soll die Eingabe in der Zelle (3, 2) in der Form 15/20/25 (min / sw / max) erscheinen.
Es funktioniert auch soweit.
Jetzt zu meinem Problem:
Ich möchte in die TextBox1 ein Wort schreiben zB: Frankfurt und ich die anderen beiden TextBoxen kommt nichts rein. Jetzt sollte Excel mir nur Frankfurt ohne “ / “ in der Zelle (3, 2) schreiben.
Wie schreib ich das in VBA richtig? Das bei Eingabe von Zahlen mit Toleranz gerechnet wird und bei Eingabe von Buchstaben, nur Buchstaben angezeigt werden.
Beispiel Code:
Private Sub CommandButton1_Click()
Cells.NumberFormat = "@"
Dim a As Single
Dim b As Single
Dim c As Single
Dim d As String
a = sw.Value
b = min.Value
c = max.Value
d = a - b & " / " & a & " / " & a + c
Cells(3, 2).Value = d
End Sub
Hoffe mir kann einer helfen .