Erstmals ein gutes & gesundes Neujahr 2006,an alle hier im Forum.
Habe unten einen Code für Formel eintragen hier im Forum bekommen.
Er funkt aber nur für die erste Formel.
Frage 1: ich möchte aber mehrere Formeln einfügen.
Frage 2:Ich möchte den Button der diesen Code auslöst in Tabellenblatt 1 haben.
Der Code sollte aber auf Tab.Blatt 2 und 3 zugreifen.
Könnte mir bitte Jemand dabei Helfen?
Danke Heinz
Sub tt()
Range("N13").FormulaLocal = "=WENN(N10=1;8;WENN(N10=2;8;WENN(N10=3;8;WENN(RECHTS(N10)=""S"";8;0))))"
Range("N13").Copy Destination:=Range("N13:AR13")
Range("N22").FormulaLocal = "=WENN(RECHTS(N10)="k";"K";WENN(RECHTS(N10)="u";"U";WENN(RECHTS(N10)="b";"B";WENN(RECHTS(N10)="f";"B";""))))"
Range("N22").Copy Destination:=Range("N22:AR22")