Microsoft Excel

Herbers Excel/VBA-Archiv

Finde beliebigen Wert in einer Spalte

Betrifft: Finde beliebigen Wert in einer Spalte von: Silke
Geschrieben am: 31.07.2020 11:23:12

Hallo an alle,

ich suche verzweifelt nach einem VBA Code.

Er muss in Spalte O ab Zeile 2 (da Überschrift vorhanden) suchen nach einer Zahl. Diese markieren, kopieren und in der selben Zeile 6 Zellen nach links (Spalte I) wieder einfügen. (oder nur verschieben) Nächste Zahl in Spalte suchen und auch 6 Zellen nach links (Spalte I) wieder einfügen usw.

Dann kommt spalte P in dieser muss ebenso gesucht werden, markieren, kopieren und in Spalte K der selben Zelle eingefügt/verschoben werden.

Och habs mit .find versucht aber es klappt hinten und vorne nicht.

Könnt Ihr mir helfen?

Vielen Dank und VG

Silke

Betrifft: AW: Finde beliebigen Wert in einer Spalte
von: Daniel
Geschrieben am: 31.07.2020 11:34:33

Hi
das geht so für alle Zahlen als Konstanten.
dim Zelle as Range
for each Zelle in Range("O:O").SpecialCells(xlcelltypeconstants, 1)
    Zelle.Copy Zelle.Offset(0, -6)
next
for each Zelle in Range("P:P").SpecialCells(xlcelltypeconstants, 1)
    Zelle.Copy Zelle.Offset(0, -5)
next

Gruß Daniel

Betrifft: Danke schön
von: Silke
Geschrieben am: 31.07.2020 12:14:41

Danke Daniel

Beiträge aus dem Excel-Forum zum Thema "Finde beliebigen Wert in einer Spalte"