Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1848to1852
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
1848to1852
1848to1852
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Fehlermeldung:Erwarte Anweisungsende

VBA Fehlermeldung:Erwarte Anweisungsende
11.10.2021 13:55:53
Bernd
Hallo zusammen,
ich verwende folgende VBA Formulierung die auch soweit funktioniert
ActiveCell.FormulaR1C1 = "=""Test ""&DAY(R[-1]C[-2])&"".""&MONTH(R[-1]C[-2])&"".""&YEAR(R[-1]C[-2])"
Für das Wort "Test" würde ich gerne einen Bezug aus einer anderen Tabelle verwenden und verzweifle damit. Hier mein Vorschlag der aber nicht funktioniert. Als Fehlermeldung kommt: Erwarte Anweisungsende
ActiveCell.FormulaR1C1 = "="Sheets("Tabelle1").Range("A1")"&DAY(R[-1]C[-2])&"".""&MONTH(R[-1]C[-2])&"".""&YEAR(R[-1]C[-2])"
habt ihr eine Idee?
Vielen Dank

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Fehlermeldung:Erwarte Anweisungsende
11.10.2021 14:04:09
migre
Hi!
Wenn ich aufmerksam genug war: 

ActiveCell.FormulaR1C1 = "=" & Sheets("Tabelle1").Range("A1").Text & "&DAY(R[-1]C[-2])&"".""&MONTH(R[-1]C[-2])&"".""&YEAR(R[-1]C[-2])"
LG Michael
AW: VBA Fehlermeldung:Erwarte Anweisungsende
11.10.2021 14:12:31
Daniel
HI
da fehlen die Anführungszeichen in der Formel.
Textteile verketten mit & gilt auch hier

ActiveCell.FormulaR1C1 = "=""" & Sheets("Tabelle1").Range("A1") & """&DAY(R[-1]C[-2])&"".""&MONTH(R[-1]C[-2])&"".""&YEAR(R[-1]C[-2])"
übersichtlicher ist folgendes, wenn die Formel so funktioniert:

FO = "=""Test ""&DAY(R[-1]C[-2])&"".""&MONTH(R[-1]C[-2])&"".""&YEAR(R[-1]C[-2])"
FO = Replace(FO, "Test", Sheets("Tabelle1").Range("A1").value)
ActiveCell.FormulaR1C1 = FO
Gruß Daniel
Anzeige
AW: VBA Fehlermeldung:Erwarte Anweisungsende
11.10.2021 14:15:22
UweD
Hallo
formal so:

ActiveCell.FormulaR1C1 = "=" & Sheets("Tabelle1").Range("A1") & "DAY(R[-1]C[-2])&"".""&MONTH(R[-1]C[-2])&"".""&YEAR(R[-1]C[-2])"
Da ja in der referenzierten Zelle schon ein Datum steht, ginge auch 

ActiveCell.FormulaR1C1 = "=Tabelle1!R1C1&TEXT(R[-1]C[-2],""TT.MM.JJJJ"")"
LG UweD

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige