Summen übernehmen

[Berndt]

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

[Jockel]

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...

[Berndt]

Ja Jockel das bin ich ebenfalls ich (ich weis wird nicht gern gesehen), soll aber meine ratlosigkeit verdeutlichen.

LG Berndt

[Luffy]

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.

[Berndt]

dann werde ich es hier einmal verlinken. In der Hoffnung damit jmd helfen kann.

http://www.herber.de/forum/archiv/1516to...ehmen.html

Danke für die Info.

[Rabe]

push!

[schauan]

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.