Register in Mappe nach Auswahl kopieren
eric1
das geht doch sicher einfacher als ich das mache (es funktioniert) :
' es werden alle Zeilen des Registers 1 in ein anderes Register kopiert
' wenn in Spalte A 1 steht, dann in Register 2
' wenn in Spalte A 2 steht, dann in Register 3 usw.
' es muss eine Aufteilung nach Spalte A in ca. 30 Register erfolgen
Sub Zeilen_kopieren()
Dim a As Long, i As Long
Application.ScreenUpdating = False
a = 1
For i = 1 To 65000
With Worksheets(1)
If .Cells(i, 1) = "1" Then
.Rows(i).Copy _
Destination:=Worksheets(2).Rows(a)
a = a + 1
End If
End With
Next i
a = 1
For i = 1 To 65000
With Worksheets(1)
If .Cells(i, 1) = "2" Then
.Rows(i).Copy _
Destination:=Worksheets(2).Rows(a)
a = a + 1
End If
End With
Next i
a = 1
For i = 1 To 65000
With Worksheets(1)
If .Cells(i, 1) = "3" Then
.Rows(i).Copy _
Destination:=Worksheets(3).Rows(a)
a = a + 1
End If
End With
Next i
Application.ScreenUpdating = True
End Sub
Vielen Dank im voraus für Eure Hilfe ERIC
Anzeige