VBA zu Kopieren von Spaltenwerten in Zeilen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Nochmals hallo Erich,
eine weitere Modifikation hätte ich auch noch:-)) wäre klasse, wenn Du mir hier weiterhelfen könntest.
Also die kopierten Merkmale sollten doch eher untereinander in Spalte B stehen, dafür in Spalte A solange das Merkmal bis das neue Merkmal kommt.
Beispiel:
Ausgangslage wie gehabt: 2 Merkmale in Spalte A mit unterschiedlichen Ausprägungen in den weiteren Spalten.
In Spalte A sollte nun das erste Merkmal so oft untereinander stehen wie es Ausprägungen zu diesem Merkmal in den Spalten gibt. In der Spalte B sollten alle Ausprägungen des ersten Merkmals untereinander stehen. Prinzipiell kann man es sich so vorstellen: Die Ausgangslage ist eine Matrix, die dann in den Spalten A & B ausmultipliziert dasteht...also alle möglichen Kombinationen von der Ausgangslage als 1:1 Zuordnung.
Ich hoffe, dass ich mich halbwegs verständlich ausgedürckt habe und Du eventuell noch ein wenig Zeit opfern möchtest.-))
Danke,
viele Grüße,
Michael

Hallo,
inzwischen habe ich selbst ein wenig getüftelt, bin aber wirklich kein VBAler:-(
Dennoch funktioniert das Makro nun so, wie ich es mir vorstelle...allerdings müsste es beim Befüllen des letzten Merkmals in Spalte A in der Zelle aufhören, wo auch die letzte Ausprägung in Spalte B steht.
Probier es bitte aus
Beispiel:
In Spalte A1, A2, A3 die Merkmale A, B, C eingeben.
In den Spalten unterschiedlich viele Ausprägungen z.B. für Merkmal A in den Spalten B1, B2, B3 die Zahlen 1, 2, 3 usw.

Sub KopiereInA()
   Dim zz As Long, cc As Long
   Dim iRow As Integer
   Dim rng As Range
   
  _
For zz = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
      cc = Cells(zz, _
Columns.Count).End(xlToLeft).Column - 1
      If cc > 0 Then
         Range(Rows(zz + 1), _
Rows(zz + cc)).Insert Shift:=xlDown
         Range(Cells(zz, 2), Cells(zz, cc + 1)).Copy
       _
Cells(zz + 1, 2).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
            _
SkipBlanks:=False, Transpose:=True
      End If
   Next zz
   Application.CutCopyMode = False
  _
Cells(2, 1).Select
   
      iRow = 2
   Do Until Cells(iRow, 1).Value = "Stop"
      If _
IsEmpty(Cells(iRow, 1)) Then
         Cells(iRow, 1).Value = Cells(iRow - 1, 1).Value
      End _
If
      iRow = iRow + 1
   Loop
   
   For Each rng In Selection.Columns(1).Cells
   If _
Len(Trim$(rng)) = 0 Then rng = rng.Offset(-1, 0)
Next


End _
Sub

Option Explicit Sub KopiereInB1() Dim zz As Long, cc As Long ' For zz = _ Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1 cc = Cells(zz, _ Columns.Count).End(xlToLeft).Column If cc > 1 Then Range(Rows(zz + 1), Rows(zz + _ cc - 2)).Insert Shift:=xlDown Range(Cells(zz + 1, 1), Cells(zz + cc - 2, 1)) = _ Cells(zz, 1) Range(Cells(zz, 3), Cells(zz, cc)).Copy Cells(zz + 1, _ 2).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _ SkipBlanks:=False, _ Transpose:=True Range(Cells(zz, 3), Cells(zz, cc)).ClearContents End If Next _ zz Application.CutCopyMode = False Cells(2, 1).Select End _ Sub

Beliebteste Forumthreads (12 Monate)

	A	B	C	D	E	F	G	H
1	Eintrag	Merkmal1	Merkmal2	Merkmal3	Merkmal4	Merkmal5	Merkmal6	Merkmal7
2	AAA	s	M	f	M	h
3	BBB	r	XX	M	u	M	M	XX

VBA zu Kopieren von Spaltenwerten in Zeilen

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

314 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA zu Kopieren von Spaltenwerten in Zeilen

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

314 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread