Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 10:28:49
16.10.2025 17:40:39
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zeilencode per VBA kopieren

Forumthread: Zeilencode per VBA kopieren

Zeilencode per VBA kopieren
05.09.2018 10:05:38
Denis
Hallo zusammen,
ich habe folgendes Problem.
Ich möchte mit VBA-Code einen "Excelbefehl" eintragen lassen.
Der Excelbefehl steht u.a. aus berechneten Variabeln
NewName ist ein Wert, der die Datenherkunft festlegen soll.
Der Wert in der Excelspalte soll fongender sein:
=WENN(ISTLEER(Federhängerliste!MXX;" ";Federhängerliste!MXX)
M=Spalte XX=Berechnete Zeile
So sieht mein VBA-Code bisher aus:

'With Range("N48")
'.Formula = "=WENN(ISTLEER(Federhängerliste!M" & NewName + 10 & ");" & " ;Federhängerliste! _
M" & NewName + 10 & ")"
'End With

Der VBA-Code Teil funktioniert:

"=Federhängerliste!M" & NewName + 10

Vielen Dank für die Hilfe!
Liebe Grüsse
Denis
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: dt oder eng
05.09.2018 10:09:51
Fennek
Hallo,
unterscheide bitte zwischen
.Formula : dann immer die englichen Befehle
.FormulaLocal : dann die deutschen Befehle.
mfg
AW: dt oder eng
05.09.2018 10:35:57
Daniel
außerdem:
.Formula: englische Befehle, Komma als Parametertrennzeichen, Punkt als Dezimalzeichen
.FormulaLocal: deutsche Befehle, Semikolon als Parametertrennzeichen, Komma als Dezimalzeichen
weiterhin würde ich das so machen, weils übersichtlicher ist und man die Fehler in der Formel schneller erkennt
dim Fo as string
FO = "=WENN(ISTLEER(Federhängerliste!MXX);"" "";Federhängerliste!MXX)"
FO = Replace(FO, "XX", NewName + 10)
Range("N48").FormulaLocal = FO
Gruß Daniel
Anzeige
AW: Zeilencode per VBA kopieren
05.09.2018 10:11:08
Werner
Hallo Denis,
Gänsefüßchen innerhalb der Formel müssen gedoppelt werden
"=WENN(ISTLEER(Federhängerliste!M" & NewName + 10 & ";"""";Federhängerliste!M" & NewName + 10 & ")"
Gruß Werner
AW: Zeilencode per VBA kopieren
05.09.2018 10:59:16
Gerd
Moin,
FormulaLocal, "" statt " und Klammerung beachten.
Range("N48").FormulaLocal = _
"=WENN(ISTLEER(Federhängerliste!M" & Newname + 10 & ");"" "";Federhängerliste!M" & Newname + 10 & ")"
Gruß Gerd
Anzeige
;

Beliebteste Forumthreads (12 Monate)

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