HERBERS Excel-Forum - die Beispiele

Thema: Hyperlinkadressen zu Kommentaren konvertieren

Home

Gruppe

Allgemein

Problem

Die Hyperlink-Addressen aus Spalte A sollen in einen Kommentar in Zelle B1 eingefügt werden.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: Modul1

Sub Hype2Comment()
   Dim cmt As Comment
   Dim iRow As Integer
   Dim sTxt As String
   iRow = 1
   Do Until IsEmpty(Cells(iRow, 1))
      sTxt = sTxt & Cells(iRow, 1).Hyperlinks(1).Address & vbLf
      iRow = iRow + 1
   Loop
   With Range("B1")
      If Not .Comment Is Nothing Then
         .Comment.Delete
      End If
      Set cmt = .AddComment(sTxt)
   End With
End Sub

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Kommentar

Arbeitsblatt schützen Kommentare aber noch möglich Zeilenumbruch im Kommentar
Kommentar in erste zelle einess Bereiches Problem mit Kommentaren
Kommentar Eintrag löschen und einrücken Kommentarzeilen in Variablen einlesen
Kommentar Formatierung Kommentare löschen
Kommentare einfügen Kommentar abfragen und ändern
Kommentare wieder sichtbar machen Bild in Kommentar oder Zelle einfügen
Allgemeine Frage zur Fehlerbehandlung allgemeine Fragen zu einer Datenbank
Werte automatisch in Kommentare setzen Freigegebene Arbeitsmappe: Kommentare verschwinden
Pop-Up-Kommentare kann man Kommentare (per Makro) durchsuchen?
Kommentare Kommentar mit Zellenhintergrundfarbe
Kommentare in der Größe ändern mit Makro, wei Kommentar in Abhängigkeit vom Zellinhalt
Kommentare in freigegebener Datei Kommentar suchen löschen
Kommentar-Formatierung Kommentare
Kommentare auslesen Kommentar mit VBA
Kommentarfläche manipulieren Kommentare drucken
Ein Kommentar auf mehrere Zellen Größe der Kommentare
Tabelle sperren u. Kommentar In Zelle Kommentar abhängig vom Wert
2 Schriftgrößen im Kommentar Kommentar nicht scrollen
kommentar fortlaufend nur 10 zeilen Kommentare verschwinden
Problem Kommentarzeichen CommandButton Kommentar zuordnen
allgemein Datei, Seite einrichten, Tabelle, Kommentare grau
Einfügen von Zeilen oberhalb ändert Kommentargr Kommentar Feld
Kommentar Formatierung Kommentare per Makro eintragen
Kommentare in geschütztem Blatt von AA22 nach Kommentar B5 kopieren
Kommentar automatisch formatieren