|
Hallo zusammen,
ich habe ein kleines Problem mit einem Code in VBA.
Es geht um folgendes:
In einer Zusammenfassung steht ein Kundenname bspw. in Spalte A, darunter natürlich viele weitere.
Für jeden Kundennamen gibt es einen gleichnamigen Reiter. Nun habe ich den Code soweit geschrieben, dass bei klick auf den Kundennamen gleichzeitig auf entsprechenden Reiter gesprungen wird. Wenn ich einen neuen Reiter einfüge muss ich diesen Namen allerdings immer wieder in den Code einfügen, was auf Dauer sehr Zeitaufwendig ist und die Datei auch von anderen Kollegen benutzt wird, die möglichst nichts in den Code schreiben sollen.
Hat jemand eine Idee wie der Code angepasst werden kann, so dass der Name aus Spalte A automatisch mit in den Code einfließt?
Hier einmal der Code, wie er aktuell besteht:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Target.Address(RowAbsolute:=False, ColumnAbsolute:=False)
Case "A2": Worksheets("Kunde2").Select
Case "A3": Worksheets("Kunde1").Select
Case "A4": Worksheets("Kunde3").Select
Case "A5": Worksheets("Kunde4").Select
Case "A6": Worksheets("").Select
Case "A7": Worksheets("").Select
Case "A8": Worksheets("").Select
Case "A9": Worksheets("").Select
Case "A10": Worksheets("").Select
Case "A11": Worksheets("").Select
Case "A12": Worksheets("").Select
Case "A13": Worksheets("").Select
Case "A14": Worksheets("").Select
Case "A15": Worksheets("").Select
Case "A16": Worksheets("").Select
Case "A17": Worksheets("").Select
Case "A18": Worksheets("").Select
Case "A19": Worksheets("").Select
Case "A20": Worksheets("").Select
Case "A21": Worksheets("").Select
Case "A22": Worksheets("").Select
Case "A23": Worksheets("").Select
Case "A24": Worksheets("").Select
Case "A25": Worksheets("").Select
Case "A26": Worksheets("").Select
Case "A27": Worksheets("").Select
Case "A28": Worksheets("").Select
End Select
End Sub
|