[GELÖST] Suchen - finden und Zell-Adresse auslesen

[karolus]

Möchtest du wieder einmal ein eh schon absurdes Problem auf noch absurdere Weise lösen?

[Ich Bins]

Zum absurden Problem nun auch noch ein absurdes Beispiel.

Beispiel_37280.ods

(28.83 KiB) 306-mal heruntergeladen

[mikele]

Hallo,

Ich brauche jedoch den Spaltenbuchstaben L damit ich in der Zelle L31 in der Formel =AUFRUNDEN(SUMME(INDEX($GTZ.$C:$GTZ.$C;VERGLEICH($K$26;$GTZ.$A:$GTZ.$A;0)):INDEX($GTZ.$C:$GTZ.$C;VERGLEICH($K$27;$GTZ.$A:$GTZ.$A;0)));0)
aus den beiden $K$26 je $L$26 machen kann.

Warum?
Wenn du die Formel an der Stelle mit relativen Adressen versiehst, kannst du sie einfach nach rechts ziehen oder kopieren.

Code: Alles auswählen

=AUFRUNDEN(SUMME(INDEX($GTZ.$C:$GTZ.$C;VERGLEICH(K26;$GTZ.$A:$GTZ.$A;0)):INDEX($GTZ.$C:$GTZ.$C;VERGLEICH(K27;$GTZ.$A:$GTZ.$A;0)));0)

[mikele]

Hallo,
das Kopieren kann man auch per Makro machen. Wenn die Zellen gleich formatiert sind per .copyRange ansonsten am einfachsten per Dispatch-Befehl.

[Ich Bins]

Hallo mikele,

vielen Dank!

an der Stelle mit relativen Adressen

Ich bin baff, genau das war die Lösung und ja, ich war der Meinung die Formel manipulieren zu müssen.
Mit meinem Makro werden zwischen den Bereichen K2:K35 und L2:L35 leere Zellen eingefügt in die anschließend die Kopie von K2:K35 eingefügt wird.
Aus der relativen Adresse K26 wird dadurch in Spalte L L26.

Aber dennoch würde ich gerne noch wissen wie man über

Code: Alles auswählen

oFlagAddress  = oFound.CellAddress
oColumn = oFlagAddress.Column ' oColumn enthält 11 

L erhalten kann?

Den zu kopierenden Bereich pfriemle ich über die oColumn 11 zusammen.

Viele Grüße
Ich Bins

[mikele]

Hallo,
solange column kleiner als 26 ist, kannst du einfach chr(65+column) nehmen, um den Buchstaben zu erhalten.
Du kannst aber auch die Spaltenbezeichnung auslesen:
oFound.Columns.ElementNames(0)

[karolus]

Ich bin baff, …
……
Aus der relativen Adresse K26 wird dadurch in Spalte L L26

ich bin auch baff, insbesondere weil wir das Thema in den letzten 4-5 Wochen schon mehrmals durchgekaut hatten
viewtopic.php?f=6&t=37209&p=95475#p95477

[Ich Bins]

Hallo mikele,

Du kannst aber auch die Spaltenbezeichnung auslesen:
oFound.Columns.ElementNames(0)

Vielen Dank