Office: Zelle in Hyperlink umwandeln

Eric Palm · 7. März 2006

Hallo Fachfrauen und Fachmänner,
ich habe mir ein Makro gebastelt womit ich den Explorer auslesen kann.
Dabei wird in die Spalte A der Pfad mit Dateinamen eingetragen
Bespiel: M:\ADDIns\Formelsammlung.xls
Wie kann ich dieses nun per VBA in einen Hyperlink umwandeln?
Die Zeilenanzahl kann von 2 bis 1000? gehen.
Ich möchte also alle Zellen in Spalte A die mit einem Pfad gefüllt sind in einen Hyperlink umwandeln. Geht das überhaupt?
Ich danke schon jetzt für jede Hilfe.

Gruß
Eric Palm

:)

User · 8. März 2006

Hi Eric,

Code:

Sub Hyperlink_umschreiben()
'/// Code von jinx
'/// findet die letzte genutzte Zelle in
'/// Spalte A, da von unten begonnen wird
'/// Zelle 65536 wird auf Inhalt geprüft
Dim i as Integer ' siehe nächsten Kommentar
Dim intLastRow As Integer ' als Long dimensionieren,
' wenn Zeilenwerte für die Rückgabe
' von > 32767 erreicht werden
'/// Ausschalten der Bildschirmaktualisierung
Application.ScreenUpdating = False
'/// Überprüfung der letzten Zelle in Spalte A
If IsEmpty(Cells(65536, 1)) Then
'/// Es wird in der Folge solange nach oben gegangen,
'/// bis ein Inhalt in einer Zelle gefunden wird
intLastRow = Cells(Rows.Count, 1).End(xlUp).Row
'/// Die Fundstelle wird in einer Messagebox ausgegeben
Else
'/// Da die letzte Zelle belegt ist, erfolgt eine Info
'/// und das Ende des Makros
MsgBox "Letzte Zelle nicht leer!", vbCritical, "Bitte beachten!"
End If
'/// Einschalten der Bildschirmaktualisierung
Application.ScreenUpdating = True
For i = 1 To intLastRow
Cells(i, 1).Activate
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
Cells(i, 1).Value, TextToDisplay:=Cells(i, 1).Value
Next i
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

User · 8. März 2006

Hallo Eric,

gehe mal in die Forumssuche und gebe den User "Udo44" ein, sowie das Stichwort "Hyperlink". Da solltest Du eine Komplettlösung oder zumindest einen Lösungsansatz finden

Eric Palm · 8. März 2006

Hallo Karin und Woody,
Karin: Danke für die Hilfe.
Woody: Ich hatte mir schon den Wolf gesucht.
Ich bin ja immer für jede Hilfe dankbar aber manchmal findet man einfach nicht das was man sucht oder man sieht den Wald vor lauter Bäumen nicht.
Ich suche immer zuerst bevor ich eine Frage in das Forum stelle aber manchmal findet man nicht das gesuchte obwohl es dann doch vorhanden ist.

Danke natürlich euch beiden.

Gruß
Eric Palm

Office: Zelle in Hyperlink umwandeln

Zelle in Hyperlink umwandeln

Zelle in Hyperlink umwandeln

Zelle in Hyperlink umwandeln

Zelle in Hyperlink umwandeln - Similar Threads - Zelle Hyperlink umwandeln

Hyperlink in bestimmte Zelle in Tabelle

Mit Hyperlink mehrere Zellen(inhalt!) anwählen

Hyperlink aus Zelle übernehmen

Hyperlink / bestimmte Zeichen aus Zelle

Hyperlink aus mehreren Zellen zusammensetzten

Hyperlink bezieht sich auf falsche Zelle trotz richtiger Funktion?

Kommentare in neue Kommentartabelle kopieren, Quelltabelle: Hyperlinks auf die Kommentartabelle