Einen Anfang habe ich schon aber weiter weis ich nicht......für eine Hilfe wäre ich dankbar....
Private Sub TextBox13_Change()
Sheets("depot").Activate
Range("e23").Select
End Sub
Private Sub TextBox13_Change()
Sheets("depot").Activate
Range("e23").Select
End Sub