Sub kopieren_ELO_Stoer()
Dim rngC As Range
Dim lngZ As Long
lngZ = 54
Application.ScreenUpdating = False
Sheets("Bericht").Select
Range("C54:L83").Select
Selection.ClearContents
With Sheets("Stoer")
For Each rngC In .Range(.Cells(2, 1), .Cells(Rows.Count, 1).End(xlUp))
If rngC.Offset(, 1) > 1 Then
rngC.Resize(, 4).Copy
Sheets("Bericht").Cells(lngZ, 3).PasteSpecial xlValues
lngZ = lngZ + 1
End If
Next
Application.CutCopyMode = False 'Kopierrahmen deaktivieren
End With
Application.ScreenUpdating = True
End Sub
Nun möchte ich gerne die Spalten 1 bis 4 in verschiedenen Spalten zurückgeben!z.B. Spalte 1 soll in Spalte 3 zurückgegeben werden, 2 in 4 und 3 in 9 und 4 in 10!
Jetzt bekomme ich ja direkt die Daten in Spalte 1 bis 4 ausgegeben!
Wie mache ich das?
Gruß