Du Until ... Loop + Worksheets.Count Problem
01.02.2016 23:44:03
gorch
kann mir jemand sagen, wie ich innerhalb einer Do Until ... Loop Schleife Tabellenblätter nach und nach durchlaufen lasse?
Ich bin dabei Formatierungen von 50 Tabellenblättern per makro zu händeln. Das ist der Stand bisher:
On Error Resume Next
Application.DisplayAlerts = False
Application.EnableEvents = False
Application.ScreenUpdating = False
Dim StartPunkt, ZielPunkt, PfadQuelle, PfadZiel As String
Dim TabellenBlatt1 As Worksheet
Dim TabellenBlatt2 As Worksheet
Dim Merge As Workbook
Dim Merge2 As Workbook
Dim i As Integer
Dim Sheet As Worksheet
Dim StartTimer, EndTimer, UsedTimer
StartTimer = Now()
i = 1
PfadZiel = "C:\Users\geb\Desktop\Test\"
PfadQuelle = "C:\Users\geb\Desktop\Test2\"
Set Sheet = Worksheets(1)
Set Merge = Workbooks.Open(PfadQuelle & "Merge.xlsx")
Set Merge2 = Workbooks.Open(PfadQuelle & "Merge2.xlsx")
ZielPunkt = Merge.Worksheets(4).Range("A1")
StartPunkt = Merge2.Worksheets(4).Range("A1")
Do Until Sheet Is Nothing
If StartPunkt = ZielPunkt Then
Merge.Activate
ActiveWorkbook.Worksheets(4).Select
ActiveSheet.Range("D7:D300").Select
Selection.Copy
Workbooks.Open (PfadZiel & "SuSa's.xlsx")
ActiveWorkbook.Worksheets(1).Range("A1").Select
Selection.PasteSpecial xlPasteValues
usw.....
ZielPunkt = Merge.Worksheets(5).Range("A1")
StartPunkt = Merg2.Worksheets(5).Range("A1")
End If
Loop
Mir fehlen auf jeden Fall die Kenntnisse, um innerhalb der Schleife, die angesprochenen Worksheets immer um ein Worksheet nach Rechts wandern zu lassen
(sozusagen ActiveWorkbook.Worksheets(4+1).Select)
Wie ist das möglich?
Bin für jeden Hinweis dankbar!