Hallo Natalia,
ersetzt in der vorletzten Zeile größer durch das entsprechende Zeichen. Die Software des Forums verursacht Fehler, wenn Größer- oder Kleinerzeichen verwendet werden. Die neue Liste wird in einer neuen Tabelle ausgegeben.
Sub untereinander()
Dim a, lz, m, j, b, k
a = ActiveSheet.Name
lz = Cells(Rows.Count, 1).End(xlUp).Row
Worksheets.Add
m = 1 'Zeile in der neuen Tabelle
j = 1 'Zeile in Ausgangstabelle
Do
b = Worksheets(a).Cells(j, 1)
k = j
Do While Worksheets(a).Cells(j, 1) = b
Cells(m, 1) = Worksheets(a).Cells(j, 1)
Cells(m, 2) = Worksheets(a).Cells(j, 2)
j = j + 1
m = m + 1
Loop
j = k
Do While Worksheets(a).Cells(j, 1) = b
Cells(m, 1) = Worksheets(a).Cells(j, 1)
Cells(m, 2) = Worksheets(a).Cells(j, 3)
j = j + 1
m = m + 1
Loop
j = k
Do While Worksheets(a).Cells(j, 1) = b
Cells(m, 1) = Worksheets(a).Cells(j, 1)
Cells(m, 2) = Worksheets(a).Cells(j, 4)
j = j + 1
m = m + 1
Loop
Loop Until j größer lz
End Sub
Gruß
Holger
Natalia schrieb am 09.12.2008 17:48:48:
Hallo Leute!
Ich habe ein kleines Problemchen. Ich muss Werte aus den Spalten untereinander bekommen. Das sieht folgender Maßen aus:
A B C D
1 Wert1 Wert2 Wert3
1 Wert1 Wert2 Wert3
1 Wert1 Wert2 Wert3
2 Wert4 Wert5 Wert6
2 Wert4 Wert5 Wert6
2 Wert4 Wert5 Wert6
Raus kommen soll:
solange in A eine 1 steht, schreibe mir:
A B
1 Wert1
1 Wert1
1 Wert1
1 Wert2
1 Wert2
1 Wert2
1 Wert3
1 Wert3
1 Wert3
dann gleich unter drunter, solange in A eine 2 steht, schreibe mir:
2 Wert4
2 Wert4
2 Wert4
2 Wert5
2 Wert5
2 Wert5
2 Wert6
2 Wert6
2 Wert6
Ich hoffe dass jemand von euch mir dabei helfen könnte, ich wäre sehr dankbar! |