|
In Spalten weiter rechts stehen Daten in Zelle 1 und 2 zu der einen Person.
Genauso zu der anderen Person in Zelle 3 und 4.
wenn ich später nach Namen sortieren will, hab ich die entsprechenden beiden Daten zu der Person zugeordnet.
Wenn ich aber bei den Namen nicht alle Zellen redundant gefüllt hab, muss ich leere Zellen mitfiltern, dann hab ich aber in der Übersicht auch Zeilen, die ich gar nicht sehen will.
Aber, hat sich erledigt. Ich hab's gestern geschafft, mir noch was zusammen zu basteln:
Sub ZellenFuellen()
For iCounterSpalte = 1 To 7
For iCounterZeile = 6 To 200 Step 2
Cells(iCounterZeile, iCounterSpalte).Copy
Cells(iCounterZeile + 1, iCounterSpalte).Select
ActiveSheet.Paste
Cells(iCounterZeile + 1, iCounterSpalte).Select
Application.CutCopyMode = False
Next iCounterZeile
Next iCounterSpalte
End Sub
|