Office: Wenn bestimmter Text in Zelle, dann in anderer Zelle Text eintragen

Hallo Zusammen,

ich habe ein Makro gebaut, dass Tabellen die wir aus einer Anwendung bekommen nach unseren Vorstellungen anpasst (Optik).

Nun möchte ich, dass wenn in der Spalte A ein bestimmter Text steht in der Spalte H in der selben Zeile ein bestimmter Text eingetragen wird.

If Range("A12").Value = "Fachbereich 1" Then Range("H12") = "Nasenbär"

So sieht meiner erster Versuch aus.

Allerdings sollte wie gesagt zum einen die gesamte Spalte bearbeitet werden und zum anderen kommt es auch vor, dass der Text "Fachbereich 1" nicht alleine in der Zelle steht.

Hat jemand eine Idee, wie ich das hinbekommen kann?

Danke und Grüße
McRolly

:)

 

Mach dich mit For-Next-Schleifen vertraut, die eignen sich bestens, um ganze Spalten abzuarbeiten (meistens zumindest).

Code:

 

Hi McRolly,

oder so:

Code:

LG
Alexandra

 

Leider klappt das bisher so nicht.

Die Zellen haben unterschiedlichen Text und irgendwo dort drin taucht dann eben "Fachbereich 1" auf.

Z.B.:
Standort--->Fachbereich 1--->Innere Dienste Soziales Sicherheit u. Ordnung Kultur--->Fachbereichsleiter

Der erste Teil ist eigentlich immer gleich. "Standort--->Fachbereich 1"

 

Hi,

dann lade bitte deine Beispieldatei hoch!

LG
Alexandra

 

Hallo nochmal,

muss mich korrigieren. Es hat perfekt geklappt. Hatte es ins falsche Makro eingefügt... (hatte wohl zu wenig Kaffee...).

Vielen Dank für Eure Hilfe.

Grüße
Dirk