ich habe folgenden Code, dieser wird durchlaufen und zeigt keine Fehler, das Problem ist, dass das Excel nichts macht!! Vielleicht hat jmd. einen Tip? Danke im Voraus!
Gruß Shayev
lngTrgLastRow = 7
For i = 1 To Worksheets.Count
If ThisWorkbook.Worksheets(i).Name = "Station" & i Then
lngSrcLastRow = ThisWorkbook.Worksheets(i).Cells(76, 2).End(xlUp).Row
With ThisWorkbook.Worksheets(i)
.Range(.Cells(7, 2), .Cells(lngSrcLastRow, 15)).Copy
End With
ThisWorkbook.Worksheets("Line Balancing Summary Data").Cells(lngTrgLastRow, 2). _
PasteSpecial Paste:=xlPasteValues
lngTrgLastRow = ThisWorkbook.Worksheets("Line Balancing Summary Data").Cells(754 _
, 2).End(xlUp).Row + 1
For s = 26 To Sheets("Overview").UsedRange.Columns.Count
If Sheets("Overview").Cells(6, s) "=" And ThisWorkbook.Worksheets(i).Name = "Station" & i Then
ThisWorkbook.Worksheets(i).Cells(76, 9).Copy
ThisWorkbook.Worksheets("Overview").Cells(6, s).PasteSpecial Paste:=xlPasteValues
ThisWorkbook.Worksheets(i).Cells(76, 10).Copy
ThisWorkbook.Worksheets("Overview").Cells(7, s).PasteSpecial Paste:=xlPasteValues
ThisWorkbook.Worksheets(i).Cells(76, 11).Copy
ThisWorkbook.Worksheets("Overview").Cells(8, s).PasteSpecial Paste:=xlPasteValues
ThisWorkbook.Worksheets(i).Cells(76, 12).Copy
ThisWorkbook.Worksheets("Overview").Cells(9, s).PasteSpecial Paste:=xlPasteValues
ThisWorkbook.Worksheets(i).Cells(75, 15).Copy
ThisWorkbook.Worksheets("Overview").Cells(11, s).PasteSpecial Paste:=xlPasteValues
End If
Next s
End If
Next i