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
1312to1316
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
1312to1316
1312to1316
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Formel in VBA zum Abruf mehrerer Zellinhalte

Formel in VBA zum Abruf mehrerer Zellinhalte
14.05.2013 12:21:04
Hartmut
Hallo zusammen,
bezügliche einer früheren Lösung von Karin (https://www.herber.de/forum/messages/1312822.html) habe ich nun ein Folgeproblem, was ich nicht gestemmt bekomme. Konkret wird dort die Formel einer Zelle zur Laufzeit aus mehreren, variablen Strings gebaut.
Ich möchte nun aber die Werte aus mehreren Zellen in einer gemeinsame Zelle vorhalten können, weshalb die jeweils für einen Wert gültigen Formelstrings kombiniert werden müssten. Zusätzlich würde ich gerne einzelne Werte mit Zeilenumbrüchen (wie Zeichen(10) von den vorherigen Werten optisch trennen.
Aktuell wäre das so:
Cells(1,1).Formula = "='" & strPath & "[" & strFile & "]" & "Tabelle 1" & "'!A1"

Wunschgemäß wäre das dann sinngemäß so:
Cells(1,1).Formula = _
"='" & strPath & "[" & strFile & "]" & "Tabelle 1" & "'!A1" _
& Zeichen(10) & "[" & _
"'" & strPath & "[" & strFile & "]" & "Tabelle 1" & "'!A2" _
"]"

Klappt aber leider nicht. Zeichen(10) wird in VBA angemeckert und bei der Eck-Klammer sowieso.
Wäre für jeden Tipp dankbar!
--
Viele Grüße,
Hartmut

19
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formel in VBA zum Abruf mehrerer Zellinhalte
14.05.2013 12:24:21
Klaus
Hi Harmut,
"Zeichen" heisst in VBA "chr". Siehe:
msgBox("Hallo" & chr(10) & "Welt")
Grüße,
Klaus M.vdT.

AW: Formel in VBA zum Abruf mehrerer Zellinhalte
14.05.2013 12:32:43
Hartmut
Hallo Klaus,
klappt leider nicht, da Excel innerhalb der Zell-Formel nichts mit "chr(10)" anfangen kann.
Beispiel: 
Cells(loZeileZielmappe, 6).Formula = _
"='" & strPath & "[" & strFile & "]" & "Auswertung Vorschriften" & "'!C33" & _
Chr(10) & _
"& '" & strPath & "[" & strFile & "]" & "Auswertung Vorschriften" & "'!C35"
Was in der Zelle ankommt, ist lediglich das &-Zeichen aus der 2. String-Formel.
Dennoch danke!
--
H.

Anzeige
AW: Formel in VBA zum Abruf mehrerer Zellinhalte
14.05.2013 12:39:34
Klaus
Hi Hartmut,
probiers mal so:
Cells(loZeileZielmappe, 6).Formula = _
"='" & strPath & "[" & strFile & "]" & "Auswertung Vorschriften" & "'!C33 & Char(10) & " &
"& '" & strPath & "[" & strFile & "]" & "Auswertung Vorschriften" & "'!C35"
schreibt den Zeilenumbruch direkt in die Formel. Char(10) statt zeichen(10), da "formula" die englischen Excelformeln erwartet.
Mein Test:
=A2&CHAR(10)&A3 in einer Zelle hat funktioniert wie gewünscht.
Grüße,
Klaus M.vdT.

AW: Formel in VBA zum Abruf mehrerer Zellinhalte
14.05.2013 13:01:13
Hartmut
Hallo Klaus,
nachdem das überzählige & zu Beginn der dritten Zeile weg war, hat es geklappt. Tatsächlich ist Char(10) zu einem Zeichen(10) umgesetzt worden. Respekt ;-)
Hast du auch noch einen Tipp, wie ich möglichst beliebige, zusätzliche Textzeichen mit einfügen kann? Beispielsweise wird die Eck-Klammer angemeckert, egal, wo ich sie bislang hingesetzt habe.
--
Viele Grüße,
Hartmut

Anzeige
AW: Formel in VBA zum Abruf mehrerer Zellinhalte
14.05.2013 13:25:57
Klaus
Hast du auch noch einen Tipp, wie ich möglichst beliebige, zusätzliche Textzeichen mit einfügen kann?
Hi,
solange die innerhalb von "" steht, kannst du eigentlich alles eintragen. Notfalls mit .value
wenn du mit .formula einträgst, erwartet Excel natürlich eine gültige Formel.
Was genau wird bei dir angemeckert?
Grüße,
Klaus M.vdT.

AW: Formel in VBA zum Abruf mehrerer Zellinhalte
14.05.2013 13:42:54
Hartmut
Hallo Klaus,
leider nein, der VBA-Editor interpretiert Klammern scheinbar nicht als String, sondern als Steuerzeichen.
Beide folgenden Varianten gehen daher nicht:
#1 
Cells(loZeileZielmappe, 6).Formula = _
"='" & strPath & "[" & strFile & "]" & "Auswertung Vorschriften" & "'!C33 & Char(10) & " _
& "['" & strPath & "[" & strFile & "]" & "Auswertung Vorschriften" & "'!C35]"
#2 
Cells(loZeileZielmappe, 6).Formula = _
"='" & strPath & "[" & strFile & "]" & "Auswertung Vorschriften" & "'!C33 & Char(10) & " _
& "[" & "['" & strPath & "[" & strFile & "]" & "Auswertung Vorschriften" & "'!C35" _
& "]"
Als Meldung kommt:
Fehler beim Kompilieren:
Erwartet: Zeilennummer oder Sprungmarke oder Anweisung oder Anweisungsende

--
Hartmut

Anzeige
AW: Formel in VBA zum Abruf mehrerer Zellinhalte
14.05.2013 14:08:53
Klaus
Hi,
redest du von Klammern [ ] oder diesem " Zeichen? Kann das nicht nachvollziehen. " müsstest du doppelt setzen, wie Rudi schrieb.
Grüße,
Klaus M.vdT.

müssen in doppelte ". owT
14.05.2013 13:33:21
Rudi

AW: müssen in doppelte ". owT
14.05.2013 13:54:01
Hartmut
Hallo Rudi,
leider nein, der VBA-Editor sagt dann: "Fehler beim Kompilieren: Systaxfehler"
Cells(loZeileZielmappe, 6).Formula = _
"='" & strPath & "[" & strFile & "]" & "Auswertung Vorschriften" & "'!C33 & Char(10) & " & _
_
""test & "" & _
"'" & strPath & "[" & strFile & "]" & "Auswertung Vorschriften" & "'!C35"
Mit nur einfachen " um test herum läuft das Skript durch, in der Zielzelle des Tabellenblatts kommt dann der Begriff test ohne die notwendigen " an und es erfolgt der "#NAME?"-Fehler.
--
H.

Anzeige
AW: müssen in doppelte ". owT
14.05.2013 14:10:38
Klaus
"""test & """ _
sollte gehen. Du brauchst " für die Formel, und die " die du innerhalb der Formel sehen möchtest musst du durch " kenntlich machen. Ist etwas doof zu erklären, spiel damit halt rum. Sobald dus verstanden hast ist es ganz einfach :-)
Grüße,
Klaus M.vdT.

AW: müssen in doppelte ". owT
14.05.2013 14:23:42
Hartmut
Hallo Klaus,
kurz gesagt, leider nein. Jedoch ahne ich, was damit gemeint ist.
Werde aber besser morgen erneut mit frischem Kopf an das Thema rangehen, bevor ich mehr zerschieße, als ich richtig mache ;-)
--
H.

AW: müssen in doppelte ". owT
14.05.2013 14:26:45
Rudi
Hallo,
Cells(loZeileZielmappe, 6).Formula = _
"='" & strPath & "[" & strFile & "]" & "Auswertung Vorschriften" & "'!C33 & Char(10) & " & _
""test"" & _
"'" & strPath & "[" & strFile & "]" & "Auswertung Vorschriften" & "'!C35"
Gruß
Rudi

Anzeige
AW: müssen in doppelte ". owT
14.05.2013 14:40:39
Hartmut
Hallo Rudi,
auch nicht: Bereits beim Pasten in den Editor kommt die Meldung
"Fehler beim Kompilieren: Erwartet Anweisungsende".
--
H.

Eine dolle Jongliererei, ...
14.05.2013 16:19:51
Luc:-?
…Leute; ;->
wie wär's mit …
Cells(loZeileZielmappe, 6).Formula = _
"='" & strPath & "\[" & strFile & "]Auswertung Vorschriften'!C33&CHAR(10)&""test""&CHAR(10)&'" & _
strPath & "\[" & strFile & "]Auswertung Vorschriften'!C35"
Gruß Luc :-?

AW: Eine dolle Jongliererei, ...
15.05.2013 10:33:18
Hartmut
Hallo Luc,
das war es leider auch nicht.
Habe aber nun einen Workaround:
Da das Problem scheinbar während des String-Bauens in VBA entsteht und beide Verknüpfungen solo funktionieren, habe ich diese zunächst in Variablen geschrieben.
Dann habe ich die fertigen Variablen-Inhalte kombiniert und wie gehabt in die Zell-Formel geschrieben. In dem Fall klappt auch, dass Klappern in doppelte "Doppel-Anführungszeichen" gesetzt werden, damit sie in die Formel gerettet werden können.
Damit sieht meine Lösung so aus (wen es interessiert): 
loSpalteZielmappe = 6 ' nur zur Vereinfachung
strValue1 = "'" & strPath & "[" & strFile & "]" & "Auswertung Vorschriften" & "'!C33"
strValue2 = "'" & strPath & "[" & strFile & "]" & "Auswertung Vorschriften" & "'!C35"
Cells(loZeileZielmappe, loSpalteZielmappe).Formula = _
"=" & strValue1 _
& " & Char(10) &" _
& " ""["" & " _
& strValue2 _

Allen vielen Dank für das Mitdenken!
--
Hartmut

Anzeige
...Na, wenn's fktioniert...! owT
15.05.2013 16:12:33
Luc:-?
:-?

Recorder
14.05.2013 14:33:40
Rudi
Hallo,
mach den recorder an und schreib z.B. in B1 =A1 &"test" &A2.
Dann schau, was dabei rauskommt.
Gruß
Rudi

AW: Recorder
14.05.2013 14:45:12
Hartmut
Hallo Rudi,
wie folgt: ActiveCell.FormulaR1C1 = "=RC[-1] & ""test"" & R[1]C[-1]"
--
H.

AW: Formel in VBA zum Abruf mehrerer Zellinhalte
14.05.2013 12:51:34
Rudi
Hallo, 
  Cells(1, 1).Formula = "='" & strPath _
& "[" & strFile & "]Tabelle1'!A1" _
& "  &CHAR(10) &'" _
& strPath _
& "[" & strFile & "]" & "Tabelle1'!A2"

Gruß
Rudi

331 Forumthreads zu ähnlichen Themen

7 a in eine Zelle schreiben
Kai

Hallo zusammen,
wie bekomme ich es hin, in eine Zelle "7 a" (7 Leerzeichen a) zu schreiben? Excel macht mir dann immer 7:00 AM daraus oder 0,29...
Danke
07.08.2008 16:45:31
Thread-ID: 1000024
6 Beiträge
Anzeige
Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:34:08
Thread-ID: 1000867
5 Beiträge
VBA-Formel um nur Berechnungswerte einzutragen
Matthias

Hallo Excel und Makrofans.
Ich habe folgende 2 Probleme. Erstmal zum ersten Problem:
Ich habe eine Datei in der ich Daten (Betriebsparameter [Druck, Temperatur usw.]) aus einem externen Programm einlese. Aus diesen Werten möchte ich gerne einige Werte Berechnen.
Zur Zeit mache ich d...
12.08.2008 08:51:00
Thread-ID: 1001053
6 Beiträge
Anzeige
VBA Formel finden
Baywatch

Hi,
ich brauche etwas hilfe, mit einer VBA programmierung, vielleicht hat jemand ein paar MInuten Zeit.
Ich habe eine Tabelle 1 in der eine eingabe passiert und eine TAbelle 2 sollen die Einträge aus TAbelle 1 hinkopiert werden und erst nach Spalte G dann nach B und dann nach A sortiert...
25.08.2008 08:47:34
Thread-ID: 1004371
7 Beiträge
Mit VBA In Zelle Excelformel schreiben
Gho-Reg

Hi Leute
Ich habe hier diesen netten VBA Code geschrieben und leider wie solls auch anders sein kommt dauernd eine Fehlermeldung :)
CODE:
rowbeforeinteger = 2
Dim text As String
text = "=IF(" & epsoldcolumn & rowbeforeinteger & "=""x"";1;0)+IF(" & emailsoldco...
25.08.2008 11:08:33
Thread-ID: 1004403
6 Beiträge
Makrostart wenn in Zelle was geschrieben wird
Bernd

Hallo,
wie stelle ich es an, damit ein Makro startet, sobald ich in einer bestimmten Zelle etwas schreibe?
Mein Code will irgendwie nicht so wie ich will. Der läuft ohne nonstop.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Range("D3") "" Then Call tabelle_kopi...
31.08.2008 11:09:00
Thread-ID: 1006152
2 Beiträge
Matrix-formel via VB-Skript in die Zelle einfügen
Wladimir

Hallo zusammen,
ich soll via VB-Skript eine
Excel-Matrix-formel in die Zelle der
geschlossenen Datei einfügen.
Ich habe die Formel entsprechend
angepasst und versuchte sie mit
FormulaArray in die Zelle einzufügen,
aber erfolglos. Es kommt die Meldung:
"Die For...
01.09.2008 12:08:24
Thread-ID: 1006391
14 Beiträge
Formel immer nur in bestimmter Zelle
Katrin

Hallo Zusammen!
Folgendes Problem würde ich gerne lösen, weiß aber nicht wie :)
Ich habe in Spalte A in jeder Zeile Uhrzeiten stehen:
00:15:00
00:30:00
00:45:00
01:00:00
01:15:00
01:30:00
01:45:00
02:00:00
02:15:00
02:30:00
02:45:00
...
02.09.2008 10:30:00
Thread-ID: 1006672
3 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
5
2
4
5
16
6
5
1
13
2
3
4
3
2
8
5
4
30
3
8
11
10
12
5
4