Datum

Titel

25.04.2024 10:38:52

Bedingte Formatierung per VBA / MaxPoint

25.04.2024 10:30:04

Suche mit MINWENNS und Rückgabe mehrerer Werte

25.04.2024 09:47:49

Daten aus mehreren Dateien untereinander importieren

25.04.2024 09:31:31

Bild "In Zelle platzieren"

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

860to864

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

Spalten kopieren mit Schleife

Forumthread: Spalten kopieren mit Schleife
9 Beiträge zu diesem Forumthread
Anzeige
299 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Top 100 Forumthreads

15.04.2007 10:03:10

Haxi

Hallo,
ich habe folgende Ausgangsstellung:
Name
----------
Vorname
----------
Freiwillige Tätigkeit
davon sind ca. 200 Datensätze untereinander.
Ich bräuchte aber:
Name | Vorname | Freiwillige Tätigkeit
also, das was untereinander steht, nebeneinander.
Transponieren geht leider nicht, daher dachte ich mir, man könnte das mit einem Makro lösen, nach dem Motto:
A1 bleibt ja gleich, aber B1 verschiebt sich nach A2, C1 verschiebt sich nach A3.
Grundlegende Kenntnisse in VBA habe ich so ein bissel, aber wie ich z.B. den Spaltenwechsel vollziehen soll, keine Ahnung.
Hat jemand eine Idee?
Danke

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Spalten kopieren mit Schleife

ransi
AW: Spalten kopieren mit Schleife

15.04.2007 10:23:59

Matthias
AW: Spalten kopieren mit Schleife

15.04.2007 11:08:00

Haxi
AW: Spalten kopieren mit Schleife

15.04.2007 11:31:00

Matthias
Datenstruktur

ransi
AW: Datenstruktur

15.04.2007 12:29:39

Haxi
AW: Datenstruktur

ransi
AW: Datenstruktur

15.04.2007 13:33:08

Haxi
AW: Datenstruktur

15.04.2007 13:49:18

Haxi

AW: Spalten kopieren mit Schleife

ransi

Hallo Haxi
Teste mal diesen Code:

Option Explicit

Public Sub test()
    Dim Z As Long
    Dim arr(1 To 300, 1 To 3)
    Dim a As Long
    For Z = 1 To 300 Step 3
        a = a + 1
        arr(a, 1) = Cells(Z, 1)
        arr(a, 2) = Cells(Z + 1, 1)
        arr(a, 3) = Cells(Z + 2, 1)
    Next
    Range("A1:C300") = arr
End Sub

ransi

AW: Spalten kopieren mit Schleife

15.04.2007 10:23:59

Matthias

Hallo Haxi Murati
Warum sollte denn Transponieren nicht gehen?
Kopiere Deinen Bereich-gehe in Zelle D1 und und dann Inhalte einfügen - Transponieren.
Dann Spalte A,B,C löschen
Gruß Matthias

AW: Spalten kopieren mit Schleife

15.04.2007 11:08:00

Haxi

Ja, aber bei 200 Datensätzen dauert das mit der Hand doch schon mal eine sehr lange Zeit...
Daher ist das mit Cut&Paste die elegantere Art...
Das o.g. Makro hat nur den unangenehmen Nebeneffekt, daß er gleich die 2 Zeilen, die leer sind, rauslöscht. Ansonsten aber 1A!!!
Kann man das noch irgendwie unterbinden?

AW: Spalten kopieren mit Schleife

15.04.2007 11:31:00

Matthias

Hi,
Da hast Du sicher etwas mißverstanden.
Du kannst doch den Bereich A1:C200 markieren, dann kopieren und in D1 einfügen & transponieren.
Dann löschst Du den nicht mehr benötigten Bereich (Spalten A bis C). Das geht innerghalb von Bruchteilen einer Sekunde.
1.)
Userbild

2.)

3.)

Gruß Matthias

Datenstruktur

ransi

HAllo Haxi
Sind deine Daten so angeordnet ?
Tabelle1

	A
1	Name
2	----------
3	Vorname
4	----------
5	Freiwillige Tätigkeit
6	Name
7	----------
8	Vorname
9	----------
10	Freiwillige Tätigkeit
11	Name
12	----------
13	Vorname
14	----------
15	Freiwillige Tätigkeit
16	Name
17	----------
18	Vorname
19	----------
20	Freiwillige Tätigkeit

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
oder so:
Tabelle1

	A
1	Name
2	Vorname
3	Freiwillige Tätigkeit
4	Name
5	Vorname
6	Freiwillige Tätigkeit
7	Name
8	Vorname
9	Freiwillige Tätigkeit
10	Name
11	Vorname
12	Freiwillige Tätigkeit
13	Name
14	Vorname
15	Freiwillige Tätigkeit
16	Name
17	Vorname
18	Freiwillige Tätigkeit

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
oder anders ?
ransi

AW: Datenstruktur

15.04.2007 12:29:39

Haxi

So, vielleicht ist es so beser verständlich ;-)

AW: Datenstruktur

ransi

Hallo
Da war ich ja schon dicht dran ;-)
Wenn das hier deine Daten sind:
Tabelle1

	A	B	C	D
1	Name1			000392
2	Vorname1			000536
3	Freiwillige Tätigkeit1
4	Name2			000439
5	Vorname2			000165
6	Freiwillige Tätigkeit2
7	Name3			000409
8	Vorname3			000138
9	Freiwillige Tätigkeit3
10	Name4			000229
11	Vorname4			000297
12	Freiwillige Tätigkeit4
13	Name5			000752
14	Vorname5			000186
15	Freiwillige Tätigkeit5
16	Name6			000654
17	Vorname6			000108
18	Freiwillige Tätigkeit6
19	Name7			000711
20	Vorname7			000643
21	Freiwillige Tätigkeit7

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Dann schafft das hier:
Tabelle1

	A	B	C	D
1	Name1	Vorname1	Freiwillige Tätigkeit1	000392
2				000536
3
4	Name2	Vorname2	Freiwillige Tätigkeit2	000439
5				000165
6
7	Name3	Vorname3	Freiwillige Tätigkeit3	000409
8				000138
9
10	Name4	Vorname4	Freiwillige Tätigkeit4	000229
11				000297
12
13	Name5	Vorname5	Freiwillige Tätigkeit5	000752
14				000186
15
16	Name6	Vorname6	Freiwillige Tätigkeit6	000654
17				000108
18
19	Name7	Vorname7	Freiwillige Tätigkeit7	000711
20				000643

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
dieser code:

Option Explicit

Public Sub test()
Dim Z As Long
Dim arr(1 To 300, 1 To 3)
Dim a As Long
a = 1
For Z = 1 To 300 Step 3
    arr(a, 1) = Cells(Z, 1)
    arr(a, 2) = Cells(Z + 1, 1)
    arr(a, 3) = Cells(Z + 2, 1)
    a = a + 3
Next
Range("A1:C300") = arr
End Sub

ransi

AW: Datenstruktur

15.04.2007 13:33:08

Haxi

PERFEKT!
Danke

AW: Datenstruktur

15.04.2007 13:49:18

Haxi

Hm, ich würde das Ganze aber gerne verstehen, damit ich solche Fragen in Zukunft nicht mehr stellen muß ;-)
Z ist die Zeilennummer (also A, B, C...)?
Der Array wird unten per Range zugewiesen, und das Makro arbeitet sich dann Zeile für Zeile durch diesen Array im Schrittmuster 3 nach unten (1+3+3+3+3), soweit stimmt das?