Syntaxfehler - Bitte um Hilfe

Forumthread: Syntaxfehler - Bitte um Hilfe
3 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Syntaxfehler - Bitte um Hilfe

02.01.2006 09:45:52

Heinz

Guten morgen
Ich möchte das per Klick (Button ist in Tab.Blatt "Tabelle1")
diese Formeln in Tab.Blat"Tabelle2 und Tabelle3"eingefügt werden.
Leider komme ich damit nicht klar.
Könnte mir bitte jemand helfen.
Danke Heinz
With Sheets("Tabelle2")
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")
End With
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")

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Syntaxfehler - Bitte um Hilfe

02.01.2006 09:59:27

WernerB.
AW: Syntaxfehler - Bitte um Hilfe

02.01.2006 10:00:15

Reinhard
AW: Syntaxfehler - Bitte um Hilfe

02.01.2006 10:04:27

Heinz

AW: Syntaxfehler - Bitte um Hilfe

02.01.2006 09:59:27

WernerB.

Hallo Heinz,
ich habe Dir in Deinem Thread von gestern geantwortet.
Gruß
WernerB.

AW: Syntaxfehler - Bitte um Hilfe

02.01.2006 10:00:15

Reinhard

Hi Heinz,


With Sheets("Tabelle2")
.Range("N13").FormulaLocal = "=WENN(oder(N10=1;N10=2;N10=3);RECHTS(N10)=""S"";8;0)"
.Range("N13").Copy Destination:=Range("N13:AR13")
End With
With Sheets("Tabelle3")
.Range("N22").FormulaLocal = "=WENN(istfehler(finden(RECHTS(N10);"kubf"));"";WENN(RECHTS(N10)="f";"B";gross(rechts(n10)))"
.Range("N22").Copy Destination:=Range("N22:AR22")
end with

Gruß
Reinhard
ps:Das Forum lebt auch von Rückmeldungen.

AW: Syntaxfehler - Bitte um Hilfe

02.01.2006 10:04:27

Heinz

Hallo Werner & Reinhard
Danke für Eure Hilfe.
Funkt.einwandfrei.
Gruß Heinz

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!