Hallo, ich könnte es noch nicht lösen, er schreibt jetzt die Werte Waggereicht da wo sie hin sollen, aber die Flaschen Werte (12, 16,18), sprich die, die da nicht gehören.
Weiß jemand wo der Fehler liegt?
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, 12).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 'wenn Wert in A größer als B2 und kleiner als C2
.Cells(lngZeile, 1).Font.Bold = True 'Fett
'.Cells(lngZeile, 1).Interior.ColorIndex = 3 'Hintergrund Rot
For lngSpalte = 5 To lngLetzteSpalte
If .Cells(2, lngSpalte).Value = "" Then
.Cells(2, lngSpalte).Value = .Cells(lngSpalte, 1).Value
End If
Next lngSpalte
End If
Next lngZeile
End With
End Sub
Dankeschön
|