Hallo Freunde,
im folgenden habe ich eine etwas spezielle Frage. Ich hoffe dennoch, damit mir jmd. weiterhelfen kann.
Der eingefügte Button in der Bsp.-Datei läuft bisher schon super sollte aber ergänzt werden.
Denn die eingefügten Hyperlinks soll es mir im dafür vorgesehenen Bereich zusätzlich noch einfügen. Auch soll es mir die Summenzahlen aus den versch. Sheets (Herr/Frau) einfügen.
Im Anhang habe ich mal gezeigt wie es aussehen soll. Ich würde mich echt riesig über Hilfe freuen.
LG Berndt
(11.10.2016, 13:15)Berndt schrieb: [ -> ]Hallo Freunde,
im folgenden habe ich eine etwas spezielle Frage. Ich hoffe dennoch, damit mir jmd. weiterhelfen kann.
Der eingefügte Button in der Bsp.-Datei läuft bisher schon super sollte aber ergänzt werden.
Denn die eingefügten Hyperlinks soll es mir im dafür vorgesehenen Bereich zusätzlich noch einfügen. Auch soll es mir die Summenzahlen aus den versch. Sheets (Herr/Frau) einfügen.
Im Anhang habe ich mal gezeigt wie es aussehen soll. Ich würde mich echt riesig über Hilfe freuen.
LG Berndt
Hallo, hier bei herber hat jemand ein ganz ähnliches Problem...
Ja Jockel das bin ich ebenfalls ich (ich weis wird nicht gern gesehen), soll aber meine ratlosigkeit verdeutlichen.
LG Berndt
(12.10.2016, 13:37)Berndt schrieb: [ -> ]Ja Jockel das bin ich ebenfalls ich (ich weis wird nicht gern gesehen), soll aber meine ratlosigkeit verdeutlichen.
LG Berndt
Es wird nur nicht gern gesehen wenn es nicht untereinander verlinkt wird. Ansonsten sucht ein Forum vielleicht noch nach einer Lösung obwohl es im andren schon gelöst wurde.
Zudem kommt meistens dazu wenn in einem Forum eine Lösung gefunden wird, dass das den anderen Forums nicht mitgeteilt wird.
Wenn es verlinkt wird können wir wenigstens selbst schauen ob die Lösung schon gefunden wurde oder auch sehen wie weit die Lösungsanätze der anderen sind.
Hallöchen,
erst mal zu dem Thema Hyperlinks.
In Deinem Makro steht irgendwo
Code:
.Hyperlinks.Add Anchor:=.Cells(Zeile_Z, 2), Address:="", _
SubAddress:="'" & wksQuelle.Name & "'!A1", _
TextToDisplay:=wksQuelle.Name, _
ScreenTip:="Tabelle " & wksQuelle.Name
Kopiere diesen Code einfach mal und setze ihn darunter. Den eingefügten Code änderst Du dann so, wird eine Zeile mehr und aus Zeile_Z wird Zeile_Y:
Code:
Zeile_Y = Zeile_Y + 1
.Hyperlinks.Add Anchor:=.Cells(Zeile_Y, 2), Address:="", _
SubAddress:="'" & wksQuelle.Name & "'!A1", _
TextToDisplay:=wksQuelle.Name, _
ScreenTip:="Tabelle " & wksQuelle.Name
Oben ergänzt Du diese Zeile noch
Dim Zeile_1_Z&, Zeile_1_Q&, Zeile_Z&, Zeile_Q&, AnzahlZeilen&
, Zeile_Y%
Schaue mal, ob das klappt. Ich habe das jetzt nicht getestet.