ich verarbeite mit einem relativ langen Code wöchentlich ein größere Excel-Datei (ca. 800 bis 2000 Zeilen bei 28 Spalten). Dabei gehe ich mit einer For Next Schleife durch die gesamte Datei. Anhand von Zellwerten werden die Datenzeilen den Abteilungen zugeordnet und in deren Report (seperates Worksheet je Abteilung) kopiert. So weit so gut - läuft.
Jetzt habe ich aber das Problem, dass mein Identifier nicht mehr einem kompletten Zellinhalt entspricht, sondern dass ich nach zwei Wörtern in einem Freitextfeld suche. Bei einem Treffer soll die betreffende Zeile in das Worksheet "Technical Breaks" ausgesteuert (kopiert) werden.
For posRET = 2 To ZeileRET
If ThisWorkbook.Worksheets("Sortier RET").Cells(posRET, 27).Value = "CoRona" Then
If ThisWorkbook.Worksheets("Sortier RET").Cells(posRET, 22) 'enthält "technical Break" Then
ThisWorkbook.Worksheets("Sortier RET").Range("A" & posRET & ":AF" & posRET).Copy
ThisWorkbook.Worksheets("Technical Breaks").Range("E" & posTechnical).PasteSpecial Paste:=xlValue
With ThisWorkbook.Worksheets("Technical Breaks").Range("A" & posTechnical & ":AE" & posTechnical)
.Borders(xlEdgeBottom).LineStyle = xlContinuous
.Borders(xlEdgeBottom).Weight = xlMedium
.Borders(xlEdgeBottom).Color = RGB(128, 128, 128)
End With
posTechnical = posTechnical + 1
End If
End If
...
Next posRET
Wie ist diese Codezeile auszuformulieren, dass ich einen Treffer erhalte:
If ThisWorkbook.Worksheets("Sortier RET").Cells(posRET, 22) 'enthält "technical Break" Then
?
posRet ist Integer Variable für die gerade zu bearbeitende Zeile
ZeileRet ist Integer Variable für die letzte zu bearbeitende Zeile und wurde vorher bestimmt.
Könnt Ihr helfen?
Danke
Robert