Vereinfachung VBA-Code

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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Vereinfachung VBA-Code

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

305 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread