Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1828to1832
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
1828to1832
1828to1832
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilenschaltung in Formel

Zeilenschaltung in Formel
14.05.2021 10:52:35
Norbert_H
Hallo,
ich ändere Dateien über eine Updateroutine. Dabei sollenbei 35 Dateien an Neun Stellen Daten geändert werden. Dies klappt bisher auch ganz gut,
Im speziellen Fall handelt es sich um eine Formel die Kontaktinformationen in eine Zelle schreibt, die mit einem Zeilenumbruch formatiert ist.
In der Zelle habe ich den Umbruch manuell über Alt Return an den passende Stelle eingefügt. Alle Versuche die Formel über VBA zu ändern scheitern aber an der Zeilenschaltung.
Nachfolgend ein Teil der Formel (Im Original kommen noch einige geschachtelte Wenns hinterher).
=WENN(A1="K. Mustermann";"Home Office
Telefon : 01234 / 5678-98
Telefax : 01234 / 5678-99";WENN(A1="A. Müller";"Telefon : 98765 / 4320-11";""))
Die Zeilenumbrüche haben Zeichen(10). Die Formel, die in die Zelle geschrieben wird beginnt mit Range("BE39").FormulaLocal = ?
Zeilenumbrüche mit chr(10) oder vbCrLf funktionieren bei mir nur in reinen Textformeln.
Etwas wie & chr(10) & steht dann wortwörtlich in der Zelle wird aber nicht als Funktion für den Zeilenwechsel ausgeführt.
Ist es möglich, die Formel mit der Zeilenschaltung in der Zelle in VBA nachzubauen?
Schon mal im Voraus besten Dank an die Gemeinde.
Grüße Norbert

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilenschaltung in Formel
14.05.2021 11:02:20
ChrisL
Hi Norbert
Hast du unter Zellen formatieren, Ausrichtung, den Zeilenumbruch aktiviert?
cu
Chris
AW: Zeilenschaltung in Formel
15.05.2021 11:24:12
Norbert
Hallo Chris,
der Textumbruch ist in der Zellformatierung aktiviert.
Im Direktbereich wird auf die Abfrage:

range("B1").FormulaLocal
nachfolgendes mit "Zeilenschaltung" angezeigt:

=WENN(A1="K. Mustermann";"Home Office
Telefon : 01234 / 5678-98
Telefax : 01234 / 5678-99";WENN(A1="A. Müller";"Telefon : 98765 / 4320-11";""))
Allein die vorangegangene Formel unter VBA hinzubekommen würde mir schon reichen. Wobei der Zeilenumbruch nicht abhängig von der Zellgröße ist, sondern manuell über Alt Return "Chr(10)" vorgenommen wird.
Musterdatei anbei: https://www.herber.de/bbs/user/146203.xlsm
Grüße Norbert
Anzeige
AW: Zeilenschaltung in Formel
17.05.2021 08:31:38
ChrisL
Hi Norbert
Ich empfehle die englische Schreibweise (Formula), da du damit unabhängig von der Spracheinstellung bist.
Du musst dich entscheiden, ob du Chr als VBA-Befehl oder CHAR (ZEICHEN) als Formel verwenden willst. Schlussendlich geht es nur darum den Text-String richtig zu formulieren.

Range("C1").Formula = "=""Hans" & Chr(10) & "Meier"""


Range("C2").Formula = "=""Hans""&CHAR(10)&""Meier"""


Range("B1").Formula = "=IF(A1=""K. Mustermann"",""Home Office" & Chr(10) & "Telefon : 01234 / 5678-98" & Chr(10) & "Telefax : 01234 / 5678-99"",IF(A1=""A. Müller"",""Telefon : 98765 / 4320-11"",""""))"


Range("B2").Formula = "=IF(A1=""K. Mustermann"",""Home Office""&CHAR(10)&""Telefon : 01234 / 5678-98""&CHAR(10)&""Telefax : 01234 / 5678-99"",IF(A1=""A. Müller"",""Telefon : 98765 / 4320-11"",""""))"
Die Sinnhaftigkeit der Musterformel erschliesst sich mir nicht. Wenn du für jeden Namen eine WENN-Verschachtelung machst, dann wird die Formel lang und unübersichtlich. Ohne die exakte Aufgabe zu kennen würde ich darauf tippen, dass eine Tabellen-Liste und SVERWEIS besser geeignet wäre.
cu
Chris
Anzeige
AW: Zeilenschaltung in Formel
17.05.2021 15:23:26
Norbert_H
Hallo Chris,
vielen Dank für deinen Lösungsansatz. Ich sehe im Ergebnis keinen Unterschied zwischen der ersten und zweiten Variante bei mir, außer dass das
char10 zwischen den & noch ein Leerzeichen hat. Anbei ein Beispiel, wie es in der Zelle steht.

=WENN(A1="K. Mustermann";"Home Office"&ZEICHEN(10)&"Telefon : 01234 / 5678-98"&ZEICHEN(10) &"Telefax : 01234 / 5678-99";WENN(A1="A. Müller";"Telefon : 98765 / 4320-11";""))
Die Originalformel enthielt auch vorher das char(10), allerdings als Zeilenschaltung und nicht als Befehl.
Das ganze über einen SVERWEIS zu regeln macht Sinn. Allerdings passt das nicht auf die Tabellen und müsste in einem neuen Arbeitsblatt hinterlegt werden. Den Aufwand habe ich bis jetzt gescheut, weil ich an vielen Stellen Makros laufen habe, die zum identifizieren der "gültigen Arbeitsblätter" jedes Blatt durchläuft und dann in einem Select Case die Arbeitsblätter bearbeitet. Unter anderem läuft das ganze dann in eine Fehlermeldung, weil der neue Tabellenname für die Stammdaten bisher nicht vorhanden ist. Hier müsste ich an duzenden Stellen Anpassungen vornehmen.
Beim Ausprobieren bin ich auf folgendes gestoßen. Wenn man zuerst das ganze in eine Textvariable speichert, dann verschwindet das & Zeichen(10) & in der Formel bei Eingabe von:

Sub Neu1()
Dim strText As String
strText = "WENN( ..... )"
With Tabelle1.Range("B2")
.FormulaLocal = "=" & strText
End With
End Sub
Es dauert etwas, bis mann die vielen einfachen und doppelten Gänzefüßchen an der richtigen Stelle hat.
Meine Frage ist hiermit beantwortet. Wäre schön, wenn Du mir "blindes Huhn" noch erklärst, wo der Unterschied zwischen der 1+2 / 3+4 Variante ist.
Vielen Dank für die Hilfe
Grüße Norbert
Anzeige
AW: Zeilenschaltung in Formel
17.05.2021 16:24:23
ChrisL
Hi Norbert
Danke für die Rückmeldung.
Wie erwähnt, das eine ist ein VBA-Befehl, welcher einen Charakter erzeugt. Das andere ist eine Formel (Tabellenfunktion). Vielleicht siehst du den Unterschied hiermit:

Range("A1") = Chr(65)
Range("A2").Formula = "=CHAR(65)"
Der Unterschied war nicht nur der Leerschlag. Die Formel bleibt innerhalb vom Text-String, während für VBA-Chr der Textstring unterbrochen wurde, damit der Befehl bereits in VBA ausgeführt wird.
Womöglich müsstest du mal mit Text-Strings und Gänsefüssen experimentieren, damit die Grundlagen vorhanden sind. Beispiele wie z.B.

MsgBox "Hallo Welt"
MsgBox "Hallo " & 1 & " Welt"
MsgBox "Hallo " & 1 & " ""schöne"" Welt"
MsgBox "=""Hallo ""&DummyFormel(1)&"" Welt"""
MsgBox """Hallo " & 1 & " ""schöne"" Welt"""
Z.B. If-Then-Else kannst du ja auch direkt in VBA verwenden. Oder aber du kannst eine WENN-Formel schreiben.
cu
Chris
Anzeige

302 Forumthreads zu ähnlichen Themen

@ Tino - brauche Hilfe bei einer deiner Formeln
oblivion

Hallo, ich habe eine Frage an dich. Du hast mir die Formel erstellt in A16.
Ich habe die Datei mal hochgeladen und in Blatt "Beispiel" Spalte A etwas hereingeschrieben.
Danke für deine Hilfe.
Gruß Oblivion
https://www.herber.de/bbs/user/54685.zip
17.08.2008 21:06:00
Thread-ID: 1002466
4 Beiträge
Anzeige
Zeile einfügen und dann die Formeln eintragen?
Selma

Hallo Leute,
wie kann ich beim Einfügen einer neue Zeile per VBA die Formel in die Zellen der eingefügte Zeile eintragen?
Sub Insert_Task() Rows(ActiveCell.Row + 1).Insert Shift:=xlUp Rows(ActiveCell.Row + 1).Select End Sub
Beispiel für die Formeln der aktive Zeile 40:
D40 =...
16.09.2008 22:51:11
Thread-ID: 1010207
6 Beiträge
Formel in nächste Zeile ziehen
Michael

Hallo zusammen hab mal wieder ein Problem
Möchte eine Formel in die nächste Zeile ziehen.
C:\----\Spiels\[001.xls]BL-Tabelle'!$B$4;"")
In der nächsten Zeile sollte dann aus 001.xls ein 002.xls erscheinen dies sollte so sein bis Zeile 200
Kann mir hierbei jemand helfen schon jetz...
24.09.2008 11:02:28
Thread-ID: 1011987
4 Beiträge
Anzeige
Schleife nächste Zelle +1
Michael

Hallo!
Wie schaff ich es in die letzte zelle zu gehen und den wert + 1 in die nächste zelle zu schreiben,
Muss ich dann mit offset arbeiten?
Mein Code!
Gruß Michael
Sub zeileLetztePlusEins() Dim zeile As Integer Dim zeileMax As Integer Dim WertZeile As Long With Sheets("...
02.02.2009 09:39:26
Thread-ID: 1046079
7 Beiträge
Objekt in Formel verwenden
Michael

Schönen Sonntagmorgen,
ich möchte mit der Bedingung, dass ein Objekt angezeigt wird oder eben nicht (innerhalb eines If-Tests) eine Berechnung durchführen.
Weiß jemand, wie ich das in die If-Formel einbaue? Die "Shapes"-Eigenschaft wie im VBA ist es offensichtlich nicht...
Wäre supe...
15.02.2009 10:45:00
Thread-ID: 1050847
5 Beiträge
AutoFill zieht Formel auch in ausgeblendete Zeilen
Andreas

Hallo Herber Fans,
hat jemand folgendes Phänomen vielleicht selbst schon einmal erfahren.
1. Manuell: Ich habe eine Formel, die nicht auf alle Zeilen ausgeweitet werden soll. Setzte also einen Filter und ziehe die Formel herunter. Nur die sichtbaren Zellen bekommen die Formel, die die v...
16.03.2009 19:33:58
Thread-ID: 1060902
2 Beiträge
Aktuelles Datum in Formel (mit Inputbox)
StefanS

Hallo zusammen,
habe folgendes Problem:
Mittels der Formel =ZÄHLENWENN(Daten!E:E;" Meine nächste Idee wäre, das Datum mittels Inpubox abzufragen (Eingabe erfolgt durch User).
Sub Auswertung() Dim datum As String datum = InputBox("Datum") Range("B7").Select ActiveCell.FormulaR1C1 =...
21.04.2009 12:49:15
Thread-ID: 1070034
4 Beiträge
OHNE VBA Wert aus Zelle +71
Tom

Hallo zusammen,
kann mir jemand sagen ob es die Möglichkeit gibt über eine Formel beim runter ziehen eines Zellbezugs den Wert des Bezugs um 71 Spaltenb zu verschieben?
Beispiel:
Tabelle1 hat in der A1 Zelle einen Wert, in der A72 Zelle wieder einen und nach weiteren 71 Zeilen wiede...
17.06.2009 00:09:09
Thread-ID: 1082093
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
6
5
3
2
6
4
1
3
4
3
6
3
6
12
2
11
2
4
3
10
3
2
5
7