Supportnet / Forum / Tabellenkalkulation

Hallo ihr, ich bin gerade dabei mich mit Excel auf Kriegsfuß zu begeben ;-))... Folgendes Problem: In meiner Excel Arbeitsmappe befinden sich mehr als 40 Tabellenblätter, welche alle unterschiedliche Namen haben. Ich möchte nun gerne ein weiteres Tabellenblatt mit einer Suchfunktion einfügen, wo die Möglichkeit gegeben werden soll, nach einem bestehenden Tabellenblatt zu suchen. Ich stelle mir das wie folgt vor, hab aber keine Ahnung wie ich das umsetzen kann (evtl programmiertes Makro???). Also in der Zelle A1 soll der Name eines existierenden Tabellenblattes eingegeben werden. Über einen Button oder eine Grafik soll das Makro aktiviert werden und nach Aktivierung soll das jeweilige Tabellenblatt angezeigt/aufgerufen werden. Da ich selber von Makroprogrammierung leider nur wenig Ahnung habe, wende ich mich an euch. Ist mein Problem irgentwie möglich zu lösen?? Wäre über jede Form von Tips dankbar... Hoffe es bereitet nicht zuviel Arbeit und danke euch im Voraus... Viele Grüße aus dem hohen Norden Matze

Hallo AMtze,

füge in Dein Tabellenblatt einen Button aus der Symbolleiste Steuerelement-Toolbox ein und kopiere in das VBA-Projekt des Tabellenblattes, in das Du den Button einfügt hast, nachfolgendes Makro.

Option Explicit

Private Sub CommandButton1_Click()
On Error Resume Next
Sheets(Range("A1").Value).Activate
End Sub

Ich hoffe, Du kommst klar.

Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf meiner HP in der Rubrik Anleitungen und dort dann in der Anleitungsnummer 2 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.

Bei Fragen melde Dich.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Hallo,

ich nochmal. Mensch da waren die FInger wieder etwas zu schnell. ich meinte natürlich

Hallo Matze


MfG,
Oliver
^{Jeder macht was er will, keiner macht was er soll, aber alle machen mit.}

Hallo Oliver,

der absolute Hammer :-))... du hast auf Anhieb verstanden was ich wollte und es funktioniert einwandfrei!!
Vielen Dank für deine Hilfe...

Gruß Matze

Sag kann man das auch soweit erweitern das wenn ein Tabellenblatt nicht vorhanden ist ne Fehlermeldung kommt??
Wenns nicht geht nicht weiter schlimm... rundet die Sache halt nur ab ;-)

Hallo Matze,

dann sieht das wie folgender VBA-Code aus. Tausche ihn gegen den aus meiner Antwort 1.

Option Explicit

Private Sub CommandButton1_Click()
On Error GoTo ERRORHANDLER
Sheets(Range("A1").Value).Activate
MsgBox "A1"
Exit Sub
ERRORHANDLER:
Select Case Err
Case 9
MsgBox "Das eingetragene Tabellenblatt ist in dieser Datei nicht vorhanden", vbInformation, "Fehler..."
Case Else
MsgBox "Es ist ein unerwarteter Fehler aufgetretren", vbCritical, "unerwarteter Fehler..."
End Select
End Sub

Hier wird wenn es kein Tabellenblatt mit dem Namen aus ZelleA1 gibt, ein Laufzeitfehler 9 produziert. Dieser Laufzeitfehler 9 wird durch Select Err ausgewertet und es erscheint eine Meldung, dass das Blatt nicht vorhanden ist. Bei allen anderen Laufzeitfehlern erscheint eine Meldung, dass ein anderer Fehler aufgetreten ist.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Auch hier wieder herzlichen Dank für deine Hilfe... Makro läuft, gibt keine Probleme und macht mir die Arbeit um einiges leichter... ;-)

• Bilder in die Arbeitsmappe einfügen (verzerrt)
• Arbeitsmappe speichern beim Schließen
• Makro zum Öffnen einer bestimmten Arbeitsmappe
• Excel=Kopie von Formeln von einem altem in einen neuen Excel-Sheet
• Excel=Kopie von Formeln von einer altem in eine neue Arbeitsmappe