Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
712to716
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
712to716
712to716
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Syntaxfehler - Bitte um Hilfe

Syntaxfehler - Bitte um Hilfe
02.01.2006 08: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
Anzeige
AW: Syntaxfehler - Bitte um Hilfe
02.01.2006 08:59:27
WernerB.
Hallo Heinz,
ich habe Dir in Deinem Thread von gestern geantwortet.
Gruß
WernerB.
AW: Syntaxfehler - Bitte um Hilfe
02.01.2006 09: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.
Anzeige
AW: Syntaxfehler - Bitte um Hilfe
02.01.2006 09:04:27
Heinz
Hallo Werner & Reinhard
Danke für Eure Hilfe.
Funkt.einwandfrei.
Gruß Heinz

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige