ich habe 2 Programme die ich miteinander kombinieren muss:
Eines geht über alle Dateien über ein Verzeichnis und in diesen Dateien habe ich bisher eine Tabelle ausgelesen und kopiert.
Jetzt muss ich eine Schleife über mehrere Tabellen machen die zwischen den Tabellen "Start" und "End" liegen.
'-------------------------------------'
' Benötigte Sheets
'-------------------------------------'
Dim idx1 As Long
Dim idx2 As Long
Dim xInput As Long
idx1 = Worksheets("Start").Index
idx2 = Worksheets("End").Index
'-------------------------------------'
' Daten auslesen und in Auswertung kopieren
'-------------------------------------'
For xInput = idx1 + 1 To idx2 - 1
xInput.Visible = xlSheetVisible
xInput.Activate
xInput.Range("A11:" & JClastcol & Cells(Rows.Count, 1).End(xlUp).Row).Copy
meins.Activate
MySheet.Activate
With MySheet
.Range("A" & .Cells(Rows.Count, 1).End(xlUp).Row + 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End With
Next xInput
Bei der Zeile
xInput.Visible = xlSheetVisible
läuft er in den Fehler "ungültiger Bezeichner".
Es hat wahrscheinlich etwas mit den Variablen zu tun? xInput muss wohl ein worksheet sein aber das geht auch nicht:(
Findet jemand den Fehler? Die Schleife soll alle Tabellen zwischen Start und End durchlaufen.
Vielen Dank und viele Grüße Lutz