Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1084to1088
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
1084to1088
1084to1088
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Verketten Makro (Kreuzkombination)

Verketten Makro (Kreuzkombination)
Herman
Hallo zusammen,
hab leider in der Suche keine Lösung gefunden, vielleicht kann mir jemand bei diesem Problem helfen.
Ich würde gerne die Inhalte aus den Zellen zweier Spalten in jeweils allen Kombinationen in einer neuen Spalte verketten.
Beispiel (Spalte A und B)
A1 B1
A2 B2
A3 B3
Verkettung:
A1 B1
A1 B2
A1 B3
A2 B1
A2 B2
A2 B3
A3 B1
A3 B2
A3 B3
D.h. die erste Zelle der ersten Spalte wird mit allen Zellen der zweiten Spalte kombiniert, bis eine leere Zelle in Spalte 2 kommt.
Dann die zweite Zelle der ersten Spalte mit allen Zellen der zweiten Spalte usw.
Das ganze in einer Schleife bis eine leere Zelle in Spalte 1 kommt, dann beendet sich das Makro.
Wäre super wenn jemand einen Ansatz dafür hätte!
Danke und Gruß,
Herman

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

Betreff
Benutzer
Anzeige
AW: Verketten Makro (Kreuzkombination)
03.07.2009 10:21:43
ransi
HAllo Herman
Nehmen wir mal an das sind deine Daten:
Tabelle1

 AB
1A1B1
2A2B2
3A3B3
4A4B4
5A5B5
6A6 
7A7 
8A8 
9A9 
10A10 
11  
12  
13  


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
DAnn schubs mal diesen Code an:
Option Explicit


Public Sub test()
Dim arrA
Dim arrB
Dim Out
Dim A As Long
Dim B As Long
Dim O As Long
With Tabelle1
    arrA = .Range(.Range("A1"), .Range("A65536").End(xlUp))
    arrB = .Range(.Range("B1"), .Range("B65536").End(xlUp))
    Redim Out(1 To (UBound(arrA) * UBound(arrB)), 1 To 1)
    For A = 1 To UBound(arrA)
        For B = 1 To UBound(arrB)
            O = O + 1
            Out(O, 1) = arrA(A, 1) & arrB(B, 1)
        Next
    Next
    .Range("c1").Resize(UBound(Out), 1) = Out
End With
End Sub

Die Ausgabe sieht dann so aus:
Tabelle1

 ABC
1A1B1A1B1
2A2B2A1B2
3A3B3A1B3
4A4B4A1B4
5A5B5A1B5
6A6 A2B1
7A7 A2B2
8A8 A2B3
9A9 A2B4
10A10 A2B5
11  A3B1
12  A3B2
13  usw.


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
ransi
Anzeige
AW: Verketten Makro (Kreuzkombination)
03.07.2009 10:50:31
Herman
Wow, das war schnell.
Hab das Script ausprobiert und funktioniert super.
Vielen Dank Ransi!
(Erleichtert es mir das Arbeiten gleich ungemein!).
Viele Grüße,
Herman
AW: Verketten Makro (Kreuzkombination)
03.07.2009 10:32:23
ANdreas
Hallo Herman,
in Spalte A und B sind die möglichen Elemente für die Verkettung. In Zelle C1 bitte diese Formel einfügen:
=WENN(ZEILE()>ANZAHL2(A:A)*ANZAHL2(B:B);"";INDEX(A:A;AUFRUNDEN(ZEILE()/ANZAHL2(B:B);0)) &" "&INDEX(B:B;REST(ZEILE()-1;ANZAHL2(B:B))+1))
und soweit wie nötig nach unten kopieren.
Gruß
Andreas
AW: Verketten Makro (Kreuzkombination)
03.07.2009 10:53:28
Herman
Und gleich zwei Antworten, ich bin begeistert :).
Die Verkettung klappt so auch super.
Vielen Dank für diese Lösung, Andreas.
Gruß,
Herman
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige