---

Hallo zusammen!

Ich habe jetzt schon unzählige Excel Foren durchgewühlt und komme auf keinen grünen Zweig.
Deshalb versuche ich es bei euch.
Ich habe mittels Auswertung-Beschriften Verbindungsdaten in eine Excel Tabelle geschrieben.
In Spalte F habe ich Verbindungsbehandlung Quelle und in Spalte G Verbindungsbehandlung Ziel.

Wir schreiben da z.B: "S" für Standard-Aderendhülse, "T" für TWIN-Aderendhülse oder "R6" für Ringkabelschuh M6
Die Kabelfertigung (wo Quelle und Ziel egal ist) wünscht sich von mir eine Tabelle die alphabetisch sortiert ist.

am Beispiel
vorher:
            F|G
Zeile1: T|S
Zeile2: T|R
Zeile3: S|R

nachher:
            F|G
Zeile1: S|T
Zeile2: R|T
Zeile3: R|S

Excel kann das zwar für jede Zeile einzeln über "benutzerdefiniertes Sortieren" -> Optionen, ich brauch es aber für jede vorkommende Verbindung, also vielen Zeilen.

Hat von euch da jemand ein VBA-Makro?

lg
Alois

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi hual,

mit der Excel Funktion "Makro aufzeichnen" würde Excel alle Tastendrücke und Funktionen, die Du anstößt, in einem Makro auszeichnen, dass Du anschließend als VBA-Code einsehen und editieren kannst.

Aber normalerweise markierst Du alle Zellen, drückst auf sortieren, wählst die Spalte nach der als erster sortiert werden soll und den Rest macht Excel...

Gruß Christof

------------------
alles wird gut!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Christof!

Das Makro aufzeichnen hatte ich schon durch. Aber es funktioniert nur für eine Zeile.
Ich brauch ein Makro mit einer Schleife.

- Vergleiche G1 mit F1
- Sortiere niedrigeren Wert in G1, höheren in F1
..Springe in nächste Zeile
- - Vergleiche G2 mit F2
- Sortiere niedrigeren Wert in G2, höheren in F2
usw.

Excel kann das nicht automatisch, leider.
Wie gesagt nur Zeile für Zeile.
Bitte nicht mit der "normalen" Sortierfunktion von Spalten verwechseln. Das beherrscht Excel perfekt und braucht kein Makro

lg
Alois

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

hmm
VBA kann das auf viele Varianten.

Z.B:
' den MaxZähler musst Du halt noch irgendwie begrenzen
' hier zum Testen für die 1. 5 Zeilen
  Dim Zähler, MaxZähler, Zwischenspeicher
  MaxZähler = 5
  For Zähler = 1 To MaxZähler
    If Range("G" & Zähler).Value <= Range("F" & Zähler).Value Then
      Zwischenspeicher = Range("G" & 'Zähler').Value
      Range("G" & Zähler).Value = Range("F" & Zähler).Value
      Range("F" & Zähler).Value = Zwischenspeicher
    end if
  Next Zähler

Vielleicht funktionierts ja auf Anhieb.
Aber zumindest sind ein paar Ansätze vorhanden..

Viel Spaß

------------------
alles wird gut!

[Diese Nachricht wurde von Christof G am 19. Sep. 2014 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Christof!

Ich hab dein Makro noch nicht getestet, da die Art wie ich die Daten liefere so jetzt doch nicht gewünscht ist.

Ich teste dein Makro aber bei nächster Gelegenheit im eigenen Interesse 

lg
Alois

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP