Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
568to572
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
568to572
568to572
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Schwieriges Transponieren - Automatisch

Schwieriges Transponieren - Automatisch
15.02.2005 14:08:14
Pierre
Hallo,
folgendes Anliegen - hab auch schon etliche Themen im Forum durchsucht - aber auch durch mein Bischen Wissen in VBA, keine Lösung gefunden...
Es geht um folgendes: Wenn man sich die Tabelle anschaut, soll diese MATRIX in eine normale Tabelle umgeformt werden (später mit Autofilterfunktionen usw.)...das heißt taballarisch in dem Fall das am Ende nur 5 Spalten sind!?
(Betrifft Tabelle 1...Urfassung)
Händisch würde ich es folgender Maßen tun müssen:
Wie in Tabelle 2 vorgemacht, nur das man da bis runter alle EPA's durchgehen müsste...!
Anlage (https://www.herber.de/bbs/user/18123.xls)
Würde mich gern über ein solchen Quelltext freuen, der dieses händische dann automatisch für diese Menge an Zeilen tut.
Danke@Greetz
Pierre

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Schwieriges Transponieren - Automatisch
Hübi
Hi Pierre,
deine Tabelle kann sich keiner downloaden, weil du den Link in () gesetzt hast.
Gruß Hübi
Was soll mit Spalte BT geschehen? o.w.T.
Reinhard
AW: Schwieriges Transponieren - Automatisch
Reinhard
Hi Pierre,
hat Infineon Technologies keine interne Excelcrew? *g
Alt+F11, Einfügen Modul, nachfolgenden Code reinkopieren, Editor schliessen.
Im Blatt "Ausgangsdatei" über Ansicht--Symbolleisten--Formular eine Befehlsschaltfläche anlegen, der das Makro umform() zuwweisen.
Gruß
Reinhard 

Option Explicit
Sub umform()
Dim wksZ As Worksheet, wksQ As Worksheet
Dim ZeileZ As Long, ZeileQ As Long
Application.ScreenUpdating = False
For Each wksZ In ThisWorkbook.Worksheets
If wksZ.Name = "Ergebnis" Then
Application.DisplayAlerts = False
wksZ.Delete
Application.DisplayAlerts = True
End If
Next wksZ
ActiveWorkbook.Sheets.Add.Name = "Ergebnis"
Set wksQ = Worksheets("Ausgangsdatei")
Set wksZ = Worksheets("Ergebnis")
wksZ.Range("A1:E1") = Split("Gruppe Ebene EPA Anlage F")
With wksZ
ZeileQ = 5
ZeileZ = 2
While wksQ.Cells(ZeileQ, 1) <> ""
wksQ.Range("D" & ZeileQ & ":BS" & ZeileQ).Copy
.Range("E" & ZeileZ).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
wksQ.Range("D4:BS4").Copy
.Range("D" & ZeileZ).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
wksQ.Range("A" & ZeileQ & ":C" & ZeileQ).Copy Destination:=.Range("A" & ZeileZ)
.Range("A" & ZeileZ & ":C" & ZeileZ).Copy Destination:=.Range("A" & ZeileZ & ":C" & ZeileZ + 67)
ZeileQ = ZeileQ + 1
ZeileZ = ZeileZ + 68
Wend
End With
Application.ScreenUpdating = True
End Sub

Anzeige
AW: Schwieriges Transponieren - Automatisch
16.02.2005 09:07:09
Pierre
Hallo Reinhard,
...wie bist du nur darauf gekommen :-)
Großes Dankeschön - es funktioniert erstmal (so halb) gut!!!
Kannst des mir auch ma ganz kurz näher bringen? Ich meine Reinkopieren bringt ja jede Tipse :o) ...aber da ich schon Vorkenntnis hab, würd ich es verstehen wollen.
Grüße Pierre

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige