Je nachdem in welcher Tabelle man sich befindet, soll ein Wert aus der Tabelle in der Textbox erscheinen.
If Worksheets("FS").Select = True Then
TextBox1.Value = ThisWorkbook.Worksheets("FS").Range("A1").Value
ElseIf Worksheets("NS").Select = True Then
TextBox1.Value = ThisWorkbook.Worksheets("NS").Range("A1").Value
ElseIf Worksheets("SS").Select = True Then
TextBox1.Value = ThisWorkbook.Worksheets("SS").Range("A1").Value
End if
geht leider nicht :(