Hallo Zusammen,
hab mal wieder ein kleines Problem:
Ich durchsuche eine Spalte nach einem Wert, wenn dieser vorhanden soll die ganze Zeile in ein anderes Tabellenblatt kopiert werden.
Geht auch ohne Probleme mit dem untenstehenden Code.
Aber nur mit einer Bedingung. Ich möchte das aber mit zwei Bedingungen etwa so:
If rw.Cells(8).Value = "PPManufacturingSolution" Or "SAP Arbeitsplan "Then und das klappt nicht. Wie muss ich den Code anpassen.
Gruß und Danke Wolfi
Sub SuchenUndKopieren() Dim wksQ As Worksheet 'Quell-Tabelle Dim wksZ As Worksheet 'Ziel-Tabelle Dim rng As Range Dim lngQ As Long Dim lngz As Long Set wksQ = Sheets("SAP_Export") Set wksZ = Sheets("SAP_Export_2") lngQ = wksQ.Range("H65536").End(xlUp).Row lngz = wksZ.Range("A65536").End(xlUp).Row + 1 For Each rw In wksQ.Rows If rw.Cells(8).Value = "PPManufacturingSolution" Then rw.EntireRow.Copy wksZ.Cells(lngz, 1) lngz = lngz + 1 End If Next End Sub