AW: Daten sortieren
10.04.2021 13:42:05
Nepumuk
Hallo Marko,
so?
Option Explicit
Public Sub Aufteilen()
Dim lngRow As Long, lngRowLieferant As Long, lngRowMitglied As Long
lngRowLieferant = 2
lngRowMitglied = 2
With Worksheets("Daten")
For lngRow = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
If .Cells(lngRow, 1).Value = "Lieferant" Then
Worksheets("Lieferant").Cells(lngRowLieferant, 1).Value = _
.Cells(lngRow, 1).Value
Worksheets("Lieferant").Cells(lngRowLieferant, 2).Value = _
.Cells(lngRow, 3).Value
lngRowLieferant = lngRowLieferant + 1
ElseIf .Cells(lngRow, 1).Value = "Mitglied" Then
Worksheets("Mitglied").Cells(lngRowMitglied, 1).Value = _
.Cells(lngRow, 1).Value
Worksheets("Mitglied").Cells(lngRowMitglied, 2).Value = _
.Cells(lngRow, 3).Value
lngRowMitglied = lngRowMitglied + 1
End If
Next
End With
End Sub
Gruß
Nepumuk