Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Link in Zellen finden und ohne kopieren

Link in Zellen finden und ohne kopieren
07.01.2016 15:26:00
Thomas
Hallo liebe Excel Gemeinde,
nun hab ich nach langem mal wieder Probleme.
Ich kopiere mir eine Mitgliederliste in mein Tab3 wo dann das Bild und der Name verlinkt. Dann sind noch Zellen mit Text dazwischen.
Die Bilder/Objekte lösche ich mit diesem Code.
~

Sub LoescheAlleGrafikobjekte()
If ActiveSheet.Shapes.Count > 0 Then
ActiveSheet.Shapes.SelectAll
Selection.ShapeRange.Delete
End If
End Sub
~
Mein Problem ist nun wie bekomme ich alle die Zellen (2 Spalten x Zeilen)mit den Namen (blau mit Unterstrich) in Tab 4 in die übernächste freie Spalte, ab Zeile 2 Sortiert A bis Z? Nur die Namen ohne Link!
Vielen Dank schon mal.
Gruß Thomas

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Link in Zellen finden und ohne kopieren
08.01.2016 07:35:45
Sepp
Hallo Thomas,
in ein allgemeines Modul, Tabellennamen und Bereich anpaasen!
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub extractFromLink()
Dim objLink As Hyperlink
Dim varOut() As Variant
Dim lngI As Long

With Sheets("Tab3").Range("A:B") 'Quellabelle und Bereich - Anpassen
  Redim varOut(1 To .Hyperlinks.Count, 1 To 1)
  For Each objLink In .Hyperlinks
    lngI = lngI + 1
    varOut(lngI, 1) = objLink.TextToDisplay
  Next
End With

With Sheets("Tab4") 'Zieltabelle - Name anpassen!
  'Spalte wird in Zeile 1 bestimmt!
  With .Cells(2, .Cells(1, .Columns.Count).End(xlToLeft).Column + 2).Resize(UBound(varOut, 1), 1)
    .Value = varOut
    .Sort Key1:=.Cells(1, 1), Order1:=xlAscending, Header:=xlGuess
  End With
End With

End Sub

Gruß Sepp

Anzeige
AW: Link in Zellen finden und ohne kopieren
08.01.2016 11:14:27
Thomas
Guten Morgen Sepp,
dein Hilfe wie immer perfekt auch von den anderen bisher wenn ich welche brauchte. Wie gesagt auf anhieb funktioniert es und macht genau das, Super!
Ich hab das zweite Problem nicht gleich mit rein um es übersichtlich zu halten. Ich vergleiche die zwei letzten beschriebenen Spalten des Tab4 händisch, markiere (Zelle rot) in der linken Spalte die Namen die rechts nicht mehr stehen und in der rechten Spalte suche ich die Namen die links nicht vorhanden sind und markiere die Zelle links von dem Namen da diese ja leer ist dann grün.
Wenn dies auch noch machbar wäre dann ist es mir eine große Hilfe.
Ich hoffe es ist so ok sonst packe ich dann alles in eins wenn ich wieder vor einem Berg stehe.
Vielen Dank und klasse Leistung an alle, Gruß Thomas!

Anzeige
AW: Link in Zellen finden und ohne kopieren
08.01.2016 12:15:24
Sepp
Hallo Thomas,
das kann man doch mit der bedingten Formatierung lösen.
Gruß Sepp

;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige