aktive Zelle Inhalt in Vergleich und Blattwechsel

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("A2:A5")) Is Nothing Then If Target.Value "" Then If IsError(Evaluate(Target.Value & "!A1")) Then MsgBox "Das Blatt " & Target.Value & " ist nicht vorhanden" Exit Sub Else Worksheets(Target.Value).Activate End If End If End If End Sub

Hallo Werner,danke für deine schnelle Antwort ,ich denke das funktioniert auch komfortabel für mich noch bisschen kompliziert...bin ja Anfänger.
Wollte das so als "handbetätigte" Schleife machen, wenn in z.b. dem Zellbereich A2:A5 Zahlen (Code)stehen z.B. 1000,2000,3000.4000 usw . soll mit dem Cursor draufgegangen werden und dann der Button gedrückt werden und es wird auf das jeweilige Blatt mit der Nummer in dem Fall 2000 geschaltet(aktiviert) wenn vorhanden ,das müßte dann im Prinzip für alle Zahlencodes so gehen die man quasi in dem Bereich eingibt ,also ich denke müßte vielleicht eine Schleife bilden ...hmm hast du ne Idee? ganz einfach funktioniert das mit einem Wert ...
Option Explicit

Sub Blatt()
If ActiveCell.Value = 2000 Then
Cells(2, 3).Value = "gehe zu Blatt 2000"
Worksheets("2000").Activate
Else
Cells(2, 3).Value = "Code nicht vorhanden"
End If
End Sub

Hallo Steffen,
ich verstehe zwar nicht wo dann da noch der Vorteil sein soll aber gut.

Public Sub Blatt_wählen()
If IsError(Evaluate(ActiveCell.Value & "!A1")) Then
MsgBox "Das Blatt " & ActiveCell.Value & " ist nicht vorhanden"
Exit Sub
Else
Worksheets(ActiveCell.Value).Activate
End If
End Sub

Eine Alternative, ohne dann noch extra auf einen Button zu klicken, wäre zum Beispiel noch das Doppelklick-Ereignis des Tabellenblattes.
Auch hier gehört der Code ins Codemodul des entsprechenden Tabellenblattes.
Rechtsklick auf den Blattreiter - Code anzeigen - Code rechts ins Codefenster kopieren
Bei Doppelklick im Zellbereich A2 bis A5 wird das entsprechende Blatt gewählt.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Not Intersect(Target, Range("A2:A5")) Is Nothing Then
If Target.Value  "" Then
If IsError(Evaluate(Target.Value & "!A1")) Then
MsgBox "Das Blatt " & Target.Value & " ist nicht vorhanden"
Exit Sub
Else
Worksheets(Target.Value).Activate
End If
End If
End If
End Sub

Gruß Werner

Beliebteste Forumthreads (12 Monate)

aktive Zelle Inhalt in Vergleich und Blattwechsel

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread