Varianten aus 2 Spalten erstellen

[WillWissen]

Hallo Reiner, hallo Conny,

das Makro muss aber noch so angepasst bzw. geändert werden:

Code:

Sub kombinieren()

Dim iZeilenA As Integer
Dim iZeilenB As Integer
Dim i As Integer
Dim k As Integer

iZeilenA = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
iZeilenB = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

For i = 1 To iZeilenA
 For k = 1 To iZeilenB

   Range("D" & k + (i - 1) * iZeilenA).Value = Range("B" & k).Value
   Range("C" & k + (i - 1) * iZeilenA).Value = Range("A" & i).Value

 Next k
Next i

End Sub

[ReinerZufall]

Ja das ist ja nicht schlecht, aber wie schon gesagt und auch in der Datei gezeigt brauche ich die Ergebnisse untereinander.

Hast Du dafür evtl. auch eine Lösung?

LG

ReinerZufall

[WillWissen]

Hi Reiner,

dann benutze die beiden Spalten, die per Makro erzeugt werden, als Hilfsspalten (wenn sie stören, einfach ausblenden).

Tabelle1

	A	B	C	D	E	F
1	Z.01-F-41	Z.30-CKMPRP	Z.01-F-41	Z.30-CKMPRP		Z.01-F-41
2	Z.01-F-43	Z.30-ME11	Z.01-F-41	Z.30-ME11		Z.30-CKMPRP
3	Z.01-FB10	Z.30-ME12	Z.01-F-41	Z.30-ME12		Z.01-F-41
4	Z.01-FB60	Z.30-ME15	Z.01-F-41	Z.30-ME15		Z.30-ME11
5	Z.01-FB70	Z.30-MEK1	Z.01-F-41	Z.30-MEK1		Z.01-F-41
6	Z.01-FBL2	Z.30-MEK2	Z.01-F-41	Z.30-MEK2		Z.30-ME12
7	Z.01-MIRA	Z.30-MEK4	Z.01-F-41	Z.30-MEK4		Z.01-F-41
8	Z.01-MIRO	Z.30-MR21	Z.01-F-41	Z.30-MR21		Z.30-ME15
9	Z.01-MR01		Z.01-F-43	Z.30-CKMPRP		Z.01-F-41
10	Z.01-MR08		Z.01-F-43	Z.30-ME11		Z.30-MEK1
11	Z.01-MR11		Z.01-F-43	Z.30-ME12		Z.01-F-41
12	Z.01-MR1G		Z.01-F-43	Z.30-ME15		Z.30-MEK2
13	Z.01-MR1M		Z.01-F-43	Z.30-MEK1		Z.01-F-41
14	Z.01-MR5M		Z.01-F-43	Z.30-MEK2		Z.30-MEK4
15	Z.01-MR8M		Z.01-F-43	Z.30-MEK4		Z.01-F-41
16	Z.01-MRHG		Z.01-F-43	Z.30-MR21		Z.30-MR21
17	Z.01-MRHR		Z.01-FB10	Z.30-CKMPRP		Z.01-F-43

Formeln der Tabelle

Zelle Formel F1 =INDEX(C:D;(ZEILE(A1)-1)/2+1;REST(ZEILE(A1)-1;2)+1)

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8

[WillWissen]

Hallo Reiner,

meine ersten (öffentlichen) Gehversuche bzgl. VBA: ich habe das Makro in der von Conny vorgeschlagenen Datei nochmals angepasst. Den Button "Löschen" braucht's gar nicht. Dafür habe ich die mittels Formel  (im Makro hinterlegt) erzeugten Werte kopiert und in einer weiteren Spalte als Werte eingefügt, falls die Formelspalte doch, aus welchem Grund auch immer, gelöscht werden sollte. Die Hilfsspalten blendet das Makro aus.

Hier die Datei zum Spielen:


  ReinerZufall_kombinieren-2Spalten.xlsb (Größe: 28,18 KB / Downloads: 2)

[ReinerZufall]

Moin Moin,

danke Euch das ist genau das was ich gesucht habe!

LG

ReinerZufall