Guten morgen zusammen,
ich möchte folgenden Code in eine forward-schleife einbinden, so dass H5 bei jedem Durchlauf jeweils immer um eine Zeile verändert wird, also in H6, H7... bis H38. ZUdem soll sich auch der Sheetname auch immer um eins größer werden, also 1, 2, 3 bis 34

If Worksheets("Spieltage").Range("H5") = 1 Then
Sheets("1").Select
Range("GP3").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Range("D1").Select
Else
End If
mfg
Thomas M.