Herbers Excel-Forum - das Archiv
Zahlen sortieren
- Zahlen sortieren von Marcl vom 05.12.2003 09:38:05
- AW: Zahlen sortieren - von Martin Beck am 05.12.2003 09:55:57
- AW: Zahlen sortieren - von Marcl am 05.12.2003 10:54:33
- AW: Zahlen sortieren - von Marcl am 05.12.2003 10:54:33
- AW: Zahlen sortieren - von Martin Beck am 05.12.2003 09:55:57
 |
Betrifft: Zahlen sortieren
von: Marcl
Geschrieben am: 05.12.2003 09:38:05
Moin moin,
ich habe Zahlen, denen Namen zugeordnet sind. In den ersten beiden Spalten stehen alle Namen der Reihe nach. In der 3.-4. Spalte fehlen Zahlen und Namen.
Ich möchte nun, um die Werte miteinander vergleichen zu können, in der 3.-4. Spalte die fehlenden Zahlen ergänzen aber ohne Namen und diese auch der Reihe nach sortieren um sie den ersten Spalten gegenüberstellen zu können.
Spalte 1 und 2 1.ich, 2.du, 3.er, 4.sie
Spalte 3 und 4 1.ich, 4.sie
Spalte 3 und 4 1.ich, 2. , 3. , 4.sie!
Ist das machbar?
Gruß Macrl
 |
Betrifft: AW: Zahlen sortieren
von: Martin Beck
Geschrieben am: 05.12.2003 09:55:57
Hallo,
ich nehme an, Du hast Spaltenüberschriften (ansonsten x=1 setzen). Versuch mal
Sub auffüllen()
Application.ScreenUpdating = False
x = 2
Do Until IsEmpty(Cells(x, 3))
If Cells(x, 3) + 1 < Cells(x + 1, 3) Then
Range(Cells(x + 1, 3), Cells(x + 1, 4)).Insert Shift:=xlDown
Cells(x + 1, 3) = Cells(x, 3) + 1
End If
x = x + 1
Loop
Cells(x, 3) = Cells(x, 1)
Application.ScreenUpdating = True
End Sub
Gruß
Martin Beck
|
Betrifft: AW: Zahlen sortieren
von: Marcl
Geschrieben am: 05.12.2003 10:54:33
funktioniert super. Mit ein paar modofikationen kann ich damit sehr viel anfangen.
Danke
| |