Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1480to1484
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1480to1484
1480to1484
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalte in Zeile transponieren (mit Makro)

Spalte in Zeile transponieren (mit Makro)
23.03.2016 10:47:13
Christian
Hallo Zusammen,
ich benötige mal wieder eure Hilfe.
Ich möchte gerne eine Exceldatei etwas umbauen mit einem Makro, da ich diese Datei täglich in der Form erhalte.
In der Quelldatei sind Spalte A, B, C, D, E, F, G solange gleich, wie in Spalte H Nummern stehen, die quasi zu der lfd. Nr. (in Spalte A) gehören.
Die Spalten I, J, K sind irrelevant.
Ich bräuchte jetzt quasi die Spalte H transponiert in eine Zeile.
Ziel ist es, in Zeile A jede "lfd. Nrummer" nur noch 1x zu haben.
Ab Spalte N sollen quasi die Zellen aus Zeile H transponiert werden. (Das kann mal 1 Spalte bedeuten, kann aber auch mal 50 oder mehr Spalten bedeuten)
In Spalte M benötige ich die Anzahl der durch die transponierung gefüllten Spalten.
Ich habe mal eine Datei angehängt, mit 2 Mappen. Mappe1 ist der Ursprung und Mappe 2 mein zu erreichendes Ziel.
Ich habe schon ein wenig probiert, aber ich scheitere an der Transponierung bei unterschiedlichen Zeilenzahlen je "lfd. Nummer".
Ich hoffe es kann mir hierbei jemand helfen.
Vielen Dank schonmal vorab!
https://www.herber.de/bbs/user/104553.xls

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalte in Zeile transponieren (mit Makro)
23.03.2016 11:02:13
Fennek
Hallo,
es gibt zwei Wege, mit denen du dich annähern kannst.
Mit dem Makrorekorder einfach copy und Inhalte einfügen - transponieren
In vba: application.transpose
Mfg

AW: es geht aber auch ohne VBA mit 3 Formeln! owT
23.03.2016 11:10:06
...
Gruß Werner
.. , - ...

AW: Spalte in Zeile transponieren (mit Makro)
23.03.2016 11:10:33
ChrisL
Hi Christian
Sub t()
Dim WS1 As Worksheet, WS2 As Worksheet
Dim iZeile As Long, tempZeile As Variant
Set WS1 = Worksheets("Ursprung")
Set WS2 = Worksheets.Add
WS2.Range("A1:AE1") = "div. Titel"
For iZeile = 2 To WS1.Cells(WS1.Rows.Count, 1).End(xlUp).Row
tempZeile = Application.Match(WS1.Cells(iZeile, 1), WS2.Columns(1), 0)
If IsNumeric(tempZeile) Then
WS2.Range("IV" & tempZeile).End(xlToLeft).Offset(0, 1) = WS1.Cells(iZeile, 8)
Else
tempZeile = WS2.Cells(WS2.Rows.Count, 1).End(xlUp).Row + 1
WS2.Range(WS2.Cells(tempZeile, 1), WS2.Cells(tempZeile, 11)).Value = _
WS1.Range(WS1.Cells(iZeile, 1), WS1.Cells(iZeile, 11)).Value
WS2.Cells(tempZeile, 14) = WS1.Cells(iZeile, 8)
End If
WS2.Cells(tempZeile, 13) = WS2.Cells(tempZeile, 13) + 1
Next iZeile
End Sub

cu
Chris

Anzeige
AW: Spalte in Zeile transponieren (mit Makro)
23.03.2016 15:00:29
Christian
Hallo Chris,
das ist riesig. Klappt genau so wie ich es mir vorgestellt habe!!! Vielen Dank dafür.
ich hab es jetzt in mein Import-Makro eingebaut und hab nur noch eine kleine Frage.
Ich sortiere die Spalten in der Zieltabelle etwas um. ich nutze dafür:

With .Range(.Cells(1, 1), .Cells(zaehler_4, 1))   'Spalte A ---> C
.Copy
wksAlle.Cells(Zeile_K, 3).PasteSpecial Paste:=xlPasteValues
End With
With .Range(.Cells(1, 2), .Cells(zaehler_4, 2))   'Spalte B ---> A
.Copy
wksAlle.Cells(Zeile_K, 1).PasteSpecial Paste:=xlPasteValues
usw...
Allerdings will ich jetzt für die transponierten Spalten nicht für jede Spalte eine seperaten Codeteil schreiben (ich würde bis Spalte "SS" machen --> das sind dann 500 transponierte).
gibt es dafür nicht eine Möglichkeit ala "Letzte Spalte"?

Anzeige
AW: Spalte in Zeile transponieren (mit Makro)
23.03.2016 15:56:06
ChrisL
Hi Christian
Schwer zu beurteilen ohne Zusammenhang.
Grundsätzlich stellt sich die Frage, ob es beim Umsortieren ein bestimmtes Muster gibt oder ob es ein "willkürliches" Umsortieren ist.
Wenn es kein Muster gibt, kann man mit folgendem Vorgehen (beispielhaft) ein paar Buchstaben sparen.
Sub DeinMakro()
Call HilfsMakro(1, 3) ' von A nach C
Call HilfsMakro(2, 1) ' von B nach A
End Sub 
Private Sub HilfsMakro(lVon As Long, lNach As Long)
Cells(1, lVon).Copy Cells(1, lNach)
End Sub

cu
Chris

AW: Spalte in Zeile transponieren (mit Makro)
23.03.2016 17:45:13
Christian
Hallo Chris,
manchmal hab ich auch ein Brett vor dem Kopf. Das geht auch so ganz leicht :)
With .Range(.Cells(1, 14), .Cells(zaehler_4, 513))   'Spalte N-SS ---> AI-TN
.Copy
wksAlle.Cells(Zeile_K, 35).PasteSpecial Paste:=xlPasteValues
Aber Danke nochmal für deine großartige Hilfe :)
Anzeige

300 Forumthreads zu ähnlichen Themen

Maximum aus Zeile,ausgeblendete Spalte nicht berüc
HermannZ

Hi;
wie kann ich mit VBA in einer Zeile das Maximum ermitteln,aber ausgeblendete Spalten nicht berücksichtigen.
Mit einer Formel z.B könnte man das so machen.
 CEFGH1246  2     3     4     5&n...
13.08.2008 19:42:43
Thread-ID: 1001641
4 Beiträge
Anzeige
Jede 2te Zeile in eine Spalte kopieren
Eddie

Guten Morgen @ all
Ich habe mal wieder ein kleines problem :-)
Ich würde gerne Daten, die alle in einer Spalte sind auteilen.... dazu soll entweder der 1,3,5,7.... oder 2,4,6,8 ... Wert immer in die danebenliegende Spalte kopiert werden
IST:
Hallo
Hello
Gut
Good
...
20.08.2008 07:52:00
Thread-ID: 1003065
6 Beiträge
Spalten in Zeilen anhängen
Jörg

Hallo zusammen,
in einer Tabelle mit ~1000 Artikeln in Spalte A stehen jeweils in den Spalten B-M die 12 zum Artikel gehörenden Monatswerte des Verbrauchs.
Ich brauche diese Daten jetzt so angeordnet, dass weiterhin alle Artikel in Spalte A stehen, jedoch die einzelnen Monatswerte unter...
01.09.2008 18:03:42
Thread-ID: 1006570
11 Beiträge
Anzeige
Letzter Eintrag von Zeile in Spalte A übernehmen
Zeile

Guten Tag
Ich suche nach einer Formel, die mir den letzten eingetragenen Wert (Wert aus hinterster Spalte) von verschiedenen Zeilen jeweils in die gleiche Zeile in Spalte A einträgt.
Hat mir jemanden einen Tipp?
Danke, Peter
03.09.2008 12:58:17
Thread-ID: 1007081
3 Beiträge
wie Spalten in einem Arbeitsblatt zu Zeilen zusamm
Michael

Moin erstmal,
folgendes Problem als mittelmäßiger Anwender.
Ich habe mehrere identische Arbeitsblätter wo ich jeweils untereinander (eine Spalte) mehrer Werte habe. G1-G10.
Diese Werte möchte ich in einem Arbeitsblatt zusammenfassen , allerdings nun in einer Zeile. A1-J1.
Wi...
04.09.2008 19:48:05
Thread-ID: 1007497
4 Beiträge
Änderung Zeilen und Spaltenbezug
lass

Hallo, ich habe folgendes Problem.
Ist
(Zeile2/Spalte A2): Auftrag xyz; (Zeile2/Spalte B2):Mitarbeiter 1; (Zeile2/Spalte C2)= Mitarbeiter 2
(Zeile3/Spalte A3): Auftrag xyz; (Zeile3/Spalte B3):Mitarbeiter 3; (Zeile3/Spalte C3)= Mitarbeiter 4
(Zeile4/Spalte A...
15.09.2008 08:29:55
Thread-ID: 1009654
17 Beiträge
Spalten mit Zeilen tauschen ?
Holger

Hallo zusammen,
gibt es in Excel eine Möglichkeit, Daten einer oderer mehrere Spalten nun quasi um 90° zu drehen und alles in eine oder mehrere Zeilen zu kopieren.
Gruss
Holger Wächter
18.09.2008 10:26:00
Thread-ID: 1010640
4 Beiträge
Zeilen löschen in Abhängigkeit von 2 Spalten
2

Hallo zusammen,
ich habe ein Makro über den Rekorder aufgezeichnet und versuche es anzupassen. Leider kenn ich mich in der Syntax nicht aus.
Ziel:
In einem markierten Bereich die Zeilen löschen, die in Abhängigkeit von zwei Spalten eine 0 enthalten.
D.h. Spalten X und Y enthalte...
06.10.2008 14:00:00
Thread-ID: 1014434
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
3
5
10
8
2
3
16
3
2
6
16
6
3
1
3
2
3
2
4
2
4
7
7
2