|
Hi Leute,
ich kann leider meinen fehler in meinem VBA code nicht finden. Irgendwie habe ich momentan ein brett vorm kopf :/
könnte mal jemand drüber schauen?
Sub Abgleich()
Dim I, J, K, L, M, N As Integer 'Zaehler
Dim Quelle As String 'Konstante fuer Worksheet 1
Dim Ziel As String 'Konstante fuer Worksheet 2
Dim Anmerkung1English As String 'Speicher für Anmerkung 1 (Englisch)
Quelle = "S"
Ziel = "K"
Application.ScreenUpdating = False
For I = 0 To 1200
If Worksheets(Quelle).Cells(I, 9).Value = "wahr" Then
For K = 0 To 1000
If Worksheets(Quelle).Cells(I, 15).Value = Worksheets(Ziel).Cells(K, 6).Value And Worksheets(Quelle).Cells(I, 16).Value = Worksheets(Quelle).Cells(K, 7).Value And Worksheets(Quelle).Cells(I, 4).Value = Worksheets(Ziel).Cells(K, 4).Value Then
Worksheets(Ziel).Cells(K, 9).Value = "X"
Exit For
End If
Next K
'
Worksheets(Ziel).Cells(I, 9).Value = "X"
End If
Next I
End Sub
|