Textboxen wieder zurück geben
walter
ich habe folgendes Problem.
mit diesem Makro setzte ich das Kennzeichen in die Zelle, leider weiß ich nicht wie ich dies wieder zurückholen kann?
Private Sub TextBox4_Change()
If IsNumeric(TextBox4) = True Then
MsgBox "Nur Text !", vbCritical
TextBox4 = "Text"
TextBox4.SetFocus
With TextBox4 'hier die nächste Textbox setzen dann Set Focus i.o.
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
On Error Resume Next
TextBox4.SetFocus
With TextBox4
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
Else
ActiveCell.Offset(0, 5) = TextBox4 & "-" & TextBox5 & " " & TextBox6
End If
End Sub
so habe ich natürlich das Makro für die Textbox5 + 6.
Nun möchte ich, wenn die UF aufgerufen wird, soll das Kennzeichen so zerlegt
wieder in den Textboxen angezeigt werden.
Hier meine Idee, leider ohne Erfolg.
TextBox4 & "-" & TextBox5 & " " & TextBox6 = ActiveCell.Offset(0, 5)
Gruß Walter