Liebes Forum,
mal wieder stehe ich da und kann nichts anderes als fragen ...
In einem Sheet verkette ich Zeile für Zeile die Einträge von Spalten (die i-Schleife). Daraus entsteht der String "str_Such". Dieser wird anschließend mit anderen Strings verglichen: "str_Durchsuchter" (die j-Schleife).
Problem: Das dauert sehr lange.
Frage: Wie kann man das optimieren?
Hier der Code dazu (die Einrückungen funktionieren im Browser nicht richtig):
For i = 2 To int_lastRow_rtm_doc
str_Such = Sheets("rtm_doc").Cells(i, 2) & Sheets("rtm_doc").Cells(i, 3)
For j = 2 To int_lastRow_rtm_doc
If j i Then
str_Durchsuchter = Sheets("rtm_doc").Cells(j, 2) & Sheets("rtm_doc").Cells(j, 3)
If str_Such = str_Durchsuchter Then
Sheets("rtm_doc").Rows(j).Delete
i = i - 1
int_lastRow_rtm_doc = Sheets("rtm_doc").Cells(Rows.Count, 1).End(xlUp).Row
Exit For
End If
End If
Next j
Next i
Es wäre wirklich nett, wenn ihr mir helfen würdet.
Danke schon mal im Voraus,
NicSteel