ich habe da ein kleines problem in excel, ich lese eine datei ein, welche aus 24 spalten besteht und 365 zeilen.
Mein Problem liegt darin, dass ich jede einzelne zeile in die selbe spalte bringen möchte. ist dies realtiv einfach möglich oder geht das gar nicht. Ich habe es dadurch probiert,jede einzelne zeile zu kopieren und sie dann zu transportieren, was aber relativ stressig ist.
Gibt es da eine einfachere möglichkeit.
Freue mich schon, über eure antworten und recht vielen dank im voraus
ich habe da ein kleines problem in excel, ich lese eine datei
ein, welche aus 24 spalten besteht und 365 zeilen.
Mein Problem liegt darin, dass ich jede einzelne zeile in die
selbe spalte bringen möchte. ist dies realtiv einfach möglich
oder geht das gar nicht. Ich habe es dadurch probiert,jede
einzelne zeile zu kopieren und sie dann zu transportieren, was
aber relativ stressig ist.
Hi Michou,
wohin willst du denn die 257te und folgende Zeilen transponieren?
wie gesagt ich will die 365 Zeilen,alle in eine Spalte haben,das entspricht dann eine Zeile mit 8670 Spalten
Und ich weiß nicht, wie ich das hinbekomme.
Grüße Michael
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
wie gesagt ich will die 365 Zeilen,alle in eine Spalte
haben,das entspricht dann eine Zeile mit 8670 Spalten
Hi Michael,
Alt+F11, Einfügen–Modul, Code reinkopieren.
Ggfs. „Tabelle1“ gegen den richtigen Blattnamen tauschen.
Den Curser irgendwo in den Code stellen und F5 drücken.
Editor beenden.
Der Code hat ein neues Tabellenblatt am Ende der anderen erstellt, wo die transponierten Daten in Spalte A stehen.
Option Explicit
'
Sub trans()
Dim Zei1 As Long, Spa1 As Long, wks1 As Worksheet, wks2 As Worksheet
Dim Zei2 As Long
Set wks1 = Worksheets("Tabelle1")
Worksheets.Add after:=Worksheets(Worksheets.Count)
Set wks2 = ActiveSheet
Zei2 = -23
With wks1
For Zei1 = 1 To .Range("A" & Rows.Count).End(xlUp).Row
Zei2 = Zei2 + 24
.Rows(Zei1).Copy
wks2.Cells(Zei2, 1).PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False \_
, Transpose:=True
Next Zei1
End With
Range("A1").Select
End Sub
cool vielen dank;
werd ich mal probieren, aber mir fällt da grad ein, dass es eigentlich gar keine wirkliche Tabelle ist, sondern einfach nur Daten, die werte von der ersten bis zur 24 spalte haben,die in 365 Zeilen aufgeteilt sind, und mein ziel ist es, einfach nur noch eine spalte zu haben mit 8670 zeilen
Grüße Michael
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
werd ich mal probieren, aber mir fällt da grad ein, dass es
eigentlich gar keine wirkliche Tabelle ist, sondern einfach
nur Daten, die werte von der ersten bis zur 24 spalte
haben,die in 365 Zeilen aufgeteilt sind, und mein ziel ist es,
einfach nur noch eine spalte zu haben mit 8670 zeilen
so ungefähr, wie gesagt es sind 24 spalten zu 365 zeilen und ich möchte jede zeile unter einer spalte haben
also die erste zeile soll dann transponiert werden,anschließend die 2. usw
Ich hoffe, ich konnte dir es ein wenig anschaulich darstellen
Grüße michael
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
werd ich mal probieren, aber mir fällt da grad ein, dass es
eigentlich gar keine wirkliche Tabelle ist, sondern einfach
nur Daten, die werte von der ersten bis zur 24 spalte
haben,die in 365 Zeilen aufgeteilt sind, und mein ziel ist es,
einfach nur noch eine spalte zu haben mit 8670 zeilen
in welcher Form liegen denn die Daten vor?
die Datei sieht folgendermaßen aus
0 0 0 0 0 0 0 0 0 5 12 34 54 90 110 80 40 20
3 0 0
so ungefähr, wie gesagt es sind 24 spalten zu 365 zeilen und
ich möchte jede zeile unter einer spalte haben
also die erste zeile soll dann transponiert
werden,anschließend die 2. usw
Hallo Michael,
irschendwie irritiert du mich stark *gg*
Liegt ein Exceltabellblatt mit mehr oder minder gefüllten Zellen in 365 Zeilen und 24 Spalten vor oder nicht?
Wenn ja, so transponiert dies mein Makro in eine neues Tabellenblatt.
Wenn nein, und so hatte ich deine Antwort verstanden, liegen die Daten als Textdatei o.ä. vor?
Im ersteren Fall, schon mal das Makro laufen gelassen?