Hallo zusammen,
habe folgendes Problem:
In einer Tabelle werden in Spalte A1-A150 Namen eingegeben.In den Spalten B-AF die entsprechenden Zahlen. In Spalte AG stehen die Namen und in Spalte AH die summe der einzelnen Zahlen. Nun möchte ich die Zahlen immer automatisch mit den Namen sortieren lassen.
Dazu habe ich folgenden Code eingegeben:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim RaBereich As Range, RaZelle As Range
Set RaBereich = Range(„AG2:AG150“)
For Each RaZelle In Range(Target.Address)
If Not Intersect(Target, RaBereich) Is Nothing Then
Range(„A2:AH150“).Sort Key1:=Range(„AH2“), Order1:=xlDescending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
Exit For
End If
Next RaZelle
Set RaBereich = Nothing
End Sub
Irgendwie funktioniert der Code nicht. Habe ihn aus einem Beispiel und angepasst. Was habe ich verkehrt gemacht?
Lg Frank
hallo Frank,
In einer Tabelle werden in Spalte A1-A150 Namen eingegeben.In
den Spalten B-AF die entsprechenden Zahlen. In Spalte AG
stehen die Namen und in Spalte AH die summe der einzelnen
Zahlen. Nun möchte ich die Zahlen immer automatisch mit den
Namen sortieren lassen.
mir unklar, du willst A1:AH150 sortieren lassen?
Nach was genau? AG aufsteigend, AH absteigend oder wie was?
Irgendwie funktioniert der Code nicht. Habe ihn aus einem
Beispiel und angepasst. Was habe ich verkehrt gemacht?
Bitte Frank, „Irgendwie funktioniert der Code nicht“ ist zu armselig.
Was funktioniert wo nicht und wie stellt sich das dar u.v.m…
Jetzt für diesen Code kannste dir das sparen aber bitte in der Zukunft daran denken und den Helfern das leben einfacher machen, danke
Gruß
Reinhard
Hallo Reinhard,
eigentlich möchte ich nur Spalte „AH“ absteigend sortieren lassen.Mit den entsprechenden Namen natürlich.
Werde mich bemühen, genauer zu schildern,was wie nicht funktioniert.
Lg Frank
eigentlich möchte ich nur Spalte „AH“ absteigend sortieren
lassen.Mit den entsprechenden Namen natürlich.
Hallo Frank,
ich frag mal annerster.
Angenommen du hast eine mehrspaltige tabelle, naja, haste ja wohl:smile:
Jetzt bietet dir Excel an, ALLE Spalten auszuwählen und nach den Werten in AH sortieren zu lassen.
Du kannst aber genausogut nur AG:AH auswählen und das Gleiche tun, dann bleibt der Rest an Spalten davon unbeindruckt.
Jetzt verwirrst du mich mit „den entsprechenden namen“
Du hast in AH Zahlen, diese willst du sortieren, okay.
Wenn du vor dem Sortieren A:AH oder AG:AH auswählst geschieht das auch zuverlässig. (Mußt mir nur sagen was von beiden du möchtest)
Eine meine Fragen ist, soll das was in AG steht nur mitübernommen werden oder soll danach auch als Zweitschlüssel sortiert werden.
„mitsortiert“ ist mir da zu unklar.
Gruß
Reinhard
Grüezi Frank
In einer Tabelle werden in Spalte A1-A150 Namen eingegeben.In
den Spalten B-AF die entsprechenden Zahlen. In Spalte AG
stehen die Namen und in Spalte AH die summe der einzelnen
Zahlen.
Wie genau kommen denn die Namen in die Spalte AG?
Sind das reine Formeln oder hast Du sie ‚hart‘ von Hand dorthin kopiert?
Wenn Du sie mit Formeln anzeigen lässt, dann dürfte das Sortieren so nicht funktionieren, da einerseits das Change()-Event nicht greift wenn sich ein Zelleninhalt aufgrund einer Formel verändert und weil andererseits die Formeln sich ihre Werte holen.
Wenn Du in den beiden Spalten eine Art Rangfolge aufgrund der Summen erstellen möchtest, dann kannst du das einfacher und direkter über eine Hilfsspalte lösen.
Was also ist deine Absicht bei der Ganzen Sache?
Mit freundlichen Grüssen
Thomas Ramel
Hallo Reinhard,
wichtig ist nur,dass die Zahlen in AG absteigend(also das höchste zuerst) sotiert werden und die entsprechenden Namen aus AH mit übernommen werden. Die restlcihen Spalten sind dabei völlig irrelevant.
Lg Frank
Nachtrag
Natürlich AH sortieren und Namen aus AG mitübernehmen
Hallo Thomas,
die Namen werden per Hand in die Spalte A2-A150 eingegeben. In Spalte AG2-AG150 werden sie über =A2 ff. nochmals ausgegeben.
Meine Absicht ist, dass Excel mir die Spalten AG(mit dem Namen) und AH(Summe der Werte aus Spalten B-AF) automatisch absteigend sortiert
Gruss Frank
Grüezi Frank
die Namen werden per Hand in die Spalte A2-A150 eingegeben. In
Spalte AG2-AG150 werden sie über =A2 ff. nochmals ausgegeben.
Ja, eben im Bereich den Du sortieren willst hast Du Formeln drin - habe ich doch so geschrieben…
Meine Absicht ist, dass Excel mir die Spalten AG(mit dem
Namen) und AH(Summe der Werte aus Spalten B-AF) automatisch
absteigend sortiert
Das würde ich dann - ich wiederhole mich wohl auch hier - mit zwei Hilfsspalten nach deinen Daten tun, in der ersten wird die Summe ermittelt und in der zweiten der Rang der einzelnen Summe über alle Summen.
Damit kannst Du dann deine ‚Rangeliste‘ in den beiden Spalten mit Formeln KGRÖSSTE() und INDEX()/VERGLEICH() erstellen lassen.
VBA ist dazu nicht notwendig.
Mit freundlichen Grüssen
Thomas Ramel