Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
536to540
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
536to540
536to540
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Bei Klick auf Zelle in Tabelle wechseln

Bei Klick auf Zelle in Tabelle wechseln
26.12.2004 21:55:25
Fritz
Hallo VBA-Spezialisten,
wer kann mir helfen?
In einer Tabelle habe ich im Bereich E4:E11 Werte eingetragen. Ich würde gerne per Makro jeweils bei einem Klick auf die Zelle G der gleichen Zeile prüfen lassen, ob in der Datei ein Tabellenblatt mit dem Namen existiert, der in der Spalte E eingetragen ist und wenn ja sollte in diese Tabelle gewechselt werden.
Also bei Klick auf G4 soll ggf. in die Tabelle gewechselt werden, die die Bezeichnung trägt, die dem Eintrag in der Zelle E4 entspricht usw.
Vielen Dank für eure Unterstützung.
Gruß
Fritz

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bei Klick auf Zelle in Tabelle wechseln
26.12.2004 22:00:24
Josef
Hallo Fritz!
Der Code gehört in das Modul der Tabelle!

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [E4:E11]) Is Nothing Then
On Error Resume Next
Sheets(Target.Text).Activate
On Error GoTo 0
End If
End Sub

Gruß Sepp
AW: Bei Klick auf Zelle in Tabelle wechseln
Fritz
Hallo Sepp,
vielen Dank für die erneute Hilfe.
Gruß
Fritz
Das mit Spalte "G" hab ich überlesen;-( o.T.
26.12.2004 22:18:42
Josef
Gruß Sepp
AW: Das mit Spalte "G" hab ich überlesen;-( o.T.
Fritz
Hallo Sepp,
nicht schlimm, hätte mit der Lösung auch leben können, ansonsten hätt ich mich gemeldet.
Schönen Abend noch
Gruß
Fritz
AW: Bei Klick auf Zelle in Tabelle wechseln
Roland
Hallo Fritz,
wenn du mit Klick in G das Blatt aus dem gleichzeiligen E-Wert haben willst, dann so:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [G4:G11]) Is Nothing Then
On Error Resume Next
Sheets(Target.Offset(0, -2).Value).Activate
On Error GoTo 0
End If
End Sub

Gute Nacht Roland
Anzeige
AW: Bei Klick auf Zelle in Tabelle wechseln
Fritz
Hallo Roland,
so hatte ich mir das eigentlich vorgestellt.
Vielen Dank!
Gruß
Fritz

305 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige