Thema Datum  Von Nutzer Rating
Antwort
Rot VBA von klick auf Zelle zum gleichnamigen Tabellenreiter springen
 06.01.2022 14:21:45 KevM
NotSolved
06.01.2022 14:48:48 Gast36748
NotSolved
06.01.2022 16:32:19 Gast37010
NotSolved
06.01.2022 20:51:59 Gast80334
NotSolved
06.01.2022 20:11:27 xlKing
NotSolved
07.01.2022 09:33:57 KevM
NotSolved
07.01.2022 10:28:27 KevM
NotSolved
08.01.2022 00:03:58 xlKing
NotSolved
10.01.2022 15:08:06 KevM
NotSolved

Ansicht des Beitrags:
Von:
KevM		 Datum:
06.01.2022 14:21:45		 Views:
1101		 Rating:
     
Antwort:
  Ja
Thema:
VBA von klick auf Zelle zum gleichnamigen Tabellenreiter springen

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:

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
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

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot VBA von klick auf Zelle zum gleichnamigen Tabellenreiter springen
 06.01.2022 14:21:45 KevM
NotSolved
06.01.2022 14:48:48 Gast36748
NotSolved
06.01.2022 16:32:19 Gast37010
NotSolved
06.01.2022 20:51:59 Gast80334
NotSolved
06.01.2022 20:11:27 xlKing
NotSolved
07.01.2022 09:33:57 KevM
NotSolved
07.01.2022 10:28:27 KevM
NotSolved
08.01.2022 00:03:58 xlKing
NotSolved
10.01.2022 15:08:06 KevM
NotSolved