Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
26.04.2024 11:38:46
Acrobat PDF Formularfelder mit Excel ausfüllen
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
26.04.2024 10:08:11
Summieren von Zellen mit bedingter Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1000to1004
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
1000to1004
1000to1004
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Jede 2te Zeile in eine Spalte kopieren

Jede 2te Zeile in eine Spalte kopieren
20.08.2008 07:52:00
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
Liebe
Love
Soll
A B
Hallo Hello
Gut Good
Liebe Love
Ich würde mich tierisch freuen, wenn jemand ein kleines Makro vielleicht dazu hätte
gruß Eddie

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

Betreff
Datum
Anwender
Anzeige
AW: Jede 2te Zeile in eine Spalte kopieren
20.08.2008 08:16:56
Beverly
Hi Eddi,

Sub kopieren()
Dim loZeile As Long
For loZeile = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows. _
Count) To 2 Step -2
Cells(loZeile, 1).Copy Cells(loZeile - 1, 2)
Rows(loZeile).Delete
Next loZeile
End Sub



@ Beverly - Bitte erkläre mir doch noch eine Zeile
20.08.2008 08:32:00
Eddie
Danke Beverly
klappt Super, nur versuche ich gerade den code zu verstehen
For loZeile = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows. _
Count) To 2 Step -2 '!!!!!!! Diesen Code verstehe ich nóch nicht so ganz
Cells(loZeile, 1).Copy Cells(loZeile - 1, 2) ' hier wird der wert eine Zeile höher und eine Spalte nach rechts hinkopert
Rows(loZeile).Delete ' dann wird diese Zeile die kopiert worden ist gelöscht
Next loZeile ' und nun gehe zur nächsten Zeile
Danke und gruß Eddie

Anzeige
AW: @ Beverly - Bitte erkläre mir doch noch eine Z
20.08.2008 10:13:14
Beverly
Hi Eddi,
die Zeile bedeutet: Schleife von der letzten belegten Zelle in Spalte A bis zu Zeile 2 durchlaufen und dabei jeweils nur jede 2. Zeile verwenden. "Step" bedeutet "Schritt" und das "-" heißt "rückwärts" zählen. Zeile. Beim Löschen von Zeilen ist das "rückwärts"-Durchlaufen die günstigste Möglichkeit, andernfalls müsste man bei jedem Durchlauf die Zeilennummer anpassen.

AW: Jede 2te Zeile in eine Spalte kopieren
20.08.2008 08:22:00
Marc
So?

Sub Vokabeln()
lz = ActiveSheet.Cells(Rows.Count, "a").End(xlUp).Row
For i = 1 To lz Step 2
a = Cells(i, 1)
b = Cells(i + 1, 1)
Cells(i, 3) = a
Cells(i, 4) = b
Next i
End Sub


Anzeige
AW: Jede 2te Zeile in eine Spalte kopieren
20.08.2008 09:24:00
Eddie
@ Marc
Dein Ansatz ist zwar gut, aber leider müssen dann noch die ersten 2 Spalten gelöscht werden, und dann noch wieder jede Freie Zeile
gruß Eddie

330 Forumthreads zu ähnlichen Themen

Frage - Spalten einfügen & Spalten untereinander z
André

Hallo zusammen!
Ich habe da als blutiger Anfänger in VBA zwei Fragen:
1.) Wie kann ich in meiner Tabelle in jeder zweiten Spalte 4 leere Spalten einfügen lassen?
2.) Dann möchte ich unter den Inhalt der ersten fünf Spalten (A-E) den Inhalt der zweiten 5 Spalten (F-J) usw. In der grö...
08.08.2008 16:00:00
Thread-ID: 1000340
3 Beiträge
Anzeige
Zeilenmerkmale in Spalten umwandeln
MG_Learning

Hallo zusammen!
Ich habe keine Ahnung, wie ich aus folgender Tabellenstruktur: Beispiel:
A B C
London 20 Kinos
London 50 Gaststätten
London 10 Einkaufscentren
Paris 18...
17.08.2008 18:31:50
Thread-ID: 1002449
4 Beiträge
Zählen E-Mailadressen in einer Zeile
Enjoy82

Guten Morgen,
ich hab in die Zelle A1 einen rießigen E-Mail Verteiler kopiert und möchte nun die Anzahl der E-Mail Adressen wissen.
Mit Zählenwenn kam ich nicht wirklich weiter (wollte die @s zählen) -- Formel spuckt 0 aus
Nach jedem Beistrich einen Zeilenumbruch machen, ist mir noc...
27.08.2008 08:59:00
Thread-ID: 1004969
3 Beiträge
Anzeige
nur eine der Spalten darf gefüllt sein
Simon

Hallo,
ich habe glaube ich eine einfache Frage, komme aber nicht drauf Sie selbst zu lösen:
ich habe 4 Spalten: ja; nein; mehr Menge; weniger Menge
dahinter möchte ich eine 5te Spalte Kontrolle setzen. In dieser soll eine Fehlermeldung erscheinen falls mehr als eine Spalte ausgefüll...
01.09.2008 16:15:00
Thread-ID: 1006502
8 Beiträge
Spalten in Zeilen anhängen
Jörg

Hallo zusammen,
in einer Tabelle mit ~1000 Artikeln in Spalte A stehen jeweils in den Spalten B-M die 12 zum Artikel gehörenden Monatswerte des Verbrauchs.
Ich brauche diese Daten jetzt so angeordnet, dass weiterhin alle Artikel in Spalte A stehen, jedoch die einzelnen Monatswerte unter...
01.09.2008 18:03:42
Thread-ID: 1006570
11 Beiträge
Zeilenhöhe und Spaltenbreite in cm - Makro anlegen
Sandra

Wie lege ich ein Makro an - für oben genannte Funktion?
DANKE!!!
02.09.2008 13:53:00
Thread-ID: 1006781
9 Beiträge
Häufigkeit einer Uhrzeit aus einer Spalte
wolfgang

Hallo Leute
Ich habe eine Spalte mit einer menge Uhrzeiten und möchte die Häufigkeit einer Uhrzeit ( wie oft ist eine eintrag vorhanden)zum Beispiel zwischen 08:00 und 17:00!! Ich weiß das für euch sicher ein leichtes ist jemanden wie mir zu helfen!
Schon jetzt besten Dank für eure Mühe...
02.09.2008 14:57:58
Thread-ID: 1006808
9 Beiträge
Häufigkeit einer Uhrzeit aus einer Spalte
wolfgang

Hallo Leute
Ich habe eine Spalte mit einer menge Uhrzeiten und möchte die Häufigkeit einer Uhrzeit ( wie oft ist eine eintrag vorhanden)zum Beispiel zwischen 08:00 und 17:00!! Ich weiß das für euch sicher ein leichtes ist jemanden wie mir zu helfen!
Schon jetzt besten Dank für eure Mühe...
02.09.2008 15:11:51
Thread-ID: 1006816
2 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
2
3
3
2
3
7
10
8
8
1
3
3
1
1
2
9
2
2
2
4
4
4
2
5
3