Bestimmte Spalten verschieben

Forumthread: Bestimmte Spalten verschieben

Martin

Hallo und ein gutes Neues Jahr an alle!
In der Zeile 1 habe ich verschiedene Überschriften (z.B. Name, Ort, Status, Vermittler und viele mehr) und darunter jeweils die dazugehörenden Daten.
Die Spalten sind leider falsch sortiert. Die Spalte mit der Überschrift "Status" muss A sein und soll dorthin verschoben werden, diejenige mit "Name" B, "Ort" C.....
Ich möchte das nicht mit Cut und Insert machen, sondern irgendwie die Überschrift mit der Spaltenummer (Status = 1, Name =2) verbinden und so verschieben.
Besten Dank für Hilfe.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Bestimmte Spalten verschieben

04.01.2010 10:00:50

Klaus-Dieter

Hallo Martin,
das kannst du ganz einfach mit der Standardsortierfunktion lösen. Dazu musst du
1. eine benutzerdefinierte Liste erstellen. (Status, Name, Ort .. ) Das machst du unter Extras / Optionen / Benutzerdefinierte Liste.
2. Stellst du bei Sortieren unter Optionen unten links auf Spalten sortieren um. Oben links kannst du unter benutzerdefinierte Sortierreihenfolge deine zuvor erstellte Liste auswählen. Danach löst du wie gewohnt den Sortiervorgang aus. In meinem kleinen Beispiel siehst du das Eregebnis, grüner Bereich:
Tabelle1

	A	B	C	D	E	F	G	H	I
1	Name	Ort	Status	Vermittler		Status	Name	Ort	Vermittler
2	1	2	3	4		3	1	2	4
3	1	2	3	4		3	1	2	4
4	1	2	3	4		3	1	2	4
5	1	2	3	4		3	1	2	4
6	1	2	3	4		3	1	2	4
7	1	2	3	4		3	1	2	4
8	1	2	3	4		3	1	2	4
9	1	2	3	4		3	1	2	4
10	1	2	3	4		3	1	2	4
11	1	2	3	4		3	1	2	4

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Viele Grüße Klaus-Dieter

Online-Excel

AW: Bestimmte Spalten verschieben

04.01.2010 10:23:57

Martin

Hallo Klaus-Dieter
Besten Dank für die Antwort.
Das Problem ist, dass das Ganze ein Teil eines längeren VBA-Codes sein sollte. Eigentlich läuft es schon, bis auf das verschieben der Spalten.....
Daher wäre ich froh, wenn es eine VBA-Lösung des Problems gäbe.
Vielen Dank im voraus.

AW: Bestimmte Spalten verschieben

04.01.2010 10:25:59

Klaus-Dieter

Hallo Martin,
das ging aus deiner Farge nicht hervor. :-(
Viele Grüße Klaus-Dieter

Online-Excel

AW: Bestimmte Spalten verschieben

04.01.2010 10:38:15

Klaus-Dieter

Hallo Martin,
ich bin zwar kein Freund des Makrorekorders, aber bei speziellen Sortierfunktionen ist er ganz hilfreich.
Modul Modul1 Option Explicit Sub Makro1() ' ' Makro1 Makro ' Makro am 04.01.2010 von Klaus-Dieter aufgezeichnet ' ' Range("F1:I11").Sort Key1:=Range("F1"), Order1:=xlAscending, Header:= _ xlGuess, OrderCustom:=10, MatchCase:=False, Orientation:=xlLeftToRight, _ DataOption1:=xlSortNormal End Sub
Code eingefügt mit VBA in HTML 2.0.0.1
Du müsstest das aber selber aufzeichnen, weil sonst die Parameter nicht passen. Die benutzerdefinierte Liste musst du allerdings auf jeden Fall erst einmal erstellen.
Viele Grüße Klaus-Dieter

Online-Excel

AW: mit Sortierfunktion

04.01.2010 12:01:45

Daniel

Hallo
du kannst das so machen:
1. die Überschriften entsprechend der Reihenfolge in eine Zahl umbenenen
2. die Spalten sortieren
3. die Reihenfolgenummern wieder durch die Texte ersetzen.
dazu dieses Makro, die Indexvariable musst du halt entsprechend der Anzahl der Spalten erweitern:

Sub SpaltenSortieren()
Dim Spalte(1 To 4) As String
Dim i As Long
Spalte(1) = "Status"
Spalte(2) = "Ort"
Spalte(3) = "Vermittler"
Spalte(4) = "Name"
For i = 1 To UBound(Spalte)
Rows(1).Replace Spalte(i), i, lookat:=xlWhole
Next
ActiveSheet.UsedRange.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal
For i = 1 To UBound(Spalte)
Rows(1).Replace i, Spalte(i), lookat:=xlWhole
Next
End Sub

gruß, Daniel

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um Spalten in Excel zu verschieben, kannst du verschiedene Methoden anwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

Spalten markieren: Klicke auf die Überschrift der Spalte, die du verschieben möchtest. Halte die Maustaste gedrückt und ziehe die Maus, um mehrere Spalten zu markieren, wenn nötig.
Spalte verschieben: Halte die Shift-Taste gedrückt und ziehe die markierte Spalte an die gewünschte Position. Lass die Maustaste los, um die Spalte an diesem Ort zu platzieren. Diese Methode funktioniert gut, um ganze Spalten zu verschieben, ohne sie zu schneiden oder zu ersetzen.
Alternativ: Rechtsklick: Klicke mit der rechten Maustaste auf die markierte Spalte und wähle im Kontextmenü „Ausschneiden“. Klicke dann auf die Überschrift der Spalte, vor der du die ausgeschnittene Spalte einfügen möchtest, und wähle „Einfügen“.
Sortieren: Eine weitere Methode ist die Verwendung der Sortierfunktion. Gehe zu „Daten“ > „Sortieren“ und wähle die benutzerdefinierte Reihenfolge, um die Spalten entsprechend deinen Anforderungen anzuordnen.

Häufige Fehler und Lösungen

Problem: Spalten werden nicht an die gewünschte Position verschoben.
- Lösung: Stelle sicher, dass du die Shift-Taste hältst, während du die Spalte ziehst.
Problem: Die Daten in der Tabelle scheinen sich nicht korrekt anzupassen.
- Lösung: Überprüfe, ob du die gesamte Spalte oder nur einen Teil davon verschoben hast. Um sicherzustellen, dass alle Daten verschoben werden, wähle die gesamte Spalte aus.

Alternative Methoden

Hier sind einige alternative Methoden, um Spalten in Excel zu verschieben:

VBA-Makro: Du kannst ein VBA-Makro verwenden, um die Spalten automatisch zu verschieben. Hier ist ein Beispiel:

Sub SpaltenSortieren()
   Dim Spalte(1 To 4) As String
   Dim i As Long
   Spalte(1) = "Status"
   Spalte(2) = "Ort"
   Spalte(3) = "Vermittler"
   Spalte(4) = "Name"
   For i = 1 To UBound(Spalte)
       Rows(1).Replace Spalte(i), i, lookat:=xlWhole
   Next
   ActiveSheet.UsedRange.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlNo
   For i = 1 To UBound(Spalte)
       Rows(1).Replace i, Spalte(i), lookat:=xlWhole
   Next
End Sub

Benutzerdefinierte Sortierung: Du kannst auch eine benutzerdefinierte Sortierung einrichten, um Spalten in einer bestimmten Reihenfolge anzuzeigen.

Praktische Beispiele

Beispiel 1: Wenn du die Spalte „Status“ nach „Name“ verschieben möchtest, markiere die Spalte „Status“ und ziehe sie zwischen „Name“ und „Ort“.
Beispiel 2: Um mehrere Spalten auf einmal zu verschieben, markiere sie alle und benutze die oben beschriebenen Methoden, um sie an die gewünschte Position zu bringen.

Tipps für Profis

Datenverlust vermeiden: Wenn du Spalten verschiebst, achte darauf, dass du keine Daten überschreibst. Verwende die Funktion „Einfügen“ anstelle von „Ausschneiden“, um sicherzustellen, dass die Daten nicht verloren gehen.
VBA für Automatisierung: Wenn du oft Spalten verschieben musst, kann das Erstellen eines VBA-Skripts viel Zeit sparen. Experimentiere mit verschiedenen Sortiermethoden, um die für dich beste Lösung zu finden.

FAQ: Häufige Fragen

1. Wie kann ich mehrere Spalten gleichzeitig verschieben?
Du kannst mehrere Spalten auswählen, indem du die Strg-Taste gedrückt hältst und auf die Überschriften der gewünschten Spalten klickst. Ziehe sie dann an die gewünschte Position.

2. Was passiert, wenn ich eine Spalte verschiebe und die Daten überschreibe?
Wenn du eine Spalte an einen Ort verschiebst, an dem bereits Daten vorhanden sind, werden diese überschrieben. Um dies zu vermeiden, verwende die Funktion „Einfügen“, um die Spalte an einer neuen Stelle zu platzieren.

Beliebteste Forumthreads (12 Monate)

Forumthread: Bestimmte Spalten verschieben

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Bestimmte Spalten in Excel verschieben

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

Bestimmte Spalten verschieben

Forumthread: Bestimmte Spalten verschieben

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Bestimmte Spalten in Excel verschieben

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread