VBA - Werte in mehrere spallten und zeilen suchen

Hallo liebe Leute,
mein Problem lautet wie folgt:
In einer Tabelle mit ca. 10.000 Zeilen und 26 Spalten, soll jede einzelne Zeile nach bestimmten Wert-Kombinationen durchsucht werden, falls z.B. in Zeile 3, Spalte C ein "NEIN" und in Spalte F ein "JA" steht soll die komplette Zeile in Tabellenblatt "Tabelle2" verschoben werden.
Oder wenn z.B. in Zeile 4, Spalte A ein "erledigt", in Spalte B ein "JA" und in Spalte Z ein "abgeschlossen" steht soll die komplette Zeile in Tabellenblatt "Tabelle3" verschoben werden.
Da ich leider im Archiv/Forum nur Makros finde die in einer Spalte suchen und nicht wie bei mir benötigt in 2 oder mehreren Spalten komme ich leider nicht weiter.
Ich wäre sehr dankbar wenn mir diesbezüglich irgendjemand weiterhelfen könnte, da ich mir seit tagen an dieser Sache die Zähne ausbeiße.
Mit freundlichen Grüßen
mihi

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

With Sheets(ws1) For i = lngLast1 To 1 Step - 1 If .Cells(i, 19) = "in Beschwerde" Or .Cells(i, 19) = "durchsetzbar" Then If .Cells(i, 23) = "Aberkennung" Then lngLast2 = Sheets(ws2).Cells(Rows.Count, 1).End(xlUp).Row .Range("A" & i).EntireRow.Copy Sheets(ws2).Cells(lngLast2 + 1, 1) .Range("A" & i).EntireRow.Delete End If End If Next End With

Hallo Mihi,
mal als Ansatz fuer deine beiden Beispiele:

Sub kopieren()
Dim i As Long, lngLast1 As Long, lngLast2 As Long, lngLast3 As Long
Dim ws1 As String, ws2 As String, ws3 As String
ws1 = "Tabelle1"
ws2 = "Tabelle2"
ws3 = "Tabelle3"
lngLast1 = Sheets(ws1).Cells(Rows.Count, 1).End(xlUp).Row
With Sheets(ws1)
For i = 1 To lngLast1
If .Cells(i, 3) = "NEIN" Then
If .Cells(i, 6) = "JA" Then
lngLast2 = Sheets(ws2).Cells(Rows.Count, 1).End(xlUp).Row
.Range("A" & i).EntireRow.Copy Sheets(ws2).Cells(lngLast2 + 1, 1)
End If
End If
Next
End With
With Sheets(ws1)
For i = 1 To lngLast1
If .Cells(i, 1) = "erledigt" Then
If .Cells(i, 2) = "JA" Then
If .Cells(i, 26) = "abgeschlossen" Then
lngLast3 = Sheets(ws3).Cells(Rows.Count, 1).End(xlUp).Row
.Range("A" & i).EntireRow.Copy Sheets(ws3).Cells(lngLast3 + 1, 1)
End If
End If
End If
Next
End With
End Sub

Gruss Torsten

With Sheets(ws1) For i = 1 To lngLast1 If .Cells(i, 19) = "in Beschwerde" Or .Cells(i, 19) = "durchsetzbar" Then If .Cells(i, 23) = "Aberkennung" Then lngLast2 = Sheets(ws2).Cells(Rows.Count, 1).End(xlUp).Row .Range("A" & i).EntireRow.Copy Sheets(ws2).Cells(lngLast2 + 1, 1) .Range("A" & i).EntireRow.Delete End If End If Next End With

Beliebteste Forumthreads (12 Monate)

VBA - Werte in mehrere spallten und zeilen suchen

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

367 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA - Werte in mehrere spallten und zeilen suchen

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

367 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread