Supportnet / Forum / Tabellenkalkulation
Automatisches Verlinken
Frage
Hallo,
habe eine etwas kompliziertere Fragestellung, aber wie ich finde, ein interessantes Problem.
Ich möchte eine automatische Verlinkung mit einem Arbeitsblatt erstellen. Und zwar habe ich ein Makro programmiert, welches nach einer Vorlage ein neues Datenblatt erstellt und in die Arbeitsmappe einfügt. Auf dem Übersichtsblatt (erstes Blatt meiner Arbeitsmappe) sollen nun ca. jeweils 5 Werte aus den übrigen Datenblätter angezeigt werden. Das bedeutet, dass man ein neues Datenblatt über mein Makro erzeugt und automatisch sollen auf meinem Übersichtsblatt Verlinkungen zu dem neu erstellten Datenblatt entstehen.
Meine Idee die Sache zu realisieren:
habe ich bereits:
-Neues Blatt nach Vorlage erstellen
-Namen des Blatts abfragen
-alphabetisch in vorhandene Blätter einsortieren
soll zugefügt werden:
-Zeile auf Übersichtsblatt einfügen ohne vorhandene Sachen zu überschreiben
-Hyperlinks erstellen, die auf neues Datenblatt verweisen
Vielen Dank im Voraus für eure Ideen. Gruß strongé
Antwort 1 von braincracker
Moin,
ich würde das ganze in zwei Schritten abwickeln:
1) Wenn das neue Datenblatt erstellt wird, wird auf dem Übersichtsblatt eine neue Zeile eingefügt, deren Werte aus dem Datenblatt geholt werden (einfach Marko aufzeichnen: ein "+" in die Zelle setzen und dann auf das Feld in der Datenblattvorlage verweisen, im vba-editor angucken, dann weisst schonmal wie man das macht)
2) Dann in diese Zeile eine neue Spalte machen mit nem Link-Button oder so und dann n makro schreiben a la Sheets(Name_SG).Activate
hf,
brain
ich würde das ganze in zwei Schritten abwickeln:
1) Wenn das neue Datenblatt erstellt wird, wird auf dem Übersichtsblatt eine neue Zeile eingefügt, deren Werte aus dem Datenblatt geholt werden (einfach Marko aufzeichnen: ein "+" in die Zelle setzen und dann auf das Feld in der Datenblattvorlage verweisen, im vba-editor angucken, dann weisst schonmal wie man das macht)
2) Dann in diese Zeile eine neue Spalte machen mit nem Link-Button oder so und dann n makro schreiben a la Sheets(Name_SG).Activate
hf,
brain
Antwort 2 von piano
Hallo
Noch ein Tip:
folgendermaßen erhältst du die letze belegte Zeile:
Dann kannst Du mit
Gruß piano
Es wäre nett, wenn Du ein Feedback abgeben könntest,
ob der Lösungsvorschlag Dein Problem gelöst hat.
- probieren geht über studieren -
Noch ein Tip:
folgendermaßen erhältst du die letze belegte Zeile:
LetzteZeile = Range("A65536").End(xlUp).Row Dann kannst Du mit
cells(LetzteZeile + 1, 1) die erste freie Zeile (der Spalte "A") ansprechen und hier den Hyperlink eintragen. z.B.: TabellenName = "Tabelle3"
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
TabellenName & "!A1", TextToDisplay:=TabellenNameGruß piano
Es wäre nett, wenn Du ein Feedback abgeben könntest,
ob der Lösungsvorschlag Dein Problem gelöst hat.
- probieren geht über studieren -

