Textbox auswerten
07.08.2015 09:17:16
Dennis
folgende Situation:
Ich habe eine Textbox (Active X Steuerelement) in einem Tabellenblatt liegen. Nebenan ist ein "OK"-Button.
Wird dieser gedrückt, so soll der Wert aus der Textbox ausgelesen werden und in in einer anderen Zelle eingefügt werden.
Leider funktioniert das ganze nicht wie es soll und ich finde meinen Fehler nicht:
Sub Schaltfläche5_Klicken()
Dim a As String
Dim b As Integer
Dim c As Integer
a = Mid(Textbox1.Text, 1, 1)
b = Mid(Textbox1.Text, 2, 2)
c = Asc(a) - 64
Cells(3, 17).End(xlDown).Offset(1, 0).Value = b & c
End Sub
In die Textbox wird eine Zellnummer eingegeben (z.B."H15"). Diese wird dann ausgelesen und in einer anderen Spalte eingefügt.
Liebe Grüße und ein schönes Wochenende,
Dennis
Anzeige