Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 13:19:18
Daten aus externer Datei als Bereich übernehmen... ?
23.04.2024 12:57:21
Makro für aktuell geöffn. Datei mit gleichen Namen speichern
23.04.2024 12:37:19
gew. Mittelwert Spalten mit Text ignorieren
23.04.2024 12:29:20
VBA nur Zeilen mit bestimmten Eintrag selektieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1148to1152
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
1148to1152
1148to1152
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Sortieren und dann Zeilen einfügen!

Sortieren und dann Zeilen einfügen!
Stut
Hallo Liebe Leute,
ich möchte per VBA eine Tabelle Erst nach Priorität und dann nach Artikelnr. Sortieren.
Danach soll nach jedem unterschiedlichen Artikel eine Zeile eingefügt werden.
Wie muss ich hier Code technisch vorgehen?
Beispieltabelle:
Kunde Prio Liefertermin Artikelnr.
TEST 1 01.04.2010 123
TEST 2 01.04.2010 123
TEST 4 01.04.2010 123
TEST 3 3 01.04.2010 234
TEST 4 5 01.04.2010 456
TEST 4 5 01.04.2010 456
LG
Stut
AW: Sortieren und dann Zeilen einfügen!
01.04.2010 12:16:51
Rudi
Hallo,
dir ist klar, dass du damit die Tabelle 'zerstörst'? 
Sub tt()
Dim i As Long
Application.ScreenUpdating = False
Range("A1").Sort _
key1:=Range("B2"), order1:=xlAscending, _
key2:=Range("D2"), order2:=xlAscending, _
header:=xlYes
For i = Cells(Rows.Count, 1).End(xlUp).Row To 3 Step -1
If Cells(i, 4)  Cells(i - 1, 4) Then
Rows(i).Insert
End If
Next
Application.ScreenUpdating = True
End Sub

Gruß
Rudi
AW: Sortieren und dann Zeilen einfügen!
01.04.2010 12:25:02
Stut
Ersteinmal danke danke danke für die Antwort, funktioniert fast genauso wie ich es haben wollte.
Das Amkro macht jetz aber eine neu zeile bei gleicher Prio ich wollte eine neu Zeile bei gleichem Artikel.
Was muss ich da ändern?
Gruss Stut
Anzeige
AW: Sortieren und dann Zeilen einfügen!
01.04.2010 12:37:39
Stut
mmhh jetzt bekomm ich einen Laufzeitfehler 1004
AW: Sortieren und dann Zeilen einfügen!
01.04.2010 15:42:10
Rudi
Hallo,
das Makro mach exakt, was du gefragt hast.
Gruß
Rudi
AW: Sortieren und dann Zeilen einfügen!
01.04.2010 12:30:13
fcs
Hallo Stut,
funktioniert prinzipiell wie folgt.
Gruß
Franz 
Sub Sort_plus_Leerzeilen()
Dim wks As Worksheet, Bereich As Range
Dim Zeile As Long
Set wks = ActiveSheet
'zu sortierender Bereich - A1:Dxxx
With wks
Set Bereich = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp).Offset(0, 3))
End With
With Bereich
'bereich nach 2. und 4. Spalte sortieren
.Sort Key1:=.Range("B1"), order1:=xlAscending, _
key2:=.Range("D1"), order2:=xlAscending, header:=xlYes
'Leerzeile einfügen, wenn Artikel sich ändert, dabei Tabelle vom Ende zum Anfang  _
bearbeiten
For Zeile = .Rows.Count - 1 To 2 Step -1
If .Cells(Zeile, 4)  .Cells(Zeile + 1, 4) Then
wks.Rows(.Row + Zeile).Insert shift:=xlShiftDown
End If
Next
End With
End Sub

Anzeige
AW: Sortieren und dann Zeilen einfügen!
01.04.2010 12:47:26
Stut
Danke ich bekomm bei der Variante einen Laufzeitfehler, wieso?
Gruß und dank voraus!
AW: Sortieren und dann Zeilen einfügen!
01.04.2010 14:39:35
fcs
Halo Stut,
keine Ahnung, unter Excel 2003 läuft es, wenn ich mit deinen Daten in einer ganz normalen Exceltabelle arbeitet.
Probleme könne aber verbundenen Zellen bereiten. Diese unbedingt vermeiden.
Andere Möglichkeit: Du arbeitest mit dem Tabellen/Listen-Objekt. (Einfügen - Tabellel).
In diesem Modus funktionieren bestimmte VBA-Funktionen nicht oder anders.
Zeichne für das Sortieren der Daten dann ein Makro auf.
Gruß
Franz

302 Forumthreads zu ähnlichen Themen

wenn > Spalte I, dann neue Zeile
Dennis

Hallo Leute,
ich benötige einmal Hilfe eines Experten, da ich noch in den Anfängen stecke.
Ich habe folgendes Problem:
Ich habe eine Liste mit Datensätzen (jeder Datensatz steht für eine Person). Die Datensätze sind unterschiedlich lang. Grds. sind die Datensätze von Spalte A - Spal...
04.09.2008 16:41:00
Thread-ID: 1007458
8 Beiträge
Anzeige
Wenn bistimmte Werte in zwei Zellen dann Zeile ..
Micha

Hallo zusammen,
habe folgendes Problem:
habe eine große Datentabelle (B1:O31407); in dieser sollen diejenigen Zeilen gelöscht werden
in denen sowohl in der Spalte B als auch in der Spalte H der Zellwert "1" ist.
steht in einer der besagten Zellen ein anderer Werte soll nichts...
14.05.2009 08:36:57
Thread-ID: 1074984
4 Beiträge
EXCEL-VBA: Zeilen einfügen, wenn
Brinkmeyer

Hallo,
ich habe das Problem eines sehr großen Formulars. Ich möchte gern, dass Zeilen nur angezeigt werden, wenn eine bestimmte Zelle einen Inhalt hat. - So kann das Formular bei leeren Zellen kleiner gehalten werden...
Hat jemand eine Idee?
06.08.2009 19:27:26
Thread-ID: 1094141
2 Beiträge
Anzeige
Mit Makro eine neue Zeile einfügen
Richard

Hallo zusammen,
ich wollte über Makro eine neue Zeile einfügen lassen welche dann aber auch alle Formeln
der darüber liegenden Zeile übernimmt. Diese Funktion sollte dann aber auch immer wieder benutzt
werden können so das immer eine neue Zeile entsteht.
Könnt ihr mir vielleich...
21.01.2010 13:10:01
Thread-ID: 1131758
4 Beiträge
wenn a1 leer, dann ganze zeile löschen
Hajo
Hallo Andreasich vermute mal Du kennst Dich mit VBA aus und kannst eins der folgenden Makros Dir anpassen.129. löschen wenn Spalte A kein Datum enthält
folgender Vorschlag (die Spalte A wird auf Datumsinhalte überprüft):
For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step –1
If Not IsDa...
16.04.2002 20:58:38
Thread-ID: 113877
5 Beiträge
Zellen ausfüllen wenn Bedingung erfüllt (per VBA)
Jessi

Hallo zusammen,
ich habe mal wieder eine Frage bzw. ein Problem, dass ich nicht selbst lösen kann.
Ich lasse per Userform in die Spalte B einen "String" schreiben, das funktioniert auch schon (nicht in Beispielmappe integriert)
Beispielmappe:
https://www.herber.de/bbs/user/6928...
28.04.2010 19:30:32
Thread-ID: 1154354
4 Beiträge
Zellen löschen wenn Bedingung erfüllt ist
Kathi

Hallo zusammen,
zunächst einmal vielen Dank für die vielen tollen Beiträge, die mir schon sehr weitergeholfen haben. Leider stehe ich derzeit vor folgendem Problem (versuche, mich kurz zu fassen):
- habe Fragebogen erstellt, der in Excel eingegeben wird (Optionsfelder)
- insgesamt g...
02.06.2010 10:46:08
Thread-ID: 1159977
3 Beiträge
Zeilen automatisch einfügen Druckbereich anpassen
andreas

Hallo zusammen,
habe hier eine Anwendung bei der unterschiedlich viele Positionen vorkommen. In Tabelle1 werden die Positionen angelegt, in AN sollen diese zum Druck generiert werden. Sind mehr als vier Positionen hat nicht mehr alles auf einer Seite Platz. Jetzt sollen wenn mehrere Positio...
15.06.2010 20:03:35
Thread-ID: 1161890
3 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
7
7
3
1
2
3
4
3
2
2
1
3
3
5
5
3
2
2
2
8
1
2
9
16
2