Office: (Office 2013) Hyperlink automatisch erstellen zu Eingabeblatt

Hallo,

bin Neu hier und habe da mal eine Frage an die Experten....
Ich habe eine Tabelle erstellt, in die ich jeden Tag Daten eingeben muss. Eine Vorlage habe ich erstellt, die ich mit einem kleinen Makro jeden Tag kopiere. So weit bin ich alleine gekommen...

Jetzt meine Vorstellung:
In einem Sheet, nennen wir es mal Jahresübersicht, klicke ich ein Feld an und es öffnet sich eine Message Box, in der ich ein Datum eingebe. Aus dem Datum wird ein Hyperlink erstellt und es öffnet sich meine Vorlage zum eingeben der Daten. Wenn ich die Daten eingegeben habe und nach dem Speichern die Vorlage wieder schließe, möchte ich die ausgefüllte Vorlage über den Hyperlink wieder aufrufen können. Der Hyperlink ist dann in dem Feld, welches ich anfangs angeklickt habe. Im Idealfall in Spalte AEs werden ca. 250 Datenblätter am Ende des Jahres sein...

Mit Makros kenne ich mich nur bedingt aus.
Kann mir da hier jemand weiter helfen?


Gruß
Butsche

 

Hallo Butsche,

dann zeig doch mal, was du schon hast.

Gruß,
Lutz

 

Hallo Lutz,

hier eine Blanko Tabelle.
Wenn ich eine Zelle in "Jahreswerte" wähle, möchte ich, dass eine Message Box aufgeht in der ich ein Datum eingebe, nach der Datumseingabe öffnet sich die "Vorlage" und in der angewählten Zelle von "Jahreswerte" wird ein Hyperlink erstellt zur Vorlage, die sich unter dem angegeben Datum in die Ordnerliste einreiht.

Gruß

 

Hallo Butsche,

ersetze Deinen Code durch

Code:

Dim Datum As String
Dim AktivesBlatt, AktiveZelleRow, AktiveZelleColumn
    
    Set AktivesBlatt = ActiveSheet
    AktiveZelleRow = ActiveCell.Row
    AktiveZelleColumn = ActiveCell.Column
    Datum = InputBox("Bitte das Datum eingeben:")
    Sheets("Vorlage").Copy After:=Sheets(1)
    ActiveSheet.Name = Datum
    
    AktivesBlatt.Activate
    ActiveSheet.Hyperlinks.Add Anchor:=Cells(AktiveZelleRow, AktiveZelleColumn), _
        Address:="", SubAddress:="'" & Datum & "'!A1", TextToDisplay:=Datum
    Sheets(Datum).Activate

Dann sollte es funktionieren.

Gruß,
Lutz

 

Hi,

danke, das geht schon in die richtige Richtung.
Jetzt wird der Hyperlink in der Zelle erstellt, die ich als letztes angewählt habe. Kann man das noch so anpassen, dass die Message Box direkt auf geht wenn ich eine Zelle in Spalte A in der Jahresübersicht anwähle?

Gruß,
Butsche

 

Hallo Butsche,

geht!

Hab dir in die Datei zwei Varianten eingebaut:
- Bei Klick in Spalte A wird das Macro ausgelöst
- Bei Klick auf Button und Aktive Zelle in Spalte A wird das Makro ausgelöst.

Den Anhang 9581 betrachten

Gruß,
Lutz

 

Danke dir Lutz