VBA Lösung für Zellen verschieben gesucht

24/11/2009 - 16:34 von Frank Vellner | Report spam
Liebe NG,

ich möchte in Spalte G alle Zellen mit Inhalt nach um eine Zelle nach
rechts schieben. In Spalte H wird also in der betreffenden Zeile eine
neue Zelle eingefügt, wodurch alle weiter rechts liegenen mitverschoben
werden.

Manuell würde man es für Zeile 5 so machen: Einfügen neue Zelle in H5,
"nach rechts verschieben", G5 ausschneiden und in H5 einfügen. Oder G5
mit ctrl-shift nach rechts ziehen und anschliessend G5 löschen.

Und das soll für alle Zellen von Spalte G ab der Zeile 5 gemacht
werden, wenn einen Inhalt haben. Würde man nicht nur alle mit Inhalt
sondern alle nehmen, wàre es einfach "Spalte einfügen". Wenn es
einfacher ist, könnte man auch nur alle Zellen behandeln, die einen
Wert als Inhalt haben.

Mit Aufzeichnen/Nachbearbeiten ist es mir gelungen, einen sehr
hàsslichen und langsamen Code zu erstellen. Er ist leider untauglich.
Vielleicht wàre auch der pfiffigere Weg: Spalte einfügen, Inhalte von G
dorthin schieben, alle Zellen aus H löschen, die leer sind (nach links
verschieben)?

Für jeden Tipp bedankt sich schon einmal der
Frank
 

Lesen sie die antworten

#1 Alexander Wolff
24/11/2009 - 16:42 | Warnen spam
Als <news: ließ
Frank Vellner verlautbaren, evtl. nachfolgend zitiert:

Lege eine temporàre Spalte X mit lfd. Numerierung an die Daten
Sortiere nach G
Dann füge, soweit G:G nicht leer ist, in H Zellen ein
Nun kopiere oder versetze den nichtleeren G:G???-Block dorthin
Re-Sortiere nach X
Moin+Gruss Alexander - MVP for MS Excel - www.xxcl.de - mso2000sp3 --7-2

Ähnliche fragen