Wenn-Dann Bedingung die Zweite...
09.05.2007 09:06:00
Banusch
Ich habe in nem Thread weiter unten mein Problem gepostet, aber vergessen zu schreiben,
dass ich das ganze in einer For-Schleife integrieren möchte.
Also anbei nochmal die Problematik:
Die Schleife kopiert unter anderem Daten aus nem externen Programm.
Anschließend soll dann das Makro prüfen, dass in einer bestimmten Zeile "A1" ein bestimmter Text (zur Vereinfachung "blau")steht.
Ist diese Bedingung gegeben, dann soll in B1 "erledigt" stehen.
Ansonsten soll halt in einer anderen Zeile "A5" ausgewertet werden (da in dieser die mögliche "Fehlermeldung" steht) um den jeweiligen Grund dann anschließend genauer zu differenzieren.
Die Daten aus dem externen Programm werden dann anschließend durch den jeweils nächsten Schleifendurchlauf überschrieben, d.h. sind nicht mehr da.
Daher denke ich mal, dass mir die Formatierung der "B-Zellen" nicht weiterhilft.
Desweiteren wäre es super, wenn das Makro auch den Text "blau" erkennt, wenn dieser nicht alleine steht, sondern durch Leerzeichen oder weiteren Text nur ein Teil der Zelle sein kann. (z.B. "wdhu blauwdwd " oder " blau ")
Der Code müsste dann in etwa so aussehen (wobei dieser hier definitv falsch ist *g*):
Sub WennDann()
Range ("A1").select
If ActiveCell.Value = "blau"
then range ("B1").select
ActiveCell.FormulaR1C1 = "erledigt"
else if ("A5").Value = "grün"
then range ("B1").select
ActiveCell.FormulaR1C1 = "Fehler1"
else ("A5").Value = "gelb"
then range ("B1").select
ActiveCell.FormulaR1C1 = "Fehler2"
end if
end if
End Sub
Hoffe ihr versteht, was ich euch sagen möchte?! :)
Vielen Dank nochmal für eure Hilfe!!!!