Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1272to1276
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1272to1276
1272to1276
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zahlenwerte sortieren mit VBA

Zahlenwerte sortieren mit VBA
reiner
hallo Leute,
in den Zellen "K5", "M5", "O5", "Q5" und "S5" stehen in beliebiger Reihenfolge als Ergebnis von vorherigen Auswertungen die Zahlenwerte 1, 2, und 3.
Ich suche eine Möglichkeit diese 5 Zahlenwerte in absteigender Reihenfolge beginnend mit "K5" und dem höchsten Wert "3" bis "S5" und dem kleinsten Wert "1" anzuzeigen ohne die Zahlenwerte zu verändern.
Wenn alle 5 Zahlenwerte gleich sind erübrigt sich natürlich ein Sortiervorgang.
Hat jemand einen Vorschlag zur Realisierung?
mfg
reiner
AW: Zahlenwerte sortieren mit VBA
16.08.2012 22:53:30
Josef

Hallo Reiner,
wie und wo sollen die Zahlen den angezeigt werden?

« Gruß Sepp »

AW: Zahlenwerte sortieren mit VBA
16.08.2012 22:59:22
reiner
hallo Sepp,
habe versäumt die Zielzellen zu nennen, tut mir leid.
Die sortierten Zahlenwerte sollen in den gleichen Zellen stehen wie die zuvor unsortierten Zahlenwerte, notfalls können auch Hilfszellen verwendet werden.
mfg
reiner
Anzeige
AW: Zahlenwerte sortieren mit VBA
16.08.2012 23:00:19
Josef

Hallo Reiner,
und warum dann nicht einfach den Bereich sortieren?

« Gruß Sepp »

AW: Zahlenwerte sortieren mit VBA
16.08.2012 23:04:36
reiner
hallo Sepp,
ich verstehe deine Frage nicht
mfg
reiner
AW: Zahlenwerte sortieren mit VBA
16.08.2012 23:09:15
Josef

Hallo Reiner,
Zahlen markieren > Rechtsklick > Sortieren > A-Z - fertig.

« Gruß Sepp »

Anzeige
AW: Zahlenwerte sortieren mit VBA
16.08.2012 23:20:08
reiner
hallo Sepp,
Zahlen markieren > Rechtsklick > Sortieren > A-Z - fertig.
das klappt bei Zahlenwerten in Spalten, aber meines Wissens nicht in Zeilen,
außerdem gibt es immer eine Leerzelle zwischen den Zahlenwerten
mfg
reiner
Sorry, hatte überlesen...
16.08.2012 23:20:16
Josef

Hallo nochmal,
... das die Zellen nicht zusammenhängen.
Sub sortX()
  Dim objAl As Object, rng As Range, lngIndex As Long
  
  Set objAl = CreateObject("System.Collections.Arraylist")
  
  With objAl
    For Each rng In Range("K5,M5,O5,Q5,S5")
      .Add rng.Value
    Next
    .Sort
    For Each rng In Range("K5,M5,O5,Q5,S5")
      rng = objAl.Item(lngIndex)
      lngIndex = lngIndex + 1
    Next
  End With
  
  Set objAl = Nothing
End Sub



« Gruß Sepp »

Anzeige
AW: Sorry, hatte überlesen...
16.08.2012 23:27:39
reiner
hallo Sepp,
das funktioniert schon fast so wie ich es mir vorgestellt habe,
allerdings steht der höchste Wert in der äußersten rechten Spalte.
Wenn der höchste Zahlenwert "3" ganz links stände wäre ich begeistert.
mfg
reiner
AW: Sorry, hatte überlesen...
16.08.2012 23:30:38
Josef

Hallo Reiner,
kein Problem.
Sub sortX()
  Dim objAl As Object, rng As Range, lngIndex As Long
  
  Set objAl = CreateObject("System.Collections.Arraylist")
  
  With objAl
    For Each rng In Range("K5,M5,O5,Q5,S5")
      .Add rng.Value
    Next
    .Sort
    .Reverse
    For Each rng In Range("K5,M5,O5,Q5,S5")
      rng = objAl.Item(lngIndex)
      lngIndex = lngIndex + 1
    Next
  End With
  
  Set objAl = Nothing
End Sub



« Gruß Sepp »

Anzeige
..oder so, danke nochmals, reiner
16.08.2012 23:34:24
reiner
o.T.
AW: Sorry, hatte überlesen...
16.08.2012 23:31:36
reiner
hallo Sepp,
ich habe die Zellnummern in die umgekehrte Reihenfolge abgeändert "S9,Q9,O9,M9,K9"
nun steht nach dem Surchlsuf der VBA-Prozedur der höchste Wert ganz links und der kleinste Wert ganz rechts.
danke Sepp damit ist das Problem gelöst
mfg
reiner

303 Forumthreads zu ähnlichen Themen

Anzahl unterschiedl. Werte in Spalte zählen
Jakob

Hallo,
ein ähnliches Problem wurde hier im Forum schon einmal diskutiert. (https://www.herber.de/forum/archiv/632to636/t635773.htm)
Meine Problem:
Wie kann ich die Anzahl unterschiedlicher Einträge/Werte einer Spalte erhalten, ohne dass diese vorgegeben werden ( also ohne die Verwe...
14.08.2008 18:16:11
Thread-ID: 1001934
2 Beiträge
Anzeige
Anzahl identischer Einträge in 2 Spalten ermitteln
Christian

Hallo zusammen,
ich möchte die Anzahl identischer Werte in zwei spalten ermitteln.
Die erste Spalte enthält eindeutige Werte (Artikelnummern).
Die zweite Spalte enthält eine Teilmenge der ersten Spalte (Bestimmte Artikel, die beobachtet werden sollen).
Im Übersichtsichtsbereic...
11.06.2009 14:56:03
Thread-ID: 1080747
5 Beiträge
Dateien Zählen mit VBA 2003 Mac
Jan

Hallo!
Wie erstellt mann einen Macro die die Anzahl an Dateien in einen Verzeichnis ermittelt. Dazu habe ich verschieden Beispiele gefunden die mit "FileSearch" arbeiten. Leider verwende ich Excel 2003 für Apple, wo dieser Funktion nicht vorhanden ist. Vielleicht kennt jemand einen Workarou...
23.06.2009 16:02:28
Thread-ID: 1083851
3 Beiträge
Anzeige
Anzahl oder Zählen mit 2 Variablen
Holger

Hallo,
ich finde einfach keine Lösung, habe es mit Matrixformeln probiert, kriege es aber nicht hin.
Ich habe eine Liste mit einigen Städtenamen und einem dazugehörigen Datum. Alles andere in der Liste ist nicht ausschlaggebend.
Ich möchte gerne in einem anderen Register die Summe d...
10.07.2009 13:42:27
Thread-ID: 1087680
16 Beiträge
Zahlen mit VBA Aufsummieren
Beno

Hallo Leute,
habe folgende Situation:
in Tabellenbereich C5:C29 habe ich alle Zellen verknüpft mit eine andere Tabelle mit formel z.B
C5=Wert aus Q10, C6=Wert aus Q11 usw., ist immer pro Woche (Mo-SA) soweit alles ok. Nacher gebe ich die Wochenzahlen in eine zusätzliche Tabelle mit...
03.09.2009 08:15:48
Thread-ID: 1100224
9 Beiträge
Anzahl der Spalten aus RefEdit
Frank P

Hallo,leider komm ich bei folgenden Problem auf keinen Lösungsansatz.
Wie kann ich die Anzahl der spalten & der Zeilen des in einem RefEdit-feld erfassten Bereiches berechnen?vielen Dank im vorausFrank p


17.04.2002 08:34:34
Thread-ID: 113955
3 Beiträge
Anzahl der Spalten zu wenig?
Huber

Hallo,
ich habe eine Tabelle mit 91 Spalten. Wenn ich jetzt , z. B: 12 Spalten ausblenden will, kommt die Meldung "Objekte können nicht über das Blatt hinaus verschoben werden". Was ist da falsch, wenn ich 12 Spalten ausblenden, ist sdoch das Blattende nicht erreicht. Wer kann mir helfen?
16.02.2010 10:50:18
Thread-ID: 1138829
15 Beiträge
Lottozahlen mit VBA, Kontrollkästchen Frage
Niklas

Guten Tag,
ich muss einen Lottoschein erstellen.
Ich habe für díe 1-49 Zahlen jeweils Kontrollkästchen gemacht.
Nun möchte ich wissen, wie ich es machen kann, dass 6 Kästchen aktiviert werden können.. nicht mehr und nicht weniger.
Zudem würde ich gerne wissen wie ich den Kontrol...
25.02.2010 10:35:24
Thread-ID: 1141373
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
3
4
2
5
15
8
2
14
5
11
8
10
2
3
10
10
3
9
1
2
5
1
5
6