Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.10.2025 10:29:26
Userform Multipage - Page auswählen
19.10.2025 21:57:06
Diagrammpunkte in unterschiedlichen Farben je nach Wert
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
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
1024to1028
1024to1028
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

jede zweite Zeile bearbeiten/löschen

Forumthread: jede zweite Zeile bearbeiten/löschen

jede zweite Zeile bearbeiten/löschen
15.11.2008 14:35:07
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 hierbei unbedingt gefüllt.
Jede gerade Zeile beginnend bei Zeile 4 muss kopiert und eine Zeile drüber eingefügt werden.
Also:
die Werte aus A4:J4 müssen in K3:T3 kopieren,
die Werte aus A6:J6 müssen in K5:T5 kopieren,
die Werte aus A8:J8 müssen in K7:T7 kopieren,
Danach können alle geraden Zeilen ab 4 gelöscht werden, sie werden dann ja nicht mehr benötigt. Das könnte ich aber auch über einen Filter selektieren und per Hand löschen...
Ich wäre euch sehr dankbar wenn mir jemand dabei kurz helfen könnte...
Danke,
Martin
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: jede zweite Zeile bearbeiten/löschen
15.11.2008 15:28:00
Uwe
Hi Martin,
Du hast doch schon fast die Lösung. Schreibe in K3: = A4. Kopiere das dann nach rechts bis T und nach unten bis zum Ende. Dann ersetzt Du die Formeln durch Werte und löscht jede zweite Zeile mit Hilfe des Filters (z.B. Hilfsspalte mit : =REST(ZEILE();2) und nach 0 filtern.
Gruß
Uwe
(:o)
Anzeige
AW: jede zweite Zeile bearbeiten/löschen
15.11.2008 18:37:53
Martin
Danke dir Uwe,
denkbar einfach was du schreibst und du hast es Recht, so würde es auch gehen. :-)
Ich habe mich trotzdem der Einfachheithalber (und falls ich das gleiche nochmal machen muss) für die Lösung von Tino entschieden. Trotzdem vielen Dank auch an dich!
Grüße,
Martin
AW: jede zweite Zeile bearbeiten/löschen
15.11.2008 15:30:00
Tino
Hallo,
ich hoffe, dass ich Dich richtig verstanden habe.
Teste mal diesen Code.
Option Explicit

Sub TestZellenVerschieben()
Dim lngRow As Long, a As Long

Application.ScreenUpdating = False
        Range("A:J").Copy Range("K1")
        lngRow = Cells(Rows.Count, "A").End(xlUp).Row
    
    'prüfen ob Zeile gerade ist 
    If lngRow Mod 2 > 0 Then lngRow = lngRow - 1
    
    'Schleife über Zeilen von unten nach oben in zweierschritten 
    For a = lngRow To 4 Step -2
      'Zellen kopieren 
      Range(Cells(a, "A"), Cells(a, "J")).Copy Range(Cells(a - 1, "K"), Cells(a - 1, "T"))
      'Zeile löschen 
      Rows(a).Delete
    Next a
Application.ScreenUpdating = True
End Sub


Gruß Tino

Anzeige
AW: jede zweite Zeile bearbeiten/löschen
15.11.2008 18:36:20
Martin
Hallo Tino,
habe es so probiert wie du es sagst. Es funktioniert einwandfrei.
DANKE! Das hat mir viel händische Arbeit erspart!
Danke und Gruß,
Martin
;

Forumthreads zu verwandten Themen

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
Anzeige
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
Anzeige
Jede 2. Zeile Hintergrund ändern
Blum

Hallo zusammen
Habe da noch eine Frage.
In Excel kann man doch jede 2. Zeile anders darstellen, so dass das lesen von grossen Dateien einfacher wird.
z.B. 1. Zeile weiss, 2. Zeile hellgrün, 1. Zeile weiss, 3 wieder hellgrün usw.
Hemm weiss jemand noch wie das automatisiert geht?...
25.06.2009 17:40:07
Thread-ID: 1084417
6 Beiträge
Wert aus jeder zweiten Zeile übernehmen
oli.p

Hallo zusammen!
Ich sitze den halben Tag an einer für mich schier unlösbaren Aufgabe.
Zur weiteren Bearbeitung wollte ich eigentlich jeweils "nur" jeden zweiten Wert einer Zeile anzeigen.
Hier zur Veranschaulichung: https://www.herber.de/bbs/user/63952.xls
Vielen Dank für Eure H...
20.08.2009 14:20:09
Thread-ID: 1097390
5 Beiträge
Anzeige
leere Zeile mit Text und Formel dynamisch einfügen
christian

Hallo zusammen,
ich habe folgendes Problem das ich mit meinen wenigen VBA Kenntnissen nicht lösen kann.
Ich habe eine Tabelle mit n Zeilen.
- Nach jeweils ca. 53 Zeilen sollte eine Zeile mit dem Text "Zwischentotal " (Spalte C) und in die Summen-Formel für die 53 Zeilen (Spalte H)...
28.11.2009 13:36:30
Thread-ID: 1120637
3 Beiträge
Makro zum löschen jeder 2. Zeile
philG

Hallo liebe Herber-Gemeinde,
ich habe ein Problem: elend Lange Tabelle, wo ich die 1., 3., 5. Zeile usw. löschen muss.
Kann mir jemand mit einem VB-Befehl aushelfen, der jede 2. Zeile der Tabelle löscht?
Ich wäre suuperhappy! Habt vielen Dank im Voraus! :-)
05.01.2010 10:26:46
Thread-ID: 1127199
4 Beiträge
Makro: jede zweite Zeile andersfarbig
Holger

Hallo,
aus diesem Forum habe ich unten stehendes Makro gefischt.
Funktioniert soweit alles, nur sobald durch AutoFilter die Auswahl verändert wird,
gerät natürlich alles durcheinander. Mit einer bedingten Formatierung möchte ich es ungern
lösen, mir ist eine reine VBA Lösung li...
07.05.2010 16:37:55
Thread-ID: 1156123
4 Beiträge
Anzeige
Innerhalb Markierung jede 2. Zeile löschen
Henning

Hallo zusammen,
ich habe schon gesucht, aber irgendwie keine Lösung gefunden.
Das Problem: Beim Einfügen von Daten aus einem anderen Programm übernehme ich Zeilen, die ich nicht brauche. Da ich die Daten immer wieder an anderen Stellen einfüge, suche ich nach einer Funktion, die mir in...
10.06.2010 16:54:13
Thread-ID: 1161292
3 Beiträge
Leere Zeile einfügen
Tobson

Halli Hallo
Habe den folgenden VBA Code, bei Übereinstimmung der If Abfrage wird eine Tabelle mit Werten beschrieben, trifft die Übereinstimmung nicht zu, soll eine Zeile frei gelassen werden und die Schleife das nächste mal durchlaufen... . Ich suche ja immer die nächste frei Zeile in der...
14.10.2010 22:56:15
Thread-ID: 1182501
3 Beiträge
Zeile zwischen zwei Tabellen dynamisch einfügen
Momo

Hallo ihr Lieben,
ich sitze über einer Anforderung, zu der mir niemand im Büro helfen kann. Da unsere Leute Excel-Experten sind und mir leider nicht helfen konnten, wende ich mich nun an die Excel-Gurus.
Ich habe folgende Situation. Wir haben eine Arbeitsmappe.
In dieser Arbeitsmap...
14.12.2010 15:33:03
Thread-ID: 1191422
2 Beiträge
leere zeile finden und dann erst einfügen
Hoppe

Hallo,
ich bin neu hier und hoffe Ihr könnt mir helfen.
Ich habe eine Tabelle1 und eine Tabelle2,
dort sollen nun sachen kopiert werden und in einer anderen eingefügt werden. Es funktioniert auch super nur leider überschreibt er mir alle alten einträge. Nun meine Frage. Bekommt man...
24.06.2011 13:55:45
Thread-ID: 1219530
2 Beiträge
VBA in leere Zeile einfügen
Stefan

Tach erstmal
Ich habe ein code welcher mir Dir Zeilen aus einer Tabelle in die unterste leere Zeile eines weiteren Tabellenblattes schreibt. (gefällt soweit ganz gut)
Kann man den Code abändern das er die nächst leere Zeile verwendet ?
d.h.
-Doppelklick
-Zeile Kopieren
...
07.04.2012 14:05:38
Thread-ID: 1258271
17 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