Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1240to1244
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
1240to1244
1240to1244
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen sortieren nach Zahl mit VBA

Zeilen sortieren nach Zahl mit VBA
Martin
Hallo zusammen
Ich habe in Zeile 2 die Spaltennummern, wie die Liste sortiert werden soll. z.B. in A2 steht 8, in B2 steht 15, in C2 steht 3, D2 ist leer, in E2 steht 33 etc.etc.
Jetzt soll die Liste entsprechend sortiert werden, dass die Spalte A (wo ja in A2 die 8 steht) in die 8. Spalte verschoben wird, Spalte B in die 15., Spalte C in die 3., Spalte D gelöscht, Spalte E in 33. usw.
Besten Dank im voraus für Eure Hilfe.
Martin

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Zeilen sortieren nach Zahl mit VBA
15.12.2011 23:49:50
Josef

Hallo Martin,
' **********************************************************************
' Modul: Modul1  Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub mixedColumns()
  Dim lngLastCol As Long, lngLastRow As Long, lngIndex As Long
  Dim vntCols() As Variant
  
  On Error GoTo ErrExit
  GMS
  
  With ActiveSheet
    lngLastCol = .Cells(2, .Columns.Count).End(xlToLeft).Column
    Redim vntCols(1 To lngLastCol)
    For lngIndex = 1 To lngLastCol
      lngLastRow = .Cells(.Rows.Count, lngIndex).End(xlUp).Row
      vntCols(lngIndex) = .Range(.Cells(1, lngIndex), .Cells(lngLastRow, lngIndex))
    Next
    .Cells.ClearContents
    For lngIndex = 1 To lngLastCol
      If Not IsEmpty(vntCols(lngIndex)(2, 1)) Then
        If IsNumeric(vntCols(lngIndex)(2, 1)) Then
          .Cells(1, vntCols(lngIndex)(2, 1)).Resize(UBound(vntCols(lngIndex)), 1) = vntCols(lngIndex)
        End If
      End If
    Next
  End With
  
  ErrExit:
  GMS True
  
End Sub


Public Sub GMS(Optional ByVal Modus As Boolean = False)
  
  Static lngCalc As Long
  
  With Application
    .ScreenUpdating = Modus
    .EnableEvents = Modus
    .DisplayAlerts = Modus
    .EnableCancelKey = IIf(Modus, 1, 0)
    If Not Modus Then lngCalc = .Calculation
    If Modus And lngCalc = 0 Then lngCalc = -4105
    .Calculation = IIf(Modus, lngCalc, -4135)
    .Cursor = IIf(Modus, -4143, 2)
    
  End With
  
End Sub



« Gruß Sepp »

Anzeige

302 Forumthreads zu ähnlichen Themen

Tabelle nach Anzahl sortieren
Pascal

Hallo,
wie kann ich eine Tablle nach der Anzahl der Wörter in einer Spalte sortieren?
Die Tabelle sieht etwa so aus:
Spalte1 | Spalte2 | Spalte 3
1 | der die | ...
2 | der | ...
3 | der die das | ...
und aussehen soll...
25.09.2008 11:50:39
Thread-ID: 1012284
6 Beiträge
Anzeige
Zeilen einfügen nach Wertwechsel
Marcus

Hallo,
benötige folgende Hilfe bei EXCEL/VBA:
eine Zeile soll eingefügt werden, wenn der Wert in Spalte B "1" ist.
Die Zeile soll vor der Zelle/Zeile mit dem Wert eingefügt werden.
Danke für die Hilfe
Marcus Leu
30.10.2008 11:31:00
Thread-ID: 1020544
13 Beiträge
Artikelzeilen nach Wert "Anzahl" anzeigen
Helmut

Guten Tag!
Ich habe folgendes Problem:
In einer Tabelle (A) stehen in Spalte 1 die Artikelbezeichnung [ArtNr] und in Spalte 2 die gelieferte Stückzahl [Stk]. Ich möchte jetzt in einer neuen Tabelle (B) die Artikelnummer sooft untereinander stehen haben, wie in der Spalte [Stk] angegeben...
18.03.2009 15:11:35
Thread-ID: 1061455
4 Beiträge
Anzeige
Falsche Bildgröße nach dem Sortieren?
Kasimir

Hallo an alle!
Ich habe da ein Problem. Ich habe eine Datei, in der in einigen Zellen in Spalte I Grafiken eingebunden sind. In anderen Zellen ebenfalls in Spalte I steht nur Text. Die Zeilen haben alle unterschiedliche Höhen. Die mit Grafik sind höher, die mit nur Text sind nicht so hoch....
23.06.2009 21:33:24
Thread-ID: 1083760
2 Beiträge
Kopierte Werte nach Datum (aus)sortieren
Sirenia

Einen wunderschönen guten Morgen miteinander,
ich stehe vor folgendem Problem:
Ich kopiere Werte aus den Sheets M1-M4 mit diesem Code in die erste freie Reihe eines jeden Sheets (Werte aus Reihe 7 in M1 werden in die erste freie Reihe von M1 geschrieben, usw.).
Private Sub CommandBu...
13.07.2009 12:19:47
Thread-ID: 1088133
17 Beiträge
Zahlen bei klick in nächste spalte übertrage
Didi

Hallo Leuete,
ich brauche euere Hilfe.!
folgende Situation möchte ich einwenig beschleunigen:
Gibt es zwei Tabellenbereiche, gleich aufgebaut.
Tabellen Bereich -Ausgang (C5:C36) - wird täglich muttiert, dort gebe ich jeden Tag ausgangszahlen ein.
In Tabellen Bereich -Statist...
05.09.2009 09:31:28
Thread-ID: 1100743
3 Beiträge
Spalte nach Datum sortieren per Makro
Larissa

Hallo,
ich möchte mit einem Makro eine Tabelle nach Datum in Spalte G sortieren.
Wenn ich das Makro aufzeichne, fragt er mich nach: Alles was wie eine Zahl aussieht....
Dann funktioniert die Sortierung, aber nicht, wenn ich die Aufzeichnung abspiele.
Weiß jemand, woran das liege...
15.10.2009 11:09:27
Thread-ID: 1109788
5 Beiträge
Spalte nach Nummer sortieren
Micha*
Bereich markieren (alle Spalten)
Daten
Sortieren
Spalte wählen
fertig
16.04.2002 09:34:17
Thread-ID: 113611
4 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
5
14
12
3
9
1
16
2
4
3
1
2
2
4
3
1
6
3
6
4
15
2
7
5
1