folgenden VBA-Code habe ich mir aus dem Internet und dem Forum zusammen gesucht.
Sub Test1_Paid()
Dim db As Worksheet, Test1 As Worksheet
Dim x As Long, y As Long, lngZeilen As Long
Set db = Worksheets("Rohdaten")
Set Test1 = Worksheets("Test1")
lngZeilen = db.Cells(db.Rows.Count, 2).End(xlUp).Row
x = 2
For y = 1 To lngZeilen
If db.Cells(y, 8).Value Like "Test1" And db.Cells(y, 6).Value Like "PAID" Then
db.Rows(y).Copy Test1.Rows(x)
x = x + 1
End If
Next y
End Sub
Sub Test1_Backpaid()
Dim db As Worksheet, Test1_Testwert As Worksheet
Dim x As Long, y As Long, lngZeilen As Long
Set db = Worksheets("Rohdaten")
Set Test1_Testwert = Worksheets("Test1_Testwert")
lngZeilen = db.Cells(db.Rows.Count, 2).End(xlUp).Row
x = 2
For y = 1 To lngZeilen
If db.Cells(y, 8).Value Like "Test1" And db.Cells(y, 6).Value Like "BACKPAID" Then
db.Rows(y).Copy Test1_Testwert.Rows(x)
x = x + 1
End If
Next y
End Sub
Sub Test1_Refunded()
Dim db As Worksheet, Test1_Testwert As Worksheet
Dim x As Long, y As Long, lngZeilen As Long
Set db = Worksheets("Rohdaten")
Set Test1_Testwert = Worksheets("Test1_Testwert")
lngZeilen = db.Cells(db.Rows.Count, 2).End(xlUp).Row
x = 2
For y = 1 To lngZeilen
If db.Cells(y, 8).Value Like "Test1" And db.Cells(y, 6).Value Like "REFUNDED" Then
db.Rows(y).Copy Test1_Testwert.Rows(x)
x = x + 1
End If
Next y
End Sub
Sub Repayer_Paid()
Dim db As Worksheet, Repayer As Worksheet
Dim x As Long, y As Long, lngZeilen As Long
Set db = Worksheets("Rohdaten")
Set Repayer = Worksheets("Repayer")
lngZeilen = db.Cells(db.Rows.Count, 2).End(xlUp).Row
x = 2
For y = 1 To lngZeilen
If db.Cells(y, 8).Value Like "REPAYER" And db.Cells(y, 6).Value Like "PAID" Then
db.Rows(y).Copy Repayer.Rows(x)
x = x + 1
End If
Next y
End Sub
Leider passiert nicht ganz das was ich mir vorstelle.
Er kopiert a) nicht alle Werte die die vorgegeben Werte enthalten und b) blendet er Zeilen einfach aus bzw. überschreibt Werte. Besonders bei dem Makro 2 und 3 ist es wichtig das er die Werte nicht überschreibt.
Habt ihr da ne Idee was ich falsch gemacht habe bzw. was ich besser machen kann?