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
Zusätzliche Erklärung: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