Hallo Forummitglieder,

ich habe ein kleines Makro programmiert, dass mir erlaubt Einträge automatisch in eine bestimmte Zelle einzufügen nach Eingabe. Hierzu mal ein teil meines Codes:

Im Modul:

Sub test()

Dim table As Worksheet, x As Long, y As Long, lngZeilen As Long

    Set table = Worksheets("Tabelle1")
    lngZeilen = table.Cells(table.Rows.Count, 1).End(xlUp).Row

For y = 3 To lngZeilen

    If table.Cells(y, 5) Like "Frankreich*" Or table.Cells(y, 5) Like "frankreich*" Then
        Cells(y, 22) = 1
            Else
                Cells(y, 22) = ""
    End If
        Next y


 For y = 3 To lngZeilen
   
   If Not IsEmpty(table.Cells(y, 10)) And table.Cells(y, 5).Value Like "Frankreich*" Or table.Cells(y, 5) Like "frankreich*" Then

        Cells(y, 23) = 1
           Else
             Cells(y, 23) = ""
    End If
        Next y


For y = 3 To lngZeilen


    If table.Cells(y, 12).Value >= Date And table.Cells(y, 5) Like "Frankreich*" Or table.Cells(y, 5) Like "frankreich*" Then

        Cells(y, 24) = 1
            Else
                Cells(y, 24) = ""
    End If
        Next y


 For y = 3 To lngZeilen


    If table.Cells(y, 12).Value <= Date And table.Cells(y, 5) Like "Frankreich*" Or table.Cells(y, 5) Like "frankreich*" Then

       Cells(y, 25) = 1
            Else
                Cells(y, 25) = ""
    End If
        Next y
   

End Sub

Aufruf der Prozedur:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Call test
Application.EnableEvents = True
End Sub

PROBLEM:

1.) Die Mehrfachnennungen von Schleifen ist wahrscheinlich kein guter Programmierstil, kann ich das iwie ineinander verschachteln?

Ich hoffe ihr könnt mir da weiterhelfen. Danke im Voraus!!

Grüße David ;)