Hallo liebe Mitwisser und Besserwisser,
habe folgendes Problem.
Im Sheet"Eingabe", Spalte"E" , ab Zeile"9" befinden sich Werte im Bereich von -10 bis 44.
Möchte gerne, dass mir diese Werte sortiert im Sheet"Grundflächen Volumina",in Zeile"3" , ab Spalte"9" eingetragen werden.
Im Sheet"Eingabe" sind die Werte unsortiert und kommen auch doppelt vor.
Unten aufgeführtes Makro funktioniert soweit auch, allerdings werden die Zahlen -0,5 , 0,0 und 0,5 zusammengefasst bzw. 0,0 weggelassen beim Eintragen auf Zielsheet.
Habe versucht, das Problem durch Runden zu lösen, funktioniert aber nicht.
Dim Sp(-10 To 44)
Zeile = 9
Do While Sheets("eingabe").Cells(Zeile, 5) ""
Sp(Cells(Zeile, 5)) = Round((Cells(Zeile, 5) * 0.999), 1)
Zeile = Zeile + 2
Loop
Spalte = 8
For bereich = -10 To 44
If Sp(bereich) "" Then
Spalte = Spalte + 1
Sheets("Grundflächen Volumina").Cells(3, Spalte) = Sp(bereich)
End If
Next bereich
Jemand eine Idee, wie ich das lösen kann?
Ansatz von Peter im Beitrag 15.02.05 11:03Uhr funktioniert, aber leider nicht wie ich es brauche. (Sorry Peter, hab mich falsch ausgedrückt.)
Danke erstmal
Gruß Henrik