Office: (Office 2013) Automatisch Hyperlink zu Arbeitsblatt per VBA

Hallo,

und mal wieder ein neues Problem.

Ich habe eine Arbeitsmappe die als Auftragsbuch geführt wird.
Auf dem ersten Blatt ist eine Übersicht der Aufträge, die sich ständig erweitert. (fortlaufende Nummer)

Per VBA habe ich nun schon einen Button eingebunden, der mir ein einzelnes Arbeitsblatt von einer Vorlage kopiert, einfügt und mit der höchsten Auftragsnummer benennt.
Auf diesem Arbeitsblatt ist in der Vorlage schon eine Verlinkung zurück zur Übersicht.

Was ich nun brauche ist eine Verlinkung von der Übersicht auf das neu erstellte Auftragsblatt. Und zwar in der Zelle, mit der höchsten Auftragsnummer.
Die höchste Auftragsnummer lasse ich mir in Zelle M2 auf der Übersichtsseite anzeigen und nutze diese Zelle auch um das Auftragsblatt zu benennen.

Hier ist der Code aus dem Button, der das neue Auftragsblatt generiert:
Code:

Vielleicht bekommt man ja noch eine Funktion hinein, mit der man eine Verlinkung auf das neue Auftragsblatt in der Zelle generiert, die die höchste Auftragsnummer hat.

Zur Not hilft auch einfach eine Formel, mit der ich den Namen der Zelle mit der höchsten Auftragsnummer herausfinden kann.

Grüße

Starfish

:)

 

Hi,

benutze VERGLEICH() um die Zeile zu finden, in der die höchste Auftragsnummer steht und mittels ADRESSE(Zeile;Spalte) die Zelladresse.

 

Guten morgen und Danke schon mal.
Ich hab jetzt ein paar Formeln gebastelt mit denen ich meine Zellen herausbekomme.
Habe den Namen für die Zelle mit dem höchsten Wert jetzt ein Mal mit Dollar Zeichen und ein Mal ohne. Wer weiß wofür ich das in Zukunft noch so brauche.

Jetzt würde ich gern, da ich die Zelle mit dem höchsten Wert kenne, zu der Funktion das Auftragsblatt zu erstellen (oder eben kopieren und benennen) in der Zelle, die ich mir per Formel gesucht habe einen Hyperlink auf den neu erstellten Blattnamen legen.

Also vom Ablauf her:
- Suche höchsten Wert (check)
- Erstelle Auftragsblatt und benenne es mit dem höchsten Wert (check)

- Suche Name der Zelle mit dem höchsten Wert (check)
- Erstelle in der gesuchten Zelle einen Hyperlink auf das neue Arbeitsblatt (noch offen)

Grüße

 

Hi,

wo stehen deine Nummern - in Spalte A? Wenn du den Hyperlink sowieso per VBA erstellst, kannst du auch gleich die Zelle mit dem Maximum per VBA ermitteln:

Code:

 

Danke, deinen Code werde ich direkt mal probieren.
Mitmeinen beschränkten einsichten in VBA hab ich mir bis jetzt folgendes zusammengebastelt.

Code:

Die Variablen werden soweit auch ausgelesen und es funktioniert alles bis auf die Erstellung des Links. Da bricht er dann mit "Typen unverträglich" Fehler 13 ab.

Jetzt teste ich mal deinen Code. =)

 

Dein Code läuft prima. *biggrin.gif*

Könntest du mir trotzdem erklären warum mein Code nicht läuft?

 

Vergleiche einfach mal die Codezeile für das Erstellen des Hyperlinks bei mir und bei dir, beginnend ab dem Parameter Anchor - dann findest du auch dein Problem... *wink.gif*

 

Hmm... ok, da du dir die Zelleninhalte ganz anders berechnest steh ich ein wenig auf dem Schlauch.
Mir fehlen aber scheinbar einige Angaben, damit der Befehlt komplett ist nehme ich an.

 

Dazu musst du in meinem Code doch einfach die betreffenden Teile ersetzen. Hier nocheinmal: oben mein Code unten dein Code, Unterschiede farblich gekennzeichnet

Code: