namen ordnen

28/03/2009 - 13:33 von rigiamm1 | Report spam
Hallo,
wie kann ich diese tabelle in automatisch ordnen(jeder nummer ist eine
name):
1 2
3 4
5 6
7 8
9 10
11 12
13 14
15 16
17 18
19 20
21 22
23 24
das ist die tabelle die ich so umwandeln moechte:
1 2 3 4 5 6 7 8
9 10 11 12 13 14 15 16
17 18 19 20 21 22 23 24
die tabelle ist natuerlich sehr lang und wird jeden tag aktualisiert aber
ich moechte nur die zweite tabelle visualisieren ...danke sehr.
 

Lesen sie die antworten

#1 Andreas Killer
28/03/2009 - 13:48 | Warnen spam
rigiamm1 schrieb:

wie kann ich diese tabelle in automatisch ordnen(jeder nummer ist eine
name):
1 2
3 4
5 6
7 8
das ist die tabelle die ich so umwandeln moechte:
1 2 3 4 5 6 7 8
9 10 11 12 13 14 15 16



Sub Test()
Dim Xquelle As Long, Yquelle As Long, Xziel As Long, Yziel As Long
Dim S As Worksheet
'Lese ab Zelle A1
Xquelle = 1: Yquelle = 1
'Schreibe ab Zelle A1
Xziel = 1: Yziel = 1
'Unser Blatt merken
Set S = ActiveSheet
'Neues Blatt anlegen
Sheets.Add After:=S
'Los geht's
Do While S.Cells(Yquelle, Xquelle) <> ""
'Inhalt übertragen
Cells(Yziel, Xziel) = S.Cells(Yquelle, Xquelle)
'Nàchste Zelle
Xquelle = Xquelle + 1
'Wenn Spalte > 2 dann nàchste Reihe
If Xquelle > 2 Then Xquelle = 1: Yquelle = Yquelle + 1
'Nàchste Zelle
Xziel = Xziel + 1
'Wenn Spalte > 8 dann nàchste Reihe
If Xziel > 8 Then Xziel = 1: Yziel = Yziel + 1
Loop
End Sub

Ähnliche fragen