Verstehe ich richtig, dass der Wert "Orig" im oben genannten Beispiel in der Spalte 8, Zeile 2 steht - dies jetzt aber nicht mehr immer der Fall ist.
Heisst "Orig" kann nun auch mal in der Spalte 7 oder 9 oder 122 stehen.
Wenn das so ist musst du eigentlich genau das selbe machen wie du unten schon gemacht hast.
Anstatt Last_Cell_in_Row machst du einfach Last_Cell_in_Column
LCiR -> LCiC
Code:
const suchzeile as integer = 2
dim spalte as integer
LCiC = cells(suchzeile, columns.count).end(xltoleft).column
For i = 1 to LCiC
if cells(suchzeile, i).value = "Orig" then spalte = i
Next i
oben noch die konstante löschen und gut ist. dieser code gehört einfach oberhalb von "LCiR = Ce..." hingeschrieben.
Vielleicht habe ich noch einen Fehler in xlToLeft oder sonst was. Aber ich denke das kriegst du hin.
Gruss
ps. hast du das LCiR von mir? Ich kann mich nur all zu gut an diese Bezeichnung erinnern
------------------
MfG skyzem
Wir mögen Menschen, die frisch heraus sagen, was sie denken - falls sie dasselbe denken wie wir.
isleofwords.com - shortstorys in between
[Diese Nachricht wurde von skyzem am 29. Aug. 2013 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP