If or Bedienung
20.11.2018 18:26:48
Christian
ich sehe meinen fehler einfach nicht. Ich möchte in einer Spalte alle Zellen umbennen, die den Wert POitem oder PO-SHN beeinhalten, mit einem der Kriterien geht es aber nicht mit beiden zusammen. Dann bekomme ich die Meldung "Typen unverträglichkeit" also wenn ich das or weg lasse, funktioniert die Formel.
Woran kann es liegen? Vielen Dank und beste Grüße
Christian
Option Explicit
Sub Anfang()
Dim wbRohdaten As Workbook
Dim wsDaten As Worksheet
Dim wsZiel As Worksheet
Dim lngLZeileQuelle As Long
Dim lngLZeileZiel As Long
Dim lngAktZeile As Long
Dim lngKopiereBis As Long
lngLZeileQuelle = wsDaten.Cells.Find("*", wsDaten.Range("A1"), xlFormulas, xlWhole, xlByRows, _
_
xlPrevious).Row 'Bis zur letzten Zeile
With wsDaten
lngKopiereBis = lngLZeileQuelle
For lngAktZeile = lngLZeileQuelle To 3 Step -1
If Left(.Range("M" & lngAktZeile).Value, 12) = "POitem" Or "PO-Shn" Then
.Rows(lngAktZeile).Value = "Open PO"
End If
Next lngAktZeile
End With
End Sub