Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
25.04.2024 11:49:37
Array verwenden
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1652to1656
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
1652to1656
1652to1656
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Alle Hyperlinks im Tabellenblatt öffnen

Alle Hyperlinks im Tabellenblatt öffnen
26.10.2018 22:28:29
Spenski
https://www.herber.de/bbs/user/124940.xlsm
Hallo , ich brauche folgende Hilfe.
Ich möchte, dass sich alle hyperlinks (Spalte L) im Browser öffnen.
Damit Später nicht hunderte Fenster aufgehen, würde ich gerne in Spalte J ein Land markieren und nur die Links von Spielern aus diesen land sollen aufgehen per Button.
Hat eventuell lust mir dabei weiter zu helfen?
Danke Elliss

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Alle Hyperlinks im Tabellenblatt öffnen
27.10.2018 00:00:25
Zwenn
Hallo Elliss,
das untenstehende kleine Makro öffnet alle vorhandenen Links in einem selektierten Bereich. Die Länderauswahl ist da nicht drin. Habe es selber nur aus einem anderen Forum (Link der Quelle in den Kommentaren). Falls Du es so nicht nutzen willst, bietet es einen guten Ausgangspunkt und muss entsprechend um Deine Länderauswahl ergänzt werden.

Sub LinksInMarkierungÖffnen()
'Makro aus einem Internetforum.
'Es wird jede Zelle in einer Markierung auf einen Link geprüft.
'Ist einer hinterlegt, wird er im Browser geöffnet.
'Auf diese Weise lassen sich beliebig viele Links auf einmal öffnen.
'Quelle:
'http://www.ms-office-forum.net/forum/showthread.php?t=238882
Dim c As Range
For Each c In Selection
If c.Hyperlinks.Count Then
c.Hyperlinks(1).Follow
End If
Next c
End Sub
Viele Grüße,
Zwenn
Anzeige
AW: Alle Hyperlinks im Tabellenblatt öffnen
27.10.2018 08:16:35
Spenski
Hallo Zwenn
Leider passiert bei dem Code gar nix.
Trotzdem Danke
mfg
Elliss
AW: Alle Hyperlinks im Tabellenblatt öffnen
27.10.2018 11:34:14
Zwenn
Hallo Elliss,
der Code funktioniert ausgezeichnet. Das weiß ich so genau, weil wir ihn in der Firma seit Jahren benutzen ;-) Ich hatte ja geschrieben, dass er für Deine Wünsche erweitert werden muss. Aber inzwischen hat Sepp Dir ja eine Lösung geliefert :-)
Viele Grüße,
Zwenn
AW: Alle Hyperlinks im Tabellenblatt öffnen
27.10.2018 08:29:38
Sepp
Hallo Ellis,
gewünschte Spieler in spalte J auswählen und Code ausführen.
Modul Modul1 
Option Explicit 
 
Sub openLinks() 
  Dim rng As Range, rngLink As Range 
   
  Set rngLink = Intersect(Range("J:J"), Selection) 
  If Not rngLink Is Nothing Then 
    For Each rng In rngLink 
      If rng.Offset(0, 1) Like "http*://*" Then 
        ThisWorkbook.FollowHyperlink rng.Offset(0, 1) 
      End If 
    Next 
  Else 
    MsgBox "Keine Markierung in Spalte J!" 
  End If 
   
  Set rngLink = Nothing 
End Sub 


VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

 ABCDEF
1Gruß Sepp
2
3

Anzeige
AW: Alle Hyperlinks im Tabellenblatt öffnen
27.10.2018 08:38:11
Spenski
Hallo Sepp , erstmal einen schönen Samstag morgen :D
Funktioniert, nicht ganz was ich suchte , aber irgendwie viel besser :D
Dank dir.
AW: Alle Hyperlinks im Tabellenblatt öffnen
27.10.2018 08:41:06
Sepp
Hallo Ellis,
dann musst du halt genauer beschreiben, was du suchst!
 ABCDEF
1Gruß Sepp
2
3

Anzeige
AW: Alle Hyperlinks im Tabellenblatt öffnen
27.10.2018 08:44:30
Spenski
Hallo Sepp, das war nicht böse gemeint.
...,würde ich gerne in Spalte J ein Land markieren und nur die Links von Spielern aus diesen land sollen aufgehen per Button.
Damit war gemeint, dass wenn ich zb J6 Markiere alle Spieler aus diesem Land aufgehen, in dem Fall Griechenland/Hellas
mfg
Elliss
AW: Alle Hyperlinks im Tabellenblatt öffnen
27.10.2018 08:56:59
Sepp
Hallo Ellis,
dann halt so.
Sub openLinks2()
  Dim rng As Range
  
  If Not Intersect(Range("J:J"), ActiveCell) Is Nothing Then
    For Each rng In Range("J:J").SpecialCells(xlCellTypeConstants)
      If rng = ActiveCell Then
        If rng.Offset(0, 1) Like "http*://*" Then
          ThisWorkbook.FollowHyperlink rng.Offset(0, 1)
        End If
      End If
    Next
  Else
    MsgBox "Keine Markierung in Spalte J!"
  End If
  
End Sub


VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

 ABCDEF
1Gruß Sepp
2
3

Anzeige
AW: Alle Hyperlinks im Tabellenblatt öffnen
27.10.2018 09:23:25
Spenski
Danke

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige