Live-Forum - Die aktuellen Beiträge
Datum
Titel
04.11.2025 16:13:59
AddIn erstellen und mit Passwort schützen
04.11.2025 15:31:37
Die Summendifferenz zwischen 01.01. und heute berechnen
04.11.2025 13:05:47
Frage Bed.Format mit Reihenfolge
04.11.2025 11:17:34
Datumsberechnung Konfirmation
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Fehlermeldung:Erwarte Anweisungsende

Forumthread: 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
Anzeige

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
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige