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
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
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
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:
[
attachment=7726]
Moin Moin,
danke Euch das ist genau das was ich gesucht habe!
LG
ReinerZufall