Hallo, Ich stehe momentan auf dem Schlauch und komme nicht mehr weiter.

Ich möchte Zahlen die in Spalte A stehen mit den Zahlen in B2 und C2 stehen vergleichen, wenn sie ins Bereich passen, möchte ich diese Zahlen in E2, F2, G2, H2 usw. nach einander eintragen.

Bild davon: https://picload.org/view/dopowgci/excel.png.html

Mein Code sieht so aus:

Option Explicit
 
Public Sub test()
Dim lngZeile As Long
Dim lngLetzteZeile As Long
Dim lngSpalte As Long
Dim lngLetzteSpalte As Long

With Tabelle1
lngLetzteZeile = .Cells(Rows.Count, 1).End(xlUp).Row                'letzte Zelle
lngLetzteSpalte = .Cells(2, 10).Column    'letzte Spalte

    For lngZeile = 2 To lngLetzteZeile                              'Schleife von 2 bis Ende
            
        If .Cells(lngZeile, 1).Value > .Cells(2, 2).Value And .Cells(lngZeile, 1).Value < .Cells(2, 3).Value Then

            .Cells(lngZeile, 1).Font.Bold = True                    'Fett
            '.Cells(lngZeile, 1).Interior.ColorIndex = 3             'Hintergrund Rot
        End If
        
        For lngSpalte = 5 To lngLetzteZeile
        
            If .Cells(2, lngSpalte).Value = "" Then

                .Cells(2, lngSpalte).Value = lngZeile

            End If
            
        Next
    Next lngZeile

End With
End Sub

Leider werden die Zahlen aus Spale A2 bis Ende nicht richtig Einordnen.

Hoffe jemand kamm mir weiter Helfen

Dankeschön