Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1328to1332
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
Inhaltsverzeichnis

Zelle in Spalten kopieren

Zelle in Spalten kopieren
04.09.2013 22:18:28
Chris
Hallo zusammen,
ich habe eine Tabelle, die wie folgt aufgebaut ist:
alles in Spalte A
Zeile 1: "Titel_1"
Zeile 2: "Autor_1"
Zeile 3: "Keyword_1"
Zeile 4: "Link_1"
Zeile 5: "Titel_2"
Zeile 6: "Autor_2"
Zeile 7: "Keyword_2"
Zeile 8: "Link_2"
Zeile 9: "Titel_3"
Zeile 10: "Autor_3"
Zeile 11: "Keyword_3"
Zeile 12: "Link_3"
...
Zeile 2964
Ich möchte die Zellinhalte der Zeilen sinnvoll in Spalten kopieren, um damit besser auswerten zu können:
Spalte A | Spalte B | Spalte C | Spalte D
Titel_1 | Autor_1 | Keyword_1| Link_1
Titel_2 | Autor_2 | Keyword_2| Link_2
Titel_3 | Autor_3 | Keyword_3| Link_3
...
Kann man das mit einem Makro lösen und wenn ja, wie?
Danke für eure Unterstützung!
Gruß
Chris

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

Betreff
Datum
Anwender
Anzeige
AW: Zelle in Spalten kopieren
04.09.2013 23:02:37
Gerd
Hallo Chris!
Sub trans()
Dim i As Long, j As Long
With Worksheets("Tabelle1")
j = 1
For i = 1 To .Cells(1, 1).End(xlDown).Row Step 4
j = j + 1
.Cells(i, 1).Resize(4, 1).Copy
Worksheets("Tabelle2").Cells(j, 1).Resize(1, 4). _
PasteSpecial Paste:=xlPasteAll, Transpose:=True
Application.CutCopyMode = False
Next
End With
End Sub
Gruß Gerd

AW: Zelle in Spalten kopieren
04.09.2013 23:06:47
Balder
Hallo Chris,
hier ein Vorschlag:

Option Explicit
Sub Umschreiben()
Dim i As Long
Dim j As Integer
With Sheets(1)
For i = 1 To .Cells(.Cells.Rows.Count, 1).End(xlUp).Row
.Cells(i, 2) = .Cells(i + 1, 1)
.Cells(i, 3) = .Cells(i + 2, 1)
.Cells(i, 4) = .Cells(i + 3, 1)
For j = 1 To 3
.Rows(i + 1).Delete
Next j
Next i
End With
End Sub
Gruß Balder
http://www.youtube.com/BaldersWelt

Anzeige
AW: Zelle in Spalten kopieren
04.09.2013 23:23:11
Chris
perfekt! Vielen Dank

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige