Makro Werte aus Spalten

Hallo zusammen,
habe das Forum durchsucht, aber leider nicht die passende Lösung gefunden. Würde mich riesig freuen wenn mir jemand bei folgendem Problem helfen könnte:
Ich habe ein Tabellenblatt "Versuch", in welchem Daten in verschiedenen Spalten stehen (immer ab Zeile 2, in Spalte A/G/M/S/Y usw., insgesamt 10 Datensätze). Die Spalten können bis zu 2000 Werte enthalten (jede Spalte kann unterscheidlich viele Daten enthalten).
Die Werte dieser 10 Spalten sollen nun fortlaufend in Spalte A des Tabellenblatts "Zusammen" geschrieben werden.
Hättet Ihr hier vielleicht eine Makro-Lösung für mich? Habe viel probiert, aber auf Grund beschränkter Kentnisse keinen Erfolg gehabt ;)
Vielen Dank schonmal für Eure Mühe und Hilfe!
Micha

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Also Leerzellen sollen nicht mit übertragen werden - muss man wissen... macht viel mehr Aufwand!
Annahmen:
- Maximale Zeile mit Input in "Versuch" ist 2.000
- 1. Zeile in "Versuch" ist 2
- 1. Zeile für Ausgabe in "Zusammen" ist 1
So, hier mein Code:


Sub TransferData()
Const dSpaltenV As Long = 6 'Differenz zur nächsten Spalte
Const rowVersuchMax As Long = 2000
Dim rowVersuch As Long, iiSpalte As Long, clmVersuch As Long, rowVersuchE As Long
Dim rowZusammen As Long, AA As String
rowZusammen = 1 '1. (nächste leere) Zeile Ausgabe
Worksheets("Versuch").Activate '========
With Worksheets("Zusammen")
For iiSpalte = 0 To 9 'Gehe durch alle Spalten
clmVersuch = 1 + iiSpalte * dSpaltenV 'A/G/M/S/Y usw.
'Letzte Zeile in dieser Spalte suchen
rowVersuchE = Cells(rowVersuchMax + 1, clmVersuch).End(xlUp).Row
If rowVersuchE > 1 Then 'Sonst nichts in der Spalte
For rowVersuch = 2 To rowVersuchE 'Gehe durch alle Zellen der Spalte
AA = Cells(rowVersuch, clmVersuch)
If Len(AA) > 0 Then 'Dann Nicht-Leer
.Cells(rowZusammen, 1) = AA
rowZusammen = rowZusammen + 1
End If
Next rowVersuch
End If
Next iiSpalte
End With
End Sub

Da du zu faul warst eine Beispieldatei zu kreieren und hier hochzuladen, kann ich den Code nicht testen. Alle Denk- und Schreibfehler darin gehören jetzt dir!

Sub werte_in_Spalte_A() Dim a As Long 'Schleifenvariable für die 10 Datensätze Dim sz As Long 'Schleifenvariable für die Datensätze in der Spalte Dim sp As Long 'Spalten Dim zusarow As Long 'Zeile in 'Zusammen' in die geschrieben Dim lRow As Long 'Letzte Zeile der Spalte '--- 'Zusammen' reseten --- Worksheets("Zusammen").Range("B:XFD").ClearContents sp = 1 'Spalte 1 zusarow = 1 'Zeile in 'Zusammen' in die geschrieben wird am Beginn auf 1 gesetzt Worksheets("Versuch").Activate For a = 1 To 10 lRow = Worksheets("Versuch").Cells(Rows.Count, sp).End(xlUp).Row For sz = 2 To lRow 'Kopieren der Zellen nach 'Zusammen' in Spalte A untereinander Worksheets("Versuch").Range(Cells(sz, sp), Cells(sz, sp)).Copy Destination:=Worksheets("Zusammen").Cells(zusarow, 1) zusarow = zusarow + 1 'Zeile in Spalte A wird um 1 erhöht Next sz sp = sp + 6 'Spalte wird um 6 erhöht, da jede 6. Spalte kopiert wird 'zusarow = zusarow + 1 Next a Worksheets("Zusammen").Activate End Sub

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Makro Werte aus Spalten

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread