Zahlenpaare?

29/05/2008 - 13:05 von Michael Mueller | Report spam
Hallo.

Ich habe eine Spalte mit Teilenummern.
Daraus möchte ich eine Art Kombinationstabelle erstellen:

001
005
012

|
V

001 001
001 005
001 012
005 001
005 005
005 012
012 001
012 005
012 012

Da es mehr als 200 Nummern sind:
Wie mache ich soetwas am elegantesten?

Danke
Michi
 

Lesen sie die antworten

#1 Claus Busch
29/05/2008 - 13:54 | Warnen spam
Hallo Michael,

Am Thu, 29 May 2008 13:05:51 +0200 schrieb Michael Mueller:

Ich habe eine Spalte mit Teilenummern.
Daraus möchte ich eine Art Kombinationstabelle erstellen:

001
005
012

|
V

001 001
001 005
001 012
005 001
005 005
005 012
012 001
012 005
012 012

Da es mehr als 200 Nummern sind:
Wie mache ich soetwas am elegantesten?



folgender Code übertràgt aus Tabelle1 nach Tabelle2. Passe eventuell
Tabellenblattnamen und Startzeilen in den Tabellen an:
Sub Zahlenpaare()

Dim LRow As Long
Dim i As Long
Dim n As Long
Dim k As Long

'Startzeile in Tabelle2
n = 1
With Sheets("Tabelle1")
LRow = .Cells(Rows.Count, 1).End(xlUp).Row

'Startzeile in Tabelle1
For i = 1 To LRow
For k = 1 To LRow
Sheets("Tabelle2").Cells(n, 1).Value = _
.Cells(i, 1) & " " & .Cells(k, 1)
n = n + 1
Next k
Next i
End With

End Sub


Mit freundlichen Grüssen
Claus Busch
Win XP Prof SP2 / Vista Ultimate
Office 2003 SP2 / 2007 Ultimate

Ähnliche fragen