Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Varianten aus 2 Spalten erstellen
#11
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
Gruß Günter
Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen.
angebl. von Georg Christoph Lichtenberg (1742-1799)
Antworten Top
#12
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
Antworten Top
#13
Hi Reiner,

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

Tabelle1

ABCDEF
1Z.01-F-41Z.30-CKMPRPZ.01-F-41Z.30-CKMPRPZ.01-F-41
2Z.01-F-43Z.30-ME11Z.01-F-41Z.30-ME11Z.30-CKMPRP
3Z.01-FB10Z.30-ME12Z.01-F-41Z.30-ME12Z.01-F-41
4Z.01-FB60Z.30-ME15Z.01-F-41Z.30-ME15Z.30-ME11
5Z.01-FB70Z.30-MEK1Z.01-F-41Z.30-MEK1Z.01-F-41
6Z.01-FBL2Z.30-MEK2Z.01-F-41Z.30-MEK2Z.30-ME12
7Z.01-MIRAZ.30-MEK4Z.01-F-41Z.30-MEK4Z.01-F-41
8Z.01-MIROZ.30-MR21Z.01-F-41Z.30-MR21Z.30-ME15
9Z.01-MR01Z.01-F-43Z.30-CKMPRPZ.01-F-41
10Z.01-MR08Z.01-F-43Z.30-ME11Z.30-MEK1
11Z.01-MR11Z.01-F-43Z.30-ME12Z.01-F-41
12Z.01-MR1GZ.01-F-43Z.30-ME15Z.30-MEK2
13Z.01-MR1MZ.01-F-43Z.30-MEK1Z.01-F-41
14Z.01-MR5MZ.01-F-43Z.30-MEK2Z.30-MEK4
15Z.01-MR8MZ.01-F-43Z.30-MEK4Z.01-F-41
16Z.01-MRHGZ.01-F-43Z.30-MR21Z.30-MR21
17Z.01-MRHRZ.01-FB10Z.30-CKMPRPZ.01-F-43
Formeln der Tabelle
ZelleFormel
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
Gruß Günter
Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen.
angebl. von Georg Christoph Lichtenberg (1742-1799)
Antworten Top
#14
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:


.xlsb   ReinerZufall_kombinieren-2Spalten.xlsb (Größe: 28,18 KB / Downloads: 2)
Gruß Günter
Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen.
angebl. von Georg Christoph Lichtenberg (1742-1799)
Antworten Top
#15
Moin Moin,

danke Euch das ist genau das was ich gesucht habe!

LG

ReinerZufall
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste