Hallo, ich versuche mir ein Makro zu programmieren, welches auf einen Schlag alle Internetseiten in Spalte B öffnet, scheitere aber leider.
Habs erstmal mit einem Makro versucht, welches nur eine Seite öffnet. Das hat geklappt.
Sub Internet()
ActiveWorkbook.FollowHyperlink Address:=Range("B1").Value, NewWindow:=True
End Sub
Jetzt hab ich mir gedacht, naja wenn du alle haben willst, bestimmst du die letzte Zeile und gibst statt B1 die ganze Range an,
aber
Sub Internet2()
With Worksheets("Liste")
letzte = .Cells(.Rows.Count, 1).End(xlUp).Row
ActiveWorkbook.FollowHyperlink Address:=Range("B1:B" & letzte).Value, NewWindow:=True
End With
End Sub
meldet Typen unverträglich und jetzt weiß ich nicht mehr weiter.
Wer kann mir da helfen?
Ein paar Infos.
1. Keine Überschriften
2. Keine Leerzellen
3. ausschließlich URL's
4. Keine Hyperlinks
Danke
Christian