Hi zusammen!
Folgendes Codeschnipsel bringt mich langsam zur Weissglut.
Hintergrund: Ich habe zwei Blätter in einer Arbeitsmappe.
In Blatt 1 (stxt_bagt) sind Kundennummern alphanumerisch verzeichnet.
In Blatt 2 (data) werden tägl aktualisierte Daten importiert. Nun sollen die Kundennummern von Blatt 1 in Spalte vier von Blatt 2 gesucht und in diesem Blatt 2 mit einer 0 in Spalte 19 gekennzeichnet werden.
Bis hierher funktioniert alles bestens....
Liegt keine Übereinstimmung vor, soll an Stelle der 0 eine 1 geschrieben werden. Und hier ........ rennt das Excel (scheinbar) in eine Endlosschleife o.ä., ist nur noch über den Taskmanager zu beenden.
Hat jemand einen Tipp wo mein Fehler liegt?
Hier der Code:
Dim LoI As Long
Dim LoJ As Long
Dim last_bagt As Long
Dim last_data As Long
Application.ScreenUpdating = False
With Worksheets("stxt_bagt")
last_bagt = IIf(IsEmpty(.Cells(Rows.Count, 1)), .Cells(Rows.Count, 1).End(xlUp).Row, .Rows.Count)
End With
With Worksheets("data")
last_data = IIf(IsEmpty(.Cells(Rows.Count, 4)), .Cells(Rows.Count, 4).End(xlUp).Row, .Rows.Count)
End With
For Lo_data = 5 To last_data
For Lo_bagt = 1 To last_bagt
If Worksheets("stxt_bagt").Cells(Lo_bagt, 1) = Worksheets("data").Cells(Lo_data, 4) Then
Worksheets("data").Cells(Lo_data, 19) = 0
Else
Worksheets("data").Cells(Lo_data, 19) = 1 '<---- HIER IST DER FEHLER (?)
End If
Next Lo_bagt
Next Lo_data
Application.ScreenUpdating = True
Sobald ich die gekennzeichnete Zeile auskommentiere klappt alles, nur wie gesagt leider ohne der 1 in Spalte 19.
DANKE euch!!
Philipp