Vereinfachung VBA-Code

Forumthread: Vereinfachung VBA-Code

18.05.2006 12:24:38

Tom

Hallo,
ich habe mit dem Rekorder folgendes Makro aufgezeichnet - funktioniert ganz gut nur ist es eben sehr umständlich und nicht variabel einsetzbar.
In Tabelle1 Spalte G stehen Hyperlinks (ca. 1000).
Es soll nun jeder einzelne Hyperlink geöffnet werden.
Danach soll der Text des geöffneten Hyperlinks in Tabelle kopiert werden.


Sub Übertrag()
Range("G7").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Sheets("Tabelle2").Select
Range("A1").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=18
Sheets("Tabelle1").Select
Range("G9").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Sheets("Tabelle2").Select
Range("A26").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=18
Sheets("Tabelle1").Select
Range("G12").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Sheets("Tabelle2").Select
ActiveWindow.SmallScroll Down:=0
Range("A46").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=-66
Range("A1").Select
End Sub

Wer hat ne Lösung wie es einfach geht...
TOM

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Vereinfachung VBA-Code

18.05.2006 12:40:42

Uduuh
AW: Vereinfachung VBA-Code

18.05.2006 12:49:11

Tom
AW: Vereinfachung VBA-Code

22.05.2006 13:44:58

Reinhard

AW: Vereinfachung VBA-Code

18.05.2006 12:40:42

Uduuh

Hallo,
ich sehe nur, dass du etwas in Tabelle2 einfügst, aber nie, dass du etwas kopierst. Anscheinend machst du das in einem anderen Prog, was vom Recorder nicht erfasst wird.
Mehr Info benötigt.
Gruß ausm Pott
Udo

AW: Vereinfachung VBA-Code

18.05.2006 12:49:11

Tom

Hi Udo,
Siehe anbei die Datei: https://www.herber.de/bbs/user/33750.xls
Daten in Tablle1 sind nur 1/100 von der tatsächlichen Datenmenge ...
Gruß
TOM

AW: Vereinfachung VBA-Code

22.05.2006 13:44:58

Reinhard

Hi Tom,
k.A warum gleich bei Add der Fehler 1004 kommt in derm Makro tt, das aufgezeichnete Makro funktioniert. phht muss noch wieder umgedreht werden.
Frage noch offen.

Option Explicit
Sub tt()
Dim h As Hyperlink
For Each h In ActiveSheet.Hyperlinks
With ActiveSheet.QueryTables.Add(Connection:=h.Address, Destination:=Range("I1"))
.Name = "list.php?id=3172&action=show&lang=D"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.Refresh BackgroundQuery:=False
End With
ActiveSheet.QueryTables(1).Delete
Next h
Range("A1").Select
End Sub
Sub tt3()
ActiveSheet.QueryTables(1).Delete
End Sub
Sub tt2()
Dim h
For Each h In ActiveSheet.Hyperlinks
MsgBox h.Address
Next h
End Sub
Sub Makro5()
' Makro5 Makro
' Makro am 22.05.2006 von r aufgezeichnet
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;ptth://www.dfb.de/dfb-info/juniorecke/boerse/list.php?id=3172&action=show&lang=D" _
, Destination:=Range("H1"))
.Name = "list.php?id=3172&action=show&lang=D"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.Refresh BackgroundQuery:=False
End With
End Sub

Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..

Beliebteste Forumthreads (12 Monate)

Forumthread: Vereinfachung VBA-Code

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread