|
Wie auch immer ich habe es selbt umschifft. Es gibt in dem origen Code wohl einen Fehler beim Zugriff auf das andere Tabellenblatt.
Nun meine Version welche fuktioniert, die Zellen aber einzeln umkopiert.
Private Sub CommandButton1_Click()
Dim i, j, x, mKST, mWG As Long 'Zählervariablen
With Worksheets(1)
mKST = IIf(Len(.Cells(.Rows.Count, 1)), .Rows.Count, .Cells(.Rows.Count, 1).End(xlUp).Row) 'Anzahl der Zeilen Spalte 1 ermitteln KST
mWG = IIf(Len(.Cells(.Rows.Count, 5)), .Rows.Count, .Cells(.Rows.Count, 5).End(xlUp).Row) 'Anzahl der Zeilen Spalte 5 ermitteln WG
End With
x = 2 'Zeile wo ich anfange zu schreiben
For i = 2 To mKST
For j = 2 To mWG
Worksheets(1).Cells(i, 1).Copy Destination:=Worksheets(2).Cells(x, 1)
Worksheets(1).Cells(i, 2).Copy Destination:=Worksheets(2).Cells(x, 2)
Worksheets(1).Cells(i, 3).Copy Destination:=Worksheets(2).Cells(x, 3)
Worksheets(1).Cells(j, 6).Copy Destination:=Worksheets(2).Cells(x, 4)
Worksheets(1).Cells(j, 7).Copy Destination:=Worksheets(2).Cells(x, 5)
x = x + 1
Next j
Next i
Worksheets(2).Select
End Sub
|