Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
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
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
416to420
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
416to420
416to420
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabelleneinträge mit Makro sortieren?

Tabelleneinträge mit Makro sortieren?
Gordon
Hallo Forum,
ich brauche Eure Hilfe. Es kommt immer wieder vor, dass wir Einträge in bestehenden Excel-Tabellen sortieren müssen.
Die Einträge sind in der Regel Adressen, die in der folgenden Form existieren. Die Zellen sind dabei im unteren Beispiel in Klammern eingesetzt.
Vorname(A1) Name(B1)
Straße(A2) Postleitzahl(B2) Ort(C2)
Vorname(A3) Name(B3)
Straße(A4) Postleitzahl(B4) Ort(C4)
Um diese vernünftig weiter zu verarbeiten müssen die einzelnen Einträge in Spalten übertragen werden.
Das könnte zum Beispiel auf einem neuen Tabellenblatt dann so aussehen:
Vorname(A1) Name(B1) Straße(C1) Postleitzahl(D1) Ort(E1)
Vorname(A2) Name(B2) Straße(C2) Postleitzahl(D2) Ort(E2)
[.....]
Diese Arbeit ist bei bis zu 800 Adressen sehr zeitaufwendig. Vielleicht weiß irgendjemand eine Lösung?
Eine Lösung als Makro wäre super!!
Vielen Dank schon einmal im Voraus für Eure Hilfe!!
Herzliche Grüße,
Gordon

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Tabelleneinträge mit Makro sortieren?
K.Rola
Hallo,
nach deiner Berschreibung dürften ja keine Überschriften vorhanden sein.
Den Code nur einmalig ausführen!
Option Explicit

Sub Adressen_ordnen()
Dim z As Long, s As Integer, lz As Long
lz = 65536: If [a65536] = "" Then lz = [a65536].End(xlUp).Row
Application.ScreenUpdating = False
For z = 2 To lz Step 2
Range(Cells(z, 1), Cells(z, 3)).Copy Cells(z - 1, 3)
Cells(z, 1).Interior.ColorIndex = 53
Next
For z = lz To 1 Step -1
If Cells(z, 1).Interior.ColorIndex = 53 Then Rows(z).Delete
Next
Application.ScreenUpdating = False
End Sub

Gruß K.Rola
Anzeige
AW: Tabelleneinträge mit Makro sortieren?
K.Rola
Hallo,
kleiner Fehler, letzte Zeile vor End Sub muss heißen:
Application.ScreenUpdating = True
Gruß K.Rola
AW: Tabelleneinträge mit Makro sortieren?
22.04.2004 09:26:34
Gordon
Hallo,
erst einmal vielen Dank für Eure Hilfe...es klappt.
Vielleicht ist es Euch möglich. mir kurz zu sagen, welche Variablen ich wie ändern muss, damit das Makro auch für andere Listen angepasst werden kann?
So zum Beispiel für Listen, die zusätzlich Angaben wie Tel. o.ä. haben.
Vorname1 Name1
Adresse1 PLZ1 Ort1 Tel1 Fax1
Vorname2 Name2
Adresse2 PLZ2 Ort2 Tel2 Fax2
Vielleicht aber auch 3-zeilige Vorgaben berücksichtigt?
Firma1
Vorname1 Name1
Adresse1 PLZ1 Ort1 Tel1 Fax1
Firma2
Vorname2 Name2
Adresse2 PLZ2 Ort2 Tel2 Fax2
Vielen Dank schon einmal im Voraus und natürlich für die Hilfe bis jetzt.
Gruß,
Gordon
Anzeige
AW: Tabelleneinträge mit Makro sortieren?
Beni
Hallo Gordon,
wenn Deine Einträge bis am Schluss in der Reihenfolge sind, sollte das Markro funktionieren.
Gruss Beni

Sub Tabelleneinträge_sortieren()
r = Cells(65536, 1).End(xlUp).Row
For i = r To 2 Step -2
Range(Cells(i, 1), Cells(i, 3)).Cut Destination:=Cells(i - 1, 3)
Rows(i).EntireRow.EntireRow.Delete
Next i
End Sub

AW: Tabelleneinträge mit Makro sortieren?
Gordon
Hallo,
erst einmal vielen Dank für Eure Hilfe...es klappt.
Vielleicht ist es Euch möglich. mir kurz zu sagen, welche Variablen ich wie ändern muss, damit das Makro auch für andere Listen angepasst werden kann?
So zum Beispiel für Listen, die zusätzlich Angaben wie Tel. o.ä. haben.
Vorname1 Name1
Adresse1 PLZ1 Ort1 Tel1 Fax1
Vorname2 Name2
Adresse2 PLZ2 Ort2 Tel2 Fax2
Vielleicht aber auch 3-zeilige Vorgaben berücksichtigt?
Firma1
Vorname1 Name1
Adresse1 PLZ1 Ort1 Tel1 Fax1
Firma2
Vorname2 Name2
Adresse2 PLZ2 Ort2 Tel2 Fax2
Vielen Dank schon einmal im Voraus und natürlich für die Hilfe bis jetzt.
Gruß,
Gordon
Anzeige
AW: Tabelleneinträge mit Makro sortieren?
22.04.2004 16:11:52
Beni
Hallo Gordon,
Gruss Beni

Sub Tabelleneinträge_sortieren()
r = Cells(65536, 1).End(xlUp).Row
For i = r To 2 Step -2
Range(Cells(i, 1), Cells(i, 5)).Cut Destination:=Cells(i - 1, 3)
Rows(i).EntireRow.EntireRow.Delete
Next i
End Sub

302 Forumthreads zu ähnlichen Themen

Ausgabe zweier Zellen mit SVERWEIS
Andreas

Hallo
Ich möchte mittels SVERWEIS Werte aus Spalte 2 oder wenn sich in dieser Spalte keine Werte befinden aus Spalte 3 ausgeben...
Kann mir da jemand weiterhelfen?
Gruß
Andreas
14.08.2008 11:46:00
Thread-ID: 1001793
4 Beiträge
Anzeige
Summe mit 2 Bedingungen
TobiasM

Hallo Excel-Experten,
ich würde gerne eine Summe mit zwei Bedingungen berechnen:
Wenn Wert in Spalte H gleich "EUR" und Wert in Spalte I gleich ""2005", dann Summe der entsprechenden Werte in Spalte J.
Könnte mir jmd. bitte einen Hinweis zur Formel geben?
Vielen Dank!!!
Tobi...
28.08.2008 10:11:30
Thread-ID: 1005310
3 Beiträge
Daten sortiert aus anderem Tabellenblatt auslesen
Robert

Hallo,
bräuchte eure Hilfe bitte.
Aus einem Tabellenblatt ("FEHLZEITEN") sollen Daten ausgelesen und in einem anderen Tabellenblatt ("EINSATZPLANUNG") ab Zeile 100 eingefügt und bei Änderungen in "FEHLZEITEN" aktualisiert werden.
Habe da mal eine Beispieldatei zur besseren Veransch...
28.08.2008 11:32:00
Thread-ID: 1005356
3 Beiträge
Anzeige
ZÄHLENWENN mit 2 Bedingungen
oblivion

Hallo, hab mal eine Frage zur Funktion ZÄHLENWENN.
Die Funktion lautet ja allgemein so =ZÄHLENWENN(A1:A15;"=19").
Ich würde aber gerne diese Funktion so erweitern, dass er mir alle Werte zählt, die kleiner als 19 sind, aber größer als 0.
Ich bekomme es nicht hin. Gibt es da eine Lö...
04.09.2008 18:07:33
Thread-ID: 1007473
3 Beiträge
Sverweis und mehrere Dateien durchsuchen
Benjamin

Hallo,
ist es möglich mit sverweis oder einer anderen Funktion mehere gleich aufgebaute Dateien zu durchsuchen und ein bestimmten wert (z.b in der zweiten Spalte) auszugeben. Also keine sheets sondern, dass das Makro die dateien eigenständig öffnet z.b. all dateien in diesem Odner öfnnet un...
26.09.2008 02:00:36
Thread-ID: 1012468
2 Beiträge
Zwei Kriterien für Sverweis
sascha76er

Hallo,
ich habe folgende Liste:
https://www.herber.de/bbs/user/55778.xls
Hier möchte ich gerne anhand von zwei Kriterien einen SVERWEIS erstellen für die Spalte P , die Kriterien sollen aus den Werten der Spalten E und M gebildet werden. Der entsprechende Wert muss im Tabellenblatt...
01.10.2008 16:04:31
Thread-ID: 1013672
3 Beiträge
PIVOTDATENZUORDNEN mit zwei Kriterien
Andi

Hallo Experten,
Ich versuch zurzeit eine Auswertung aus einer Pivot Tabelle zu erstellen, komm jedoch nicht weiter da ich zwei Kriterien in der X-achse und eins in der Y-achse berücksichtigen muss. Das heisst ich kann nicht einfach X-Achse und Y-achse mit der Pivot-tabelle abgleichen, sonde...
14.10.2008 12:16:00
Thread-ID: 1016295
5 Beiträge
SVerweis mit 2 Kriterien über Index??
Bernd

Hallo Freaks,
ich habe es wirklich versucht....und auch ein einfaches Bsp. aufgebaut. Nur die Indexformel funktioniert nicht...
Ich bitte Euch um Hilfe.
https://www.herber.de/bbs/user/56079.xls
Danke, Bernd
17.10.2008 15:26:00
Thread-ID: 1017185
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
3
3
2
2
5
2
1
2
4
3
6
11
3
5
11
6
2
2
2
5
1
3
3
3
6