Daten von Spalten in Zeilen umwandeln mit reinfolge

[Niko]

Hallo an alle, :78:
 
möchte gerne von den Daten die ich in den Spalten eingebe das dies in bestimmter reinfolgen in Zeilenreihe erscheinen,
ie kann ich das mit VBA bewerkstelligen?
 

Anbei die eingefügte Datei mit dem Beispiel
 
 
Danke im Voraus

[schauan]

Hallöchen,

schon mal bei uns gesucht? Wir haben da schon die eine oder andere Antwort, sowohl per Makro als auch Formellösungen.

[Niko]

Gesucht schon...aber finden konnte ich nichts...liegt wahrscheinlich an mir da ich noch ein anfänger bin, aber ne, leider nicht...sonst wäre jo mein thema gelösst ...isses leider net 

Also wer ein code als lösung hat, würde ich mich freuen ihn ausprobieren zu dürfen

Danke.

[LCohen]

Zeile 1 einen nach rechts verschieben (also eine Unreinfolge)

B1: =INDEX($A:$A;ZEILE(A1)*10-8+REST(SPALTE(A1)-1;10)) als eine Persilreinfolge weiter kopieren

[Niko]

LCohen vielen Dank für deine Hilfe.
Funktioniert Super

Doch ich möchte eine Lösung in VBA, da es sich um viele datensätze handelt, möchte ich es (wenn es möglich ist) mit ein Macro bewerkstelligen.

Danke nochmals.

[LCohen]

Dann geht meine Formel natürlich gar nicht. Denn VBA ist ja nicht in der Lage, Formeln zu kopieren.

[Niko]

Danke Troztem

Wenn jemand eine VBA lösung hätte, würde mir sehr helfen

[schauan]

Hallöchen,

etwas in der Art. Allerdings scheinen am Ende ein paar Daten zu fehlen, da sind die Blöcke kürzer. Das Makro ist für gleiche Anzahl Daten je Block.

Code:

Sub Makro1()
    'Variablendeklarationen - Long
    Dim iCnt&, kCnt&
    'ersten Block kopieren
    Range("A2:A10").Copy
    'transponiert ab B2 einfuegen
    Range("B2").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
    'Block leeren
    Range("A2:A10").Value = ""
    'Startwerte fuer Schleifenzaehler setzen
    iCnt = 12: kCnt = 3
    'Schleife solange was am Blockanfang steht
    Do While Cells(iCnt, 1) <> ""
      'Block mit 10 Zeilen kopieren
      Cells(iCnt, 1).Resize(9, 1).Copy
      'transponiert ab B-kcnt einfuegen
      Cells(kCnt, 2).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
      'Block leeren
      Cells(iCnt, 1).Resize(9, 1).Value = ""
      'Schleifenzahler hochsetzen
      iCnt = iCnt + 10: kCnt = kCnt + 1
    'Ende Schleife solange was am Blockanfang steht
    Loop
    'Fertigmeldung
    MsgBox "Fertig"
End Sub

[Niko]

Vorab Vielen Dank für diene mühe...echt Super...doch mein vorhaben ist umgekehrt,
möchte daten von Spalten in Zeilen reinsetzen in die reinfolge die ich in meiner Datei habe (deswegen auch die daten in den Zeilen).
doch die daten werden in den Zeilen vom internet reingesetzt und sie sollen automatisch in Zeilen umgesetzt werden, in reihenfolge wie im blatt.

Funktioniert echt super, doch umgekehrt wäre die ER Lösung


Anfangs Text:

*möchte gerne von den Daten die ich in den Spalten eingebe das dies in bestimmter reinfolgen in Zeilenreihe erscheinen,



Wenn dies möglich wäre...wäre für mich wie gesagt DIE ER Lösung :78:

[schauan]

Hallöchen,

Hast du es denn ausprobiert? Das Makro macht aus Spalte A mehrere Zeilen ab B2.