Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 00:15:51
Passwort im Herbersforum ändern
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1172to1176
1172to1176
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Sortieren nur jede 4.Zeile

Forumthread: Sortieren nur jede 4.Zeile

Sortieren nur jede 4.Zeile
KlausF
Hallo Forum,
ich habe einen Bereich D13:N28 in dem nur jede 4. Zeile mit Werten gefüllt wird
(restliche Zeilen werden später schreibgeschützt und enthalten nicht sichtbaren Text).
https://www.herber.de/bbs/user/71107.xls
Ich möchte nun das nach Spalte D sortiert wird aber nur die besagten Zeilen
berücksichtigt werden. Probiert habe ich
Sub Sort()
Dim rng As Range
Set rng = Range("D13:N13,D16:N16;D19:N19,D22:N22,D25:N25,D28:N28")
Worksheets("Neu_Geschwister").rng.Sort Key1:=[D13], Order1:=xlAscending, Header:=xlGuess
End Sub
erhalte aber eine Fehlermeldung. Ist es überhaupt möglich wie gewünscht zu sortieren?
Vielen Dank im voraus für Antworten
Gruß
Klaus
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Sortieren nur jede 4.Zeile
17.08.2010 19:14:01
Backowe
Hi Klaus,
lege dir ein temporäres sheet an, kopiere die Zeilen darin, sortiere diese und kopiere sie wieder zurück. Tempsheet löschen.
Gruß Jürgen
AW: Sortieren nur jede 4.Zeile
17.08.2010 19:40:24
Gerd
Hallo Klaus,
quick and dirty.
Sub Sortieren()
Dim rng As Range, lngRow As Long, lngOffset As Long
Set rng = Worksheets("Neu_Geschwister").Range("D13:N13,D16:N16,D19:N19,D22:N22,D25:N25,D28:N28") _
rng.Copy Tabelle2.Cells(13, 4)
Tabelle2.Range("D13:N28").Sort Key1:=Tabelle2.[D13], Order1:=xlAscending, Header:=xlNo
For lngRow = 13 To Tabelle2.Cells(13, 4).End(xlDown).Row
Worksheets("Neu_Geschwister").Range(Worksheets("Neu_Geschwister").Cells(lngRow + lngOffset, 4),  _
Worksheets("Neu_Geschwister").Cells(lngRow + lngOffset, 14)).Value = _
Tabelle2.Range(Tabelle2.Cells(lngRow, 4), Tabelle2.Cells(lngRow, 14)).Value
lngOffset = lngOffset + 2
Next
Tabelle2.Range("D13:N28").Clear
End Sub
Gruß Gerd
Anzeige
Super!
17.08.2010 19:56:29
KlausF
Hallo Gerd,
quick und dirty gefällt mir. Genauso hatte ich mir das gewünscht ...
Recht herzlichen Dank!
Gruß
Klaus
;

Forumthreads zu verwandten Themen

Alles bis auf jede 4. Zeile löschen
markus

für meine diplomarbeit habe ich hier eine addressliste mit 14550 einträgen, die von A (Name Besitzer) bis H (Telefonnummer) reicht, und der fragebogen den ich erstellt habe soll nun an jede 4. person geschickt werden.
sprich ich suche nach einer möglichkeit, wie ich excel mitteile, dass jed...
02.06.2010 01:18:00
Thread-ID: 1159952
3 Beiträge
Zeilenbereich untereinander kopieren
Maris

Hi Leutz,
ich möchte den Zeilenbereich A1:A156 markieren, kopieren und 52 x in dem selben Tabellenblatt untereinander kopieren. Kann mir jemand mit einem kleine Code weiterhelfen?
Gruß
Maris
31.01.2011 10:27:58
Thread-ID: 1198176
5 Beiträge
Anzeige
Zeilen untereinander kopieren
Horst

Hallo Excel-Freunde,
ich bin auf der Suche nach einem Makro, dass folgendes macht:
In Spalte B bis H sind verschiedene Zahlen enthalten. Ich will nun ein Eingabefeld erzeugen, in man eine Zahl x eingibt, wonach ein Suchalgorithmus startet, der alle Zeilen im Bereich B:H nach dieser Zahl...
10.09.2011 17:46:10
Thread-ID: 1229337
8 Beiträge
Zeilenauswahl per VBA X mal untereinander kopieren
Hans

Hi!
Ich hätte eine Frage zu einem VBA Makro.
Ich würde gerne die Zeilen 2-38 der Beispieldatei kopieren und x Mal (z.B. 10 Mal) darunter einfügen.
Ich habe das versucht mit der Formatierung darzustellen. In den Feldern stehen dann Werte/Text.
Hier das Beispiel: https://www.herb...
11.03.2016 12:47:57
Thread-ID: 1481409
3 Beiträge
Jede 4. Zeile in Array einlesen und ausgeben
Maria

Hallo,
ich brauche dringend Hilfe bei folgendem Fall: Wie kann ich jede 4. Zeile eines Tabellenblatts in ein Array einlesen und anschließend das komplette array in ein anderes Tabellenblatt einfügen?
Vielen Dank im Voraus!
17.09.2018 19:34:22
Thread-ID: 1646063
11 Beiträge
alle nicht leeren Zeilen mehrfach kopieren
glupki

Hallo,
ich brauche einen Code für folgendes Problem.
In Zeile B steht zb.
35/5
565/4
123/4
der Code soll die Zeilen kopieren und 2 mal untereinander in Zeile F einfügen also zb.
35/5
35/5
565/4
565/4
123/4
123/4
die länge der Zeilen in in Spa...
08.10.2018 11:07:53
Thread-ID: 1650028
2 Beiträge
Zeilen mehrfach kopieren und Nummerieren
Oliver

Hallo!
Ich würde gerne eine Zeile, die durch ein Makro aus einer anderen Exceltabelle erstellt wurde, kopieren und zwar so oft wie in einer Zelle (H2) angeben.
Die Zeilen sollten dabei noch durchnummeriert werden.
Ich habe leider keinen Ansatz. ich schicke eine Beispieltabelle mit.<...
04.12.2018 11:59:18
Thread-ID: 1661136
4 Beiträge
Jede Zeile m. den Spalten A-M verdoppeln
Alexandra24
Hallo Community!

Ich habe ein ähnliches Problen, wie ein Community-Mitglied vor mir, jedoch komme ich
mit der Formel nicht klar:

Ich möchte jede Zeile meiner 483 Zeilen-Tabelle "Januar" mit den Spalten A-M in einem anderen TAB "1.Quartal" verdoppeln.

Ich habe dazu im...
03.05.2023 13:11:36
Thread-ID: 1929691
4 Beiträge
Jede 2te Zeile in eine Spalte kopieren
Eddie

Guten Morgen @ all
Ich habe mal wieder ein kleines problem :-)
Ich würde gerne Daten, die alle in einer Spalte sind auteilen.... dazu soll entweder der 1,3,5,7.... oder 2,4,6,8 ... Wert immer in die danebenliegende Spalte kopiert werden
IST:
Hallo
Hello
Gut
Good
...
20.08.2008 07:52:00
Thread-ID: 1003065
6 Beiträge
Einfügen mit jeder 2. Zeile als Leerzeile
Ulrich

Hallo zusammen,
wie kann ich einen Bereich einer Tabellen markieren, kopieren und in einem anderen Tabellenblatt über "Inhalte einfügen" und "verknüpfen" automatisch mit jeder zweiten Zeile als Leerzeile versehen, ohne das die Verknüpfung verrutscht?
Danke im Voraus und Grüße,
Ulr...
26.08.2008 14:15:00
Thread-ID: 1004799
4 Beiträge
jede zweite Zeile bearbeiten/löschen
Martin

Hallo zusammen,
ich muss bei einer recht umfangreichen Datei je zwei Zeilen zusammenfassen.
Dafür bei zweiter Zeile:
Kopieren der Werte von Spalte A bis Spalte J, die Werte in der vorigen Zeile ab Spalte K einfügen, so dass nachher die Zellen A-T belegt sind. Nicht jede Zelle ist hi...
15.11.2008 14:35:07
Thread-ID: 1024767
5 Beiträge
Jede 2. Zeile einfärben
Frank

Hallo und Guten Abend Zusammen!
Mit folgendem Code
Sub Zeilen_formatieren() Sheets("DATEN").Activate Range("A14:K65536").Select For Zeile = 1 To Selection.Rows.Count If Zeile Mod 2 > 0 Then Selection.Rows(Zeile).Interior.ColorIndex = 15 End If Next Zeile End Sub
kann ich jede z...
17.01.2009 19:20:00
Thread-ID: 1040966
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige