ich habe mal wieder ein Problem, bei dem ich nicht weiterkomme:
Ich habe zwei Tabellen auf einem Arbeitsblatt. in die obere Tabelle (Zelie 6-45) werden Werte aus einem anderen Tabellenblatt übernommen (in Zeile 6-13 die Gruppenersten, in Zeile 14-21 die Gruppenzweiten u.s.w.)
In der unteren Tabelle ab Zeile 51 werden die Gruppenersten u.s.w. über Sverweis sortiert:
SVERWEIS(F51;$C$6:$S$13;3;FALSCH)
Wenn aber Teams fehlen, bleiben auch die entsprechenden Zellen oben und unten leer.
Nun möchte ich herausfinden, wo in der unteren Tabelle keine Mannschaft steht. Die Zellen darunter sollen dann jeweils verschoben werden.
Mein Versuch (siehe unten) mit cells.value "" hat nichts gebracht, da ja in den Zellen ein SVERWEIS steht. Die Datei ist leider viel zu gross um sie hochzuladen.
m.f.g.
Harald
With Worksheets("Rang Vorrunde")
intZeileVoll = 1
For intZeile = 1 To intTeams * intGruppen
If .Cells(intZeile + 50, 5).Value "" Then
For intSpalte = 5 To 19
.Cells(intZeileVoll + 50, intSpalte) = .Cells(intZeile + 50, intSpalte)
.Cells(intZeileVoll + 50, intSpalte) = ""
intZeileVoll = intZeileVoll + 1
Next intSpalte
End If
Next intZeile
End with