Automatisch Hyperlinks vergeben

[BoskoBiati]

Hallo,

dass das "If Worksheets("Tabelle2").Cells(8 + count, 31) <> 0 Then" niemals durchgeführt wird

was soll das heißen????

[Käpt'n Blaubär]

Hallo,

ob es überhaupt Sinnvoll ist eine VBA Schleife über 50.000 Einträge laufen zu lassen oder ob das viel zu lange dauert. 

in VBA muß man sich nicht 50.000 Zeilen mit Formeln vollknallen oder auf Vorrat anlegen. 

Hier lassen sich Zeilen dann einrichten, wenn sie gebraucht werden und das Ganze sogar vollautomatisch.
Das dürfte der Datei in der Ausführung auch einen Turbogang verpassen und wesentlich schneller machen.

[Spike87]

Hallo Käptn Blaubär (Als Zamonienfan ein gerne gesehener Nick!),

Ja das denke ich auch mit dem Formeln vollknallen, vor allem wenn man bedenkt dass ich das 10 mal gemacht habe, jedes mal mit unterschiedlichen Formeln. Mit dieser Erkenntnis kann ich da bestimmt gut entschlacken, so dass das starten des Programms nicht mehr 2 Minuten beträgt.

Boskobiati, das hat sich mittlerweile erledigt.

Liebe Grüße

[Käpt'n Blaubär]

Hallo,

Mit dieser Erkenntnis kann ich da bestimmt gut entschlacken, so dass das starten des Programms nicht mehr 2 Minuten beträgt.

... so habe ich das zwar nicht ganz gemeint, schon gar nicht, wenn ich sehe, was Du die Helfer
für Klimmzüge machen läßt, ... aber, ... dann mach mal.

[Spike87]

Entschuldigt bitte, ich wollte nicht respektlos erscheinen.

Ich weiß nur leider selbst nicht genau wohin die Reise gehen soll, daher ist das ganze noch stolperhaft.

Liebe Grüße

[snb]

Wie einfacher wie besser.

Warum nicht ?

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    If Target.Offset(, -1).Hyperlinks.Count = 1 Then ThisWorkbook.FollowHyperlink Target.Offset(, -1).Hyperlinks(1).Address
End Sub

Wenn der Cursor neben ein hyperlink steht kann die immer aktiviert werden vom Doppelklick.


PS. Deine Beispieldatei entspricht diene Frage nicht.
Gute Frage stellen = Gute Beispeildateien bauen.

[Spike87]

Hallo,

ich weiß leider nicht was deine Formel bewirkt. Hat die Vorteile?

Meine Frage war zum Zeitpunkt der Beispieldatei, ob man mit =HYPERLINK() erstellte Hyperlinks in Excelblättern kopieren und inklusive Hyperlink an andere Stellen kopieren kann, was wie ich vermutet habe nicht geht. Nun habe ich ja aber die Lösung über VBA.

Ich denke immer noch, das man aber diese Frage auch ohne Beispieldatei lösen konnte.

[snb]

Meiner Vorschlag ist auch selbstverständlich.

[Spike87]

Hallo,

Ich hab auch jahrelang in einem Aquaristikforum täglich Leuten ausgeholfen und auch als Administrator tätig gewesen, daher weiß ich wie nervig, trotzig und auch undankbar manchmal Bitt/Fragesteller in Threads sein können. Vor allem unter dem Aspekt, dass man das ganze ja freiwillig macht.

Genauso ist mir dabei aber auch von helfender Seite oft Überheblichkeit untergekommen, ich selbst war nicht frei davon. Aber die letzte Angabe, natürlich ohne jegliche Nettiquette, finde ich doch sehr respektlos.

Tut mir leid, für mich ist dein Vorschlag nicht "selbstverständlich". Ich versteh nicht worauf du hinauswillst, was dein Code ausführt und auch nicht was dein Beschreibungstext meint.

Und um es mit deinen Worten zu sagen:

Gute Hilfestellung geben = Gute Erläuterung

Ich bedanke mich noch einmal vielmals bei allen, die mir so nett geholfen haben, ich bin wirklich ein großes Stück weiter gekommen und Entschuldige mich für meine Flüchtigkeitsfehler in meinen Formeln.

Liebe Grüße