Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1856to1860
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1856to1860
1856to1860
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Hyperlink einfügen ohne Formatierung

VBA Hyperlink einfügen ohne Formatierung
10.11.2021 19:51:46
joni
Hallo zusammen,
ich möchte Hyperlinks einfügen und dabei den Originaltext der Zelle inkl. der Originalformatierung unverändert lassen, so dass der Link nur erkennbar ist wenn ich mit der Mouse über der Zelle bin.
Das mit dem Text habe ich so hinbekommen, dass ich mir vorher merke was in der Zelle steht und nach dem Einfügen des Hyperlinks den Wert wieder einsetze. Mit der Formatierung funktioniert das leider nicht. Gibt es einen Weg, dass Hyperlinks.ADD die Formatierung nicht verändert (egal wie die Formatierung ausschaut)?
Da hier tlw. komplexe Formatierungen vorhanden sind (Schriftgröße und Art händern sich in der Zelle) würde auch ein PasteSpezial xlPasteFormats nur bedingt weiter helfen.
Ich habe dazu leider nichts brauchbares gefunden.
Danke für eure Hilfe.
Gruß Joni

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Hyperlink einfügen ohne Formatierung
12.11.2021 10:27:11
ChrisL
Hi
Anhand der Stille lässt sich vermuten, dass es prinzipiell nicht geht.
Hier ein 'lustiger' Workaround:
https://www.herber.de/bbs/user/149097.xlsx
B1 ist die Vorlage. Mittels Picture-Link in A1 eingefügt. Die Grafik in A1 wird mit dem Link versehen.
cu
Chris
AW: VBA Hyperlink einfügen ohne Formatierung
12.11.2021 16:50:28
joni
Ja leider, es ist ziemlich still.
SG Joni
AW: VBA Hyperlink einfügen ohne Formatierung
12.11.2021 21:47:57
Peter
Hallo joni,
ich habe mal eine Lösung für Dich entwickelt. Die Beschreibung findest Du in der Excel-Mappe. Nichts ist unmöglich!
https://www.herber.de/bbs/user/149110.xlsm
Bitte mal ausprobieren; Rückmeldung wäre schön.
Mit freundlichem Gruß
Peter Kloßek
Anzeige
Kreativ aber leider hilft es nicht
13.11.2021 16:41:55
joni
Hallo Peter,
das ist ein kreativer Ansatz. Leider hilft er mir nicht, da ich in der Tabelle ganz viele unterschiedliche Links an verschiedenen Stellen einbauen muss und die Liste oft aus tausenden Zeilen besteht.. Die Liste wird dann im Anschluss auch noch gefiltert und gedruckt/gespeichert. In dem PDF-Ergebnis müssen die Links auch noch funktionieren.
Es ist schade, dass es hierfür keinen Parameter zu geben scheint, das wäre vermutlich ziemlich einfach umsetzbar.
Danke für deine Hilfe!
Gruß Joni
AW: VBA Hyperlink einfügen ohne Formatierung
13.11.2021 17:48:04
ralf_b
wenn du schon Werte sicherst um sie später in den Link zu übernehmen ,kannst du auch gleich die Schriftfarbe und die Unterstreichung sichern, um sie später (nach Hyperlinks.add() auf den Originalstand zu setzen. 

Sub Makro1()
Dim retvalUnderline As XlUnderlineStyle
Dim retvalColrindx  As Variant
With ActiveCell
With .Font
retvalUnderline = .Underline
retvalColrindx = .ColorIndex
End With
'Hyperlink einfügen
With .Font
.Underline = retvalUnderline
.ColorIndex = retvalColrindx
End With
End With
End Sub

Anzeige
das mache ich, reicht aber leider nicht
13.11.2021 17:54:32
joni
Hallo Ralf,
genau das mache ich. Doch die Formatierung ist komplexer, tlw. sind auch nur einzelne Wörter im Text anders formatiert, das kriegst du im Nachhinein nicht mehr hin (sonst müsste ich ja jedes einzelne Zeichen und alle anderen Formatierungsoptionen vorher auslesen).
Ich formatiere jetzt als Notlösung in meine Standardformatierung zurück, doch da bleibt leider einiges auf der Strecke. Wenn der Hyperlink nicht nachträglich eingefügt wird, dann formatiere ich erst anschließend, das klappt, aber tlw. kann ich die Links erst nachträglich einfügen wenn die User die Daten bearbeitet haben.
Trotzdem Danke
SG Joni
Anzeige
AW: das mache ich, reicht aber leider nicht
13.11.2021 18:48:04
Peter
Hallo joni,
ich könnte noch eine andere Lösung anbieten: Die Links werden mit ihrer Bezeichnung und der gewünschten Formatierung an den gewünschten Stellen eingetragen. Die Links selbst stehen an einer zentralen Stelle in Klarschrift, werden in der Excel-Anwendung nicht gezeigt (verborgene Spalten od. ähnl.), jedoch in der PDF-Ausführung. Für die Excel-Bearbeitung wird mit einem Rechtsklick auf die jeweilige Bezeichnung per Makro auf den eigentlichen Link verwiesen, so ähnlich, wie in meinem ersten Post beschrieben. Will man den eigentlichen Link sehen, könnte man dies mit einem Doppelklick erreichen. Der Einrichtungsaufwand richtet sich natürlich danach, wie viele Links es auf dem Arbeitsblatt gibt.
M.f.G. Peter Kloßek
Anzeige
AW: das mache ich, reicht aber leider nicht
15.11.2021 18:40:07
joni
Hallo Peter,
das sind sehr viele Links. Es können ein paar tausend sein. Das mit dem Rechtsklick hat mich auf eine Idee gebracht (Menüeintrag erzeugen "Hyperlink folgen"). Leider hilft sie nur bedingt, ist aber wieder mal eine Horizonterweiterung. :-) Im PDF hilft das dann aber leider auch nicht.
Wir bleiben dran, vielleich fällt uns ja noch etwas ein ;-)
Danke & Gruß Joni
AW: das mache ich, reicht aber leider nicht
16.11.2021 21:26:55
Tobias
Hallo Joni,
wie wäre es wenn du ein Shape über die Zelle mit dem Text legst und auf den Shape den Hyperlink setzt? Den Shape könnte man dann ohne Linie und Füllung quasi unsichtbar gestalten und er wäre nur klickbar. Per VBA sollte das ganze dann auch in größeren Mengen erstellt werden können.
Schöne Grüße
Tobias
Anzeige
AW: das mache ich, reicht aber leider nicht
18.11.2021 08:43:26
joni
Hallo Tobias,
hatte ich auch schon gesehen. Ich kann aber noch nicht einschätzen wie sehr so viele Shapes das Handling bzw. die Performance der Mappe beeinträchtigen. Ich habe das an anderen Stellen mit ein paar wenigen Barcodes (30-50) schon festgestellt, da ist das Scrollen zB sehr mühsam. Dort konnte ich es so einrichten, dass die Barcodes ausgeblendet werden und nur vor dem Druck die Ansicht umgeschaltet wird. Das hätte hier dann meiner Meinung nach auch Auswirkungen, dann wären die Shapes auch ausgeblendet (oder kann ich das separat steuern? so weit habe ich mich noch nicht eingelesen). Dann wären die Hyperlinks ja auch weg, würde somit dann nicht helfen.
Mal schauen ob ich eine ruhige Minute finde um dem Thema nochmal genauer nachzugehen.
Auf jeden Fall danke für den Input.
SG Joni
Anzeige

326 Forumthreads zu ähnlichen Themen

VBA - Berechnung ohne Formeleintrag
kasi

Hallo liebe Excelprofis,
im Grunde bin ich jemand der lieber allein etwas herausfindet als jemanden um Hilfe zu bitten, aber ich weiß jetzt einfach nicht weiter :-(
Nach 6 Tagen rumforschen in allen möglichen Foren geb ich mich geschlagen und will nun doch hier fragend mein Glück versuc...
18.02.2009 02:59:00
Thread-ID: 1051668
4 Beiträge
Anzeige
Versand Tabellenblatt ohne Formel OHNE VBA
Stef@n

Hallo
auf Basis der Antworten des Threads
https://www.herber.de/forum/messages/1117576.html
habe ich folgenden Code, der auch einwandfrei funktioniert ! (Mail wird erst versandt, wenn in
der Zelle O10 der Text "VERKAUF" steht.
Nur eine Nachfrage:
Es wird das Blatt kop...
16.11.2009 15:07:38
Thread-ID: 1117637
9 Beiträge
VBA_For-Next Schleife ist fehlerhaft
Dirk

Hallo allerseits,
habe da noch ein Problem mit einer Schleife.
Nachstehender CODE soll im TB Eingaben Zeile 1 nach einem Wert aus TB Ausgabe A1 suchen.
Macht er auch, nur zeigt er mir immer erst die msgBox an (nichts gefunden) und wenn ich die dann x-mal bestätige, kommt dann auch i...
06.05.2010 17:41:15
Thread-ID: 1155887
5 Beiträge
Anzeige
Addition per VBA ohne Formel
MikeS

Hallo Leute,wer kann mir bei meinen bescheidenen VBA-Anfängen helfen?Mit nachfolgendem Code möchte ich in jedem Tabellenblatt die Zellen A1:A3 summieren.Nach dem Durchlauf aller Blätter soll die Gesamtsumme in Tabelle1-Zelle B1 reingeschrieben werden.Was stimmt hier nicht?Vielen Dank
MikeS
05.06.2002 21:02:45
Thread-ID: 126298
3 Beiträge
direkte Zellformatierung ohne VBA
WalterDa

Kennt jemand eine Möglichkeit, ohne VBA, sondern direkt über Eingabe von Formeln, in Zellen Formatierungen durchzuführen?
Ich möchte z.B. die aktive Zelle farbig markieren, wenn die aktive Zelle einen Wert und die Zelle daneben keinen Wert enthält.Gruß Walter
10.06.2002 07:39:47
Thread-ID: 127374
4 Beiträge
Sheet mit Formatierung ohne VBA copy
Mike

Hallo,
ich habe ein "Mastersheet" mit dem Namen Daten_1 und möchte dieses gerne mehrfach kopieren
anzahl = InputBox("Wieviel Jahre sollen eingefügt werden?")
anzahl=anzahl*12 'für die Monate
ergeben sollte es dann sowas in 3 Monatsabständen.
Daten_3
Daten_6
Daten_9<...
07.03.2012 10:33:31
Thread-ID: 1253991
4 Beiträge
Formel & steuerelement ohne VBA
Mister-B

Hallo,
in einer Tabelle habe ich einen Checkbox. Wie kann ich erreichen, ohne VBA, dass eine Formel guckt ober der Box aktivert ist?
Gruß
Martin
21.04.2012 16:13:36
Thread-ID: 1260382
4 Beiträge
For Schleife mit If/Else im Userform
Black-Mage

Hallo ihr lieben, ich habe folgendes Problem:
Ich habe ein Userform das durch klick auf eine Schaltfläsche ein 2tes Userform öffnet, in dem einige Werte eingetragen werden sollen.
Wenn ich nun im UF2 auf ok klicke Prüfe ich mit einer For schleife, ob alle Textboxen auch ausgefüllt wurd...
01.11.2012 19:45:30
Thread-ID: 1284895
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
6
8
4
4
2
3
3
3
6
3
8
5
6
3
4
2
3
4
6
4
11
7
3
6