Hallo,

ich habe eine Spalte mit in deren Zeilen verschiedene Formeln stehen (z.B. =WENN($D$14>=1;E62;0)) dadruch er gibt sich ja ein bestimmter Wert. Diese verschiedenen Werte möchte ich gerne absteigend sortieren. Ich habe schon folgendes probiert:

Range("G62:G8797").Select ActiveWorkbook.Worksheets("Lastgang-Simulation").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Lastgang-Simulation").Sort.SortFields.Add Key:= _ Range("G62"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _ xlSortNormal With ActiveWorkbook.Worksheets("Lastgang-Simulation").Sort .SetRange Range("G62:G8797") .Header = xlGuess .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply

Lieder bekomme ich immer nur eine Null heraus. Habe auch schon probiert, das ganze erst in eine andere spalte zu kopieren, aber das funktioniert leider auch nicht. Ich bin über jede Hilfe dankbar. Besten dank im Voraus!

Liebe Grüße

Hallo ihr Lieben, ich würde gerne folgendes mit Hilfe von Makros programmieren:

Ich habe eine Datenbank mit ca 70 Spalten, die jeweils 8700 Werte (also Zeilen darunter besitzen) Die Spalten habe ich von 1-70 durchnummeriert. Es handelt sich um Gebäudearten Jetzt möchte ich mit Hilfe einer Maske etc, dass der Benutzter des Programms sich zwei Spalten d.h. zwei Gebäude auswählen auswählen kann mit Hilfe eines Drop Down Menüs. Außerdem sollen zwei Button vorhanden sein. Einmal "Abbrechen" und Berechnen". Beim Abbrechen soll der Vorgang abgebrochen werden und beim drücken auf "Berechnen" sollen die beiden ausgewählten Spalten miteinander addiert werden. Also z.B. A1+B1 = C1 ;A2+B2 =C2 usw. Das heißt, dass ich danach 8700 Werte habe. Diese Summen müssen dann der Größe nach absteigend sortierten werden und als Graph in ein Diagramm gezeichnet werden.

So ich hoffe das ist verständlich erklärt. Ich würde mich über jeden HInweis freuen, da ich ein totaler Neuling in Sachen VBA und Makros bin. Vielen lieben Dank schon im Voraus