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
|