Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
528to532
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
528to532
528to532
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

daten umarrangieren

daten umarrangieren
11.12.2004 12:51:58
Patrick
Hallo,
möchte die Daten der Datei benin https://www.herber.de/bbs/user/14675.xls
so umarrangieren:
von:
1 2 3 4 5 ... 12
1974
1975
...
nach:
1974 1
1974 2
1974 3
...
1974 12
1975 1
...
habe es auf Anraten wie folgt schon probiert:
=INDEX(Original!$A$1:$M$14;VERGLEICH(Neu!$A1;Original!$A:$A;0);VERGLEICH(Neu!$B1;Original!$A$1:$M$1;0))
dann erscheint allerdings: #NV
weiss echt nicht was ich falsch mache, bin allerdings überhaupt keine Ahnung von Excel.

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: daten umarrangieren
11.12.2004 13:20:50
Pampel
Hallo,
Du markierst z.B. die Zeilen 1 und 2 von Spalte A-M, dann Bearbeiten-Kopieren. Dann suchst Du Dir eine Stelle, wo die Sachen eingeügt werden sollen und wählst Bearbeiten-Inhalte einfügen ... und kreuzt dort Transponieren an.
Gruß,
Pampel
AW: daten umarrangieren
11.12.2004 13:26:46
Patrick
Auf die Idee das ganze manuell zu machen, bin ich auch schon gekommen, habe aber nach 10 Minuten die Idee wieder verworfen,da ich dies für jede Zeile einzeln machen müßte und dies für insges. 3000 Zeilen ein wenig zu lange dauert.
AW: daten umarrangieren
11.12.2004 13:42:25
Josef
Hallo Patrick!
Das sollte es tun!

Sub transpose_data()
Dim wks As Worksheet
Dim neu As Worksheet
Dim lastRow As Long
Dim lRow As Long
Dim lastCol As Integer
Dim iCol As Integer, n As Integer
Set wks = Sheets("Tabelle1")
n = 1
lastCol = wks.Range("IV1").End(xlToLeft).Column
lastRow = wks.Range("A65536").End(xlUp).Row
Set neu = Worksheets.Add(after:=wks)
neu.Name = "Transponiert"
For lRow = 2 To lastRow
For iCol = 2 To lastCol
neu.Cells(n, 1) = wks.Cells(lRow, 1)
neu.Cells(n, 2) = wks.Cells(lRow, iCol)
n = n + 1
Next
Next
End Sub

Code eingefügt mit: Excel Code Jeanie
Gruß Sepp
Anzeige
AW: daten umarrangieren
11.12.2004 13:46:52
Patrick
Vielen Dank Josef,
das werde ich mal ausprobieren.
AW: daten umarrangieren
11.12.2004 13:46:56
Patrick
Vielen Dank Josef,
das werde ich mal ausprobieren.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige