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
556to560
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
556to560
556to560
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Text als Hyperlink

Text als Hyperlink
27.01.2005 15:39:00
Tobi
Hallo,
folgendes Problem: Stückliste
Ich möchte in Spalte B die verschiedenen Nummern unserer Bauteile eingeben.
z.B. 010017.
Ich habe dann in Spalte K in der selben Zeile einen Text erstellt, der durch die Funktion ersetzen immer verändert wird, wenn ich die Nummer in Spalte B verändere.
Beispiel:C:\Dokumente und Einstellungen\Link\Desktop\Daten\serien_num\xxxxxx.jpg
Die xxxxxx werden ersetzt. Jetzt hätte ich gerne genau hier einen Hyperlink, der immer exakt das Bild zur Seriennummer aufruft.
HILFE!!!
Tobi

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Text als Hyperlink
27.01.2005 16:20:46
Reinhard
Hi Tobi,
unten Rechtsklick auf "Tabelle1", Code Anzeigen, Code reinkopieren, Editor schliessen.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub '1=A, 2=B, 3=C usw
On Error GoTo Fehler
Pfad = "C:\Dokumente und Einstellungen\Link\Desktop\Daten\serien_num\"
With Cells(Target.Row, 11) '11=K
.Hyperlinks(1).Address = Pfad & Target & ".jpg"
.Hyperlinks(1).TextToDisplay = Target & ".jpg"
End With
Exit Sub
Fehler:
ActiveSheet.Hyperlinks.Add Anchor:=Cells(Target.Row, 11), _
Address:=Pfad & Target & ".jpg", TextToDisplay:=Target & ".jpg"
End Sub

Gruß
Reinhard
Anzeige
AW: Text als Hyperlink
27.01.2005 16:25:46
UweD
so?
https://www.herber.de/bbs/user/16996.xls

  • VBA Editor öffnen (Alt F11)

  • Project Explorer öffnen (Strg+R)

  • "Tabelle1" doppelklicken (bzw. Deine Tabelle)

  • Im neuen Fenster das Makro einfügen



Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B:B")) Is Nothing Then
Me.Hyperlinks.Add Anchor:=Me.Cells(Target.Row, 11), _
Address:="C:\Dokumente und Einstellungen\Link\Desktop\Daten\serien_num\" & Target.Value & ".jpg", _
TextToDisplay:=Target.Value & ".jpg"
End If
End Sub


Gruß Uwe
Anzeige
AW: Text als Hyperlink
27.01.2005 21:52:16
Tobi
Hallo,
vielen Dank für Eure nette und schnelle Hilfe. Hat aber beides nicht geklappt!
Ich habe mal zwei Screenshots gemacht, damit Ihr das besser versteht.
In Spalte I möchte ich eigentlich das, was in K steht einfügen, damit ich jedesmal, wenn ich vorne eine Seriennummer eingebe jeder bei uns, von der Verwaltung, bis zur Produktion die Bilder dazu anschauen kann.
Gute nacht, ich muss morgen von Stuttgart nach Köln, deswegen werde ich alle (hoffentlich zahlreiche) Vorschläge am Montag testen!!!
Tobi

Userbild

Die Datei https://www.herber.de/bbs/user/17026.jpg wurde aus Datenschutzgründen gelöscht

Anzeige
AW: Text als Hyperlink
27.01.2005 22:05:55
Josef Ehrensberger
Hallo Tobi!
In "I3" diese Formel und runterkopieren!

=WENN(B3<>"";HYPERLINK("file://C:\Dokumente und Einstellungen\Link\Desktop\Daten\serien_num\" &B3 &".jpg";"klick");"")


Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
AW: Text als Hyperlink
27.01.2005 23:04:16
Reinhard
Hi Tobi,
Uwe und ich haben entsprechend deiner Anfrage , da ging es um Spalte B und Spalte K, LÖsungen gebastelt.
Wenn du jetzt danach mit Spalte I ankommst....
Ich denke du musst nur in den Codes die 11 (steht für K, sogar im Code) gegen 9 (=I) austauscshen.
Gruß
Reinhard
Anzeige

313 Forumthreads zu ähnlichen Themen

Spalten als Text formatieren
Steffen

Hallo Leuts,
ich möchte gern die spalten B, D und F als Text formatieren. Habe da aber irgendeinen fehler drin.
ActiveSheet.Columns("B:B,D:D,F:F").NumberFormat = "@"
Das Format ändert sich leider nicht in Text.
Grúß
Steffen
15.09.2008 09:49:00
Thread-ID: 1009678
7 Beiträge
Anzeige
Textbox Ausgabe als Zahl bzw. Zeit formatieren
Steffan

Hallo ihr lieben,
ich schreib jetzt schon den ganzen Tag an folgender Routine:
Private Sub CommandButton1_Click() Dim z As Integer z = Range("I101").End(xlUp).Row + 1 TextBox1 = Format(CDate(TextBox1.Value), "dd.mm.yyyy") Cells(z, 9) = TextBox1 'Datum des Tauchgangs Cells(z, 12) = Tex...
28.09.2008 20:12:56
Thread-ID: 1012988
6 Beiträge
Bild von Zelle in Zelle verlinken
Zelle

Hi Leute
Ich habe in Tabelle1 Zelle A1 einen Text, und danach habe ich in die Zelle ein Bild eingefügt
Nun möchte ich die gesamte Zelle A1 (Bild und Text) in Zelle Z17 haben.
Bei normalen Texten geht es ja mit =A1 (wenn ich in Zelle Z17 stehe)
Gibt es diesen Befehl auch für mein...
04.11.2008 16:19:07
Thread-ID: 1021687
4 Beiträge
Anzeige
Labels u. TextBoxen in UserForm blinken lassen
Lenhard

Moin Excellianer!
Wie bringe ich in einem UserForm die Caption mehrerer Labels und den Hintergrund von TextBoxen (z.B. Gelb/Weiß im Wechsel) zum blinken, wenn in der TextBox1 ein Wert steht? Wenn in der TextBox1 kein Wert steht, dann soll es auch nicht blinken in den Labels und TextBoxen.
19.12.2008 17:16:00
Thread-ID: 1034201
21 Beiträge
Zelle in Datum umwandeln
Will

Hallo Leutz,
wie in folgender Datei zu sehen, habe ich mal wieder ein Thema mit der Umwandlung von Zellen in ein Datumsformat.
Eine Mainframeanwendung gibt mir die Werte im Format 6/2003 aus was Juni 2003 heißen soll. Excel erkennt diese Daten aber nicht als Datum.
Wie bitte bekomme...
12.01.2009 07:41:00
Thread-ID: 1038745
5 Beiträge
Hyperlinks als Text
Markus

Hallo,
ich habe im Archiv bereits gesucht, aber nix passendes gefunden.
Ich schreibe eine grössere Tabelle mit vielen LINKS
Z.B. info@hammer.ch, www.meier.ch, \\pdc\LaufwerkC$, etc.
Sobald ich diese Werte in eine Tabelle schreibe, macht Excel sofort einen Hyperlink daraus.
W...
15.01.2009 08:18:00
Thread-ID: 1039886
8 Beiträge
TextBox Komma in Punkt umwandeln
Heinz

Hallo Leute
Wie kann ich bitte,wenn in Textbox6 ein Komma eingegeben wird, das es automatisch auf Punkt wechselt ?
Gruß
Heinz
28.01.2009 17:42:00
Thread-ID: 1044650
3 Beiträge
TEXT in Tabelle umwandeln
Martin

Liebe Forumteilnehmer,
möchste aus einem TEXT in WORD der bestimmte wiederholte, standardisierte Abschnitte - in diesem fall Name, Vorname, Geb-Datum, eine Tabelle generieren. Geht das mit einem Makro aus Excel heraus?
Danke
Martin
02.02.2009 17:26:48
Thread-ID: 1046338
4 Beiträge

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
6
5
5
3
3
20
4
7
2
3
2
14
3
1
10
15
3
4
4
2
5
16
17
5
1