Mit Makro auf bestimmte Zelle springen

Computer: Software & Programmierung Office Software
#1

Hallo im Forum,
ich habe eine Excel Tabelle, in welcher das erste Arbeitsblatt Legende heißt und die folgenden 1980 bis einschließlich 1934.
In diesen Blättern sind Daten und dazugehörige Hyperlinks mit der Bezeichnung SJahr_Nr. also zb. S1980-001 (das S muss zwingend sein).

Jetzt möchte ich in der Mappe Legende 2 Zellen einfügen z.B A12 und B12 in denen das Jahr und die Nummer stehen.
Das Makro soll diese beiden Zellen auslesen und dann auf die Zelle springen, in der der Link steht, indem es das Tabellenblatt (Jahreszahl) öffnet und 

Die Links sind immer in Spalte F.

Habe es schon über die Suchen Funktion probiert, aber das funktionierte nicht.

Bin für jede Hilfe dankbar.

Liebe Grüße, Tommy.

#2

Hallo im Forum,

Hallo Tommy,
warum schreibst du jetzt auf einmal im Brett Texverarbeitung? Es geht doch um ein Excel- (also Tabellenkalkulations) Problem.

ich habe eine Excel Tabelle, in welcher das erste Arbeitsblatt
Legende heißt und die folgenden 1980 bis einschließlich 1934.

Ist so weit klar.

In diesen Blättern sind Daten und dazugehörige Hyperlinks mit
der Bezeichnung SJahr_Nr. also zb. S1980-001 (das S muss
zwingend sein).

Was heißt „Bezeichnung“? Steht der Text S1980-001 in der Zelle? Oder hast du der Zelle diesen Namen gegeben? Oder hat der Hyperlink diese Bezeichnung?

Jetzt möchte ich in der Mappe Legende 2 Zellen einfügen

heißt „einfügen“, dass du in die Zellen A12 und B12 etwas schreibst?

z.B
A12 und B12 in denen das Jahr und die Nummer stehen.
Das Makro soll diese beiden Zellen auslesen und dann auf die
Zelle springen, in der der Link steht, indem es das
Tabellenblatt (Jahreszahl) öffnet

Diese Zelle soll also aktiviert werden?

und 

Die Links sind immer in Spalte F.

Habe es schon über die Suchen Funktion probiert, aber das
funktionierte nicht.

Bin für jede Hilfe dankbar.

Schaun wir mal.

Liebe Grüße, Tommy.

Gruß, Andreas

@MOD: Könntest du das in Tabellenkalkuilations-Brett verschieben?
Danke.

#3

Hallo Andreas,
habe Antrag auf Verschiebung der Anfrage gestellt.

  • S1980-001 bis S1980_xxx sind die Bezeichnungen der Hyperlinks, die in Spalte F stehen
  • die Zellen A12 und B12 sollen nicht eingefügt werden, habe mich falsch ausgedrückt, in ihnen soll das jahr und die entsprechende Nummer des Dokuments stehen
  • nach Ausführund des Makros soll der Cursor auf der Zelle, in der der Link ist stehen, vielleicht geht es auch, dass er in Spalte A der entsprechenden Zeile steht

Für das Zusammenführen der Zellinhalte von A12 und B12 habe ich an den Befehl =A12&"_"&B12 gedacht. Scheitere bei der Suche allerdings daran, dass die Hyperlinkbezeichnung kein Text ist.
Hoffe, dass es ein bisschen klarer geworden ist, was ich möchte.

Vielen Dank im Voraus.

#4

Hallo Andreas,
ich bin es nochmal.

Also, die Suche hat sich etwas vereinfacht.
Die Eingabe in den Zellen A12 und B12 bleibt.
Nun soll im Tabellenblatt des entsprechenden Jahres (A12) der Eintrag (B12) in der Spalte E (Blattnr.) gesucht werden und die Zelle A (Name) aktiviert werden.
Tommy.

#5

Hallo Tommy,

füge mal den Makro in den Codebereich des Blattes „Legende“ ein und lass ihn laufen.
Ist das so, wie du dir es denkst?:

Option Explicit

Sub anzeigen()
 Dim blatt As String
 Dim Nr As String
 Dim ze As Long
 Dim gefunden As Range

 blatt = Range("A12")
 Nr = Range("B12")
 If Not blattVorhanden(blatt) Then
 MsgBox "Blatt " & blatt & " ist nicht vorhanden"
 Exit Sub
 End If
 With Sheets(blatt)
 Set gefunden = .Range("E:E").Find(what:=Nr, LookIn:=xlValues, lookat:=xlWhole)
 If gefunden Is Nothing Then
 MsgBox "Nr. " & Nr & " wurde nicht gefunden"
 Exit Sub
 End If
 .Activate
 .Cells(gefunden.Row, 1).Activate
 End With
End Sub

Function blattVorhanden(blatt As String) As Boolean
 Dim blt As Worksheet

 blattVorhanden = False
 For Each blt In Worksheets
 blattVorhanden = blattVorhanden Or (blt.Name = blatt)
 Next blt
End Function

Gruß, Andreas

#6

Hallo Andreas,
wenn mein Name Excel wäre, würde ich um deine Hand anhalten.

Spaß beiseite,
genau so wollte ich es haben, du bist ein Genie.

Ich danke dir vielmals.

Wenn du hier wohnen würdest, wären wir mal ein Bier trinken gegangen.

VIELEN Dank nochmal!!!

#7

Keine Ahnung, wo du wohnst …
… aber wenn wir statt des Biers auch einen Rotwein trinken können, tun wir das.

Schön, dass der Makro deinen Vorstellungen entspricht.

Gruß, Andreas

#8

Ich wohne in Quedlinburg(Sachsen/Anhalt)

Werde jetzt noch ein Makro erstellen, dass beim Schließen der Tabelle alle Eingaben des Benutzers wieder löscht, so dass immer leere Suchfelder nach dem Öffnen erscheinen.

Nochmal vielen Dank.

#9

den Makro kiregst du aber selber hin. ich bin jetzt mal für 4 Wochen weg.

Gruß, Andreas