HERBERS Excel-Forum - die Beispiele

Thema: Auf- und absteigend sortieren ohne Sortierfunktion

Home

Gruppe

Funktion

Problem

Wie kann ich in einer Tabelle mit aufsteigenden Kundennummern die Kundenspalte einem auf- und einmal absteigend sortiert haben, ohne die Sortierfunktion einzusetzen?

Lösung
Nur anhand einer Beipspielarbeitsmappe darstellbar.
StandardModule: basMain

Sub AssistentEinblenden()
   Dim intCounter As Integer
   On Error GoTo ERRORHANDLER
   Assistant.Visible = True
   With Assistant.NewBalloon
      .Heading = "Dämlicher Karneval"
      .Text = "Beantworten Sie bitte folgende Fragen:"
      .CheckBoxes(1).Text = "Nur für Rheinländer geeignet"
      .CheckBoxes(2).Text = "Keine Kohle für so'n Quatsch"
      .CheckBoxes(3).Text = "Soeben erst zurückgekommen"
      .Button = msoButtonSetOkCancel
      If .Show = msoBalloonButtonOK Then
         If .CheckBoxes(1).Checked And Not .CheckBoxes(2).Checked _
            And Not .CheckBoxes(3).Checked Then
            MsgBox "Nicht für alle Rheinländer"
         ElseIf .CheckBoxes(2).Checked And .CheckBoxes(3).Checked Then
             MsgBox "Dafür hast Du ziemlich lange ausgehalten"
         ElseIf Not .CheckBoxes(1).Checked And Not .CheckBoxes(2).Checked _
            And .CheckBoxes(3).Checked Then
            MsgBox "Willkommen zu Hause"
         ElseIf .CheckBoxes(2).Checked Then
            MsgBox "Wer hat die schon"
         End If
      End If
   End With
   Exit Sub
ERRORHANDLER:
   Beep
   MsgBox prompt:="Assistent ist nicht installiert!"
End Sub

Beiträge aus dem Excel-Forum zu den Themen Funktion und VERGLEICH

Copy funktioniert nur einmal Schreibschutz prüfen funktioniert nicht
Vergleichen von zellen Split-Funktion beim Einlesen TXT-Datei
Match Funktion spinnt (?) SVerweis funktioniert nicht
PasteSpecial funktioniert nicht. Listen vergleichen
VERGLEICH/INDEX Formelproblem Sortierung und Vergleich mit "Fallen"
2 Zellen vergleichen und Werte in Folgen summieren Vergleichen zweier Dateien und aktualisieren
VBA-Code funktioniert nicht mit anderem Office Hilfe bei der INDEX Funktion
Vergleich / Gemeinsamkeiten finden Zellen vergleichen
Zelladressen von FunktionsParametern ermitteln Index Vergleich Formel mit Summenformel
Matrixformel mit Summenfunktion Tabellenblätter vergleichen
Formel funktioniert nicht, SVerweis UserForm TextBox mit ComboBox Datum vergleichen
Makro funktioniert nach Beenden von Excel nicht Vergleich innerhalb einer matrix
VLOOKUP auf Links funktioniert offline @DAVID Zwei SUMMEWENN funktionen verknüpfen
Zwei SUMMEWENN funktionen verknüpfen Polynomfunktion
Zeilenweise in der Spalte Vergleichen? Mit vba Funktionen in Excel Zellen
Spalten Vergleichen Rang-Funktion für Strings?
Dateien vergleichen-doppelte löschen Spalten vergleichen
Skript funktioniert nur auf einer seite?!?! Hyperlink auf Excel-Datei funktioniert nicht
Spalten vergleichen 2 Dateien Vergleichen und Spalten kopieren?
2 Dateien Vergleichen und Spalten kopieren? Public Funktion / Variabel
Daten einlesen und vergleichen mit VBA VBA - Suchfunktion - Fehlermeldung
Benutzerdefinierte Funktion Dateien vergleichen (Zeileninhalte)
Userform mit Löschfunktion 2ter Versuch Vergleichen und Makieren per Makro
Verschiedene Tabellenblätter per Makro vergleichen Frage zu Wenn Dann Funktion
Wenn-Funktion Frage zur Funktion DISAGIO