Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 17:49:39
Bedingte Formatierung
25.04.2024 16:50:59
2 Zellen in 2 Blättern mit unterschiedlichen Bereichen vergl
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1808to1812
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
1808to1812
1808to1812
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Formelergebnis in Textbox anzeigen

Formelergebnis in Textbox anzeigen
29.01.2021 14:50:57
reiner
Hallo Leute,
mit nachfolgender Formel erhalte ich am 28.01.2021 als Ergebnis den Buchstaben"M" (bedeutet VOLLMOND); mit der Schriftart Moonphases wird daraus das aus Übersichtskalendern bekannte Symbol für den Vollmond.
range("B46").FormulaLocal = "=WENN(ISTNV(SVERWEIS(" & adrZelleM & ";Mondphasen;2;FALSCH));"""";(SVERWEIS(" & adrZelleM & ";Mondphasen;2;FALSCH)))"
-----------------------------------------------------------------------------------------------------------
Nun will ich die gleiche Berechnungsformel verwenden und das Ergebnis "M" (mit der Schriftart Moonphases) in einer Textbox auf UF anzeigen lassen. z.B. so:
frmTag_Heute.txtMondphase "=WENN(ISTNV(SVERWEIS(" & adrZelleM & ";Mondphasen;2;FALSCH));"""";(SVERWEIS(" & adrZelleM & ";Mondphasen;2;FALSCH)))"
mit:
frmTag_Heute.txtMondphase.FormulaLocal
erhalte ich jedoch eine Fehlermeldung. Gibt es vielleicht einen anderen Lösungsweg um in der Textbox das Ergebnis anzuzeigen oder bleibt nur die (funktionierende) Möglichkeit, das Ergebnis aus: "range("B46").FormulaLocal" in die Textbox einzulesen?
Ich habe noch einen Ansatz im Netz gefunden, der beginnt mit: frmTag_Heute.txtMondphase.Value = Application.WorksheetFunction.VLookup( _.......
die Variable "adrZelleM" enthält das serielle Tagesdatum; "Mondphasen" definiert einen Bereich mit dem jeweiligen Datum und dem Mondsymbol z.B. "M"
mfg
reiner

15
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formelergebnis in Textbox anzeigen
29.01.2021 15:14:37
onur
frmTag_Heute.txtMondphase=range("B46")
AW: Formelergebnis in Textbox anzeigen
29.01.2021 15:27:22
Daniel
Hi
wenn du mit der Formel in B46 leben kannst, würde ich die Formel dort belassen und für die Anzeige eine Listbox verwenden, du mit der Zelle vernküpfst, in dem du die Adresse der Zelle in die Listbox-Eigenschaft RowSource einträgst.
die Listbox hat zum Anzeigen von Zellwerten den Vorteil, dass sie ReadOnly ist, dh die angezeigten Werte und auch die Zellformel können nicht aus versehen überschrieben werden.
willst du die Formel in der Zelle generell vermeiden, dann geht das auch mit Hilfe der Funktion EVALUATE:
frmTag_Heute.txtMondphase = Evaluate("...FormelText…")
allerdings muss der Formeltext in englisch mit A1-Zellbezügen geschrieben sein, dh
englische Funktionsnamen (IF, VLOOKUP,...) und dem Komma als Parametertrennzeichen.
(also so wie wenn du Range("B46").Formula = "..." programmieren würdest)
um den Text hierfür korrekt zu ermitteln, kannst du folgendes tun:
wenn die Formel funktionsfähig in der Zelle steht, selektiere sie und gib im Direktfenster den Befehl:
?Selection.Formula
ein. Dann wird dir der englische Formeltext angezeigt, den du nach Dopplung der Anführungszeichen dann direkt in den Code übernehmen kannst (naja und ggf die Variablen noch einbinden)
Gruß Daniel
Anzeige
AW: Formelergebnis in Textbox anzeigen
29.01.2021 16:10:21
reiner
hallo Daniel,
die Formel wurde -wie von dir beschrieben- im Direktfenster übersetzt, liefert aber nicht das gleiche Ergebnis wie mit der Zellenberechnung. Wenn ich die Anführungszeichen doppele erhalte ich eine Fehlermeldung "...beim Kompilieren"
range("S1").FormulaLocal = "=WENN(ISTNV(SVERWEIS(" & adrZelleM & ";Mondphasen1;3;FALSCH));"""";(SVERWEIS(" & adrZelleM & ";Mondphasen1;3;FALSCH)))"
frmTag_Heute.txtMondphase.Value = "=IF(ISNA(VLOOKUP(" & adrZelleM & ",Mondphasen1,3,FALSE)),"""",(VLOOKUP(" & adrZelleM & ",Mondphasen1,3,FALSE)))"
siehst du in der übersetzten Version einen Fehler?
Anzeige
AW: Formelergebnis in Textbox anzeigen
29.01.2021 16:29:41
Daniel
dein Fehler ist, dass du meinen Beitrag anscheinend nicht vollständig gelesen bzw oder wichtige Stellen übersehen hast (obwohl ich sie extra hervorgehoben habe).
Lies bitte meine Antwort nochmal aufmerksam, vielleicht fällt dir dein Fehler auf.
die Anführungszeichen sind schon korrekt.
Gruß Daniel
AW: Formelergebnis in Textbox anzeigen
29.01.2021 17:24:25
onur
ICH habe dir doch auch geantwortet - hast du das nicht mal gelesen?
AW: Formelergebnis in Textbox anzeigen
29.01.2021 17:34:57
Daniel
Ist das nicht die Lösung, die er schon kennt aber vermeiden will?
Zumindest interpretiere ich den vorletzten Absatz der Frage so.
Gruß Daniel
AW: Formelergebnis in Textbox anzeigen
29.01.2021 17:39:29
onur
Meinst du etwa:" bleibt nur die (funktionierende) Möglichkeit, das Ergebnis aus Range("B46").FormulaLocal" in die Textbox einzulesen? Glaube ich nicht - er will ja das ERGEBNIS der Formel und nicht den Formeltext, sonst nix - soweit ich verstanden habe.
Anzeige
AW: Formelergebnis in Textbox anzeigen
29.01.2021 17:48:04
Daniel
Ja meinte ich.
Da er dazuschreibt, dass es funktioniert, kann er es nur so machen, wie du ihm nochmals vorgeschlagen hast.
AW: Formelergebnis in Textbox anzeigen
29.01.2021 17:53:15
onur
Aber er kann ja eigentlich nicht das Ergebnis aus "Range("B46").FormulaLocal" meinen, denn das kann ja nicht funktionert haben, - das ist ja die Formel selbst, und was soll er denn mit dem Formeltext in einer Textbox anfangen (dazu auch noch mit seiner Schriftart formattiert)?
AW: Formelergebnis in Textbox anzeigen
29.01.2021 18:15:36
Daniel
Weil das unsinnig ist, gehe ich davon aus dass er die von dir vorgeschlagene Lösung bereits verwendet hat.
Mit .Formula die Formel in die Zelle schreiben und davon das Ergebnis in die Textbox über nehmen (also das Ergebnis aus der Zelle).
Vielleicht ein bisschen unglücklich formuliert.
Anzeige
hallo onur und Daniel
29.01.2021 18:30:04
reiner
ich war einige Zeit nicht online wegen eines anderen Termins.
ich habe, wie schon in der Anfrage formuliert, und auch von onur vorgeschlagen, diese beschriebene Variante eingesetzt weil sie funktioniert.
Der Vorschlag von Daniel erschien mir allerdings interessanter, aber ich sehe einfach nicht an welcher Stelle ich ein Zeichen zu viel oder zu wenig eingesetzt habe und deshalb präferiere ich die ursprünglich bereits in der Anfrage von mir beschriebene nicht ganz so elegante Lösung.
danke und ein schönes Wochenende
reiner
AW: hallo onur und Daniel
29.01.2021 18:42:06
Daniel
du hast das mit dem EVALUATE dezent übersehen.
AW: Formelergebnis in Textbox anzeigen
29.01.2021 19:03:06
Daniel
Hi
wenn du diese Formel in VBA umsetzen willst, dann geht das nicht 1:1 zur Excelformel.
wenn dann so: 
dim Erg as variant
Erg = Application.Vlookup(Range(adrZelleM), Range("Mondphasen"), 2, false)
if Vartype(Erg) = vbError then
frmTag_Heute.txtMondphase = ""
else
frmTag_Heute.txtMondphase = Erg
end if
Gruß Daniel
Anzeige
AW: Formelergebnis in Textbox anzeigen
29.01.2021 22:59:45
reiner
Hi,
..du hast das mit dem EVALUATE dezent übersehen
NEIN, das habe ich nicht übersehen, es kam zwar keine Fehlermeldung, hat aber auch nicht funktioniert
frmTag_Heute.txtMondphase = Evaluate("=IF(ISNA(VLOOKUP(" & adrZelleM & ",Mondphasen,2,FALSE)),"""",(VLOOKUP(" & adrZelleM & ",Mondphasen,2,FALSE)))")
lass gut sein, diese Anfrage hat nichts gebracht außer schlechter Stimmung
AW: Formelergebnis in Textbox anzeigen
29.01.2021 23:35:51
Daniel
doch hast du.
ansonsten hättest du hier https://www.herber.de/forum/archiv/1808to1812/t1809295.htm#1809326
schon erwähnen müssen, dass du "Evaluate" ausprobiert hast.
hast du aber nicht, du hast es explizt weggelassen.
versuche bitte nicht, die Menschen die ihre Zeit opfern um dir zu helfen zu verarschen.
entweder hast du im genannten Beitrag gelogen oder du lügst jetzt.
Anzeige

318 Forumthreads zu ähnlichen Themen

Anzahl unterschiedl. Werte in Spalte zählen
Jakob

Hallo,
ein ähnliches Problem wurde hier im Forum schon einmal diskutiert. (https://www.herber.de/forum/archiv/632to636/t635773.htm)
Meine Problem:
Wie kann ich die Anzahl unterschiedlicher Einträge/Werte einer Spalte erhalten, ohne dass diese vorgegeben werden ( also ohne die Verwe...
14.08.2008 18:16:11
Thread-ID: 1001934
2 Beiträge
Anzeige
Letzen wert in Zeile(nicht Spalte)
hary

Nabend alle miteinander
In einer bestimmten Zeile suche ich den letzten Eintrag. Bis zu diesem soll gefaerbt werden. Mit diesem Code faerbe ich den ganzen Bereich, es soll aber nur bis zum letzten Eintrag in der Zeile gefaerbt werden. Da von links nach rechts gefaerbt.
Case Is = Cells...
28.08.2008 21:25:00
Thread-ID: 1005592
5 Beiträge
von Datum bis Datum suchen und Werte in die Spalte
Datum

Hallo liebe Excel-Könner,
ich habe folgendes Problem und finde keine Lösung.
Ich habe in Spalte A von 2006 bis heute Datum stehen, über eine UserForm möche ich in zwei TextBoxen von bis Datum eintragen und in Spalte B in diesem Bereich den WertX.
Ich hoffe Ihr könnt mir helfen!
...
07.09.2008 09:31:20
Thread-ID: 1007931
8 Beiträge
Anzeige
Werte löschen beim Eintrag in andere Spalte ?
Selma

Hallo Leute,
wie kann ich folgendes ab Zeile 5 für aktive Zeile über VBA erreichen:
1. Wird der Wert in aktive Zeile in Spalte H eingetragen, dann sollen die Werte in Zellen der Spalte D und E gelöscht werden.
2. Wird der Wert in aktive Zeile in Splate D oder E eingetragen, dann sol...
12.10.2008 17:05:00
Thread-ID: 1015877
5 Beiträge
TextBox Werte in Spalte Q ersetzen ?
Selma

Hallo Leute,
ich habe eine Frage zu UserForm. Beim Klick auf CommandButton1 sollen die Zahlen aus TextBox1 mit Werten in Spalte Q ab Zeile 12 ersetzt werden. Dies soll nur dann erfolgen, wenn in TextBox1 die Zahlen stehen bzw. der TextBox gefüllt ist.
Ersetzt sollen nur die vorhandene W...
13.10.2008 15:42:00
Thread-ID: 1016083
3 Beiträge
Wenn Eintrag in ListBoxspalte dann Eintrag in lbl
Josef

Guten Morgen!
In eine mehrspaltige ListBox werden eine Menge Datensätze eingelesen.
Ich möchte nun folgendes erreichen:
Wenn ich einen Datensatz in der ListBox markiere oder anklicke und wenn jetzt z.B. in der 2.Spalte in der ListBox ein "J" steht, dann soll ein vordefinierter Text...
29.10.2008 07:57:42
Thread-ID: 1020127
3 Beiträge
Formel wenn dann sonst ...
Uwe

Hallo, Gemeinde ..
Mir stellt sich folgende Herausforderung:
ich möchte in einer Liste Fahrtkosten berechnen. Der Arbeiter bekommt von km 1 bis km 10 0,36€ pro km (einfach). ab dem 11 km bekommt der Arbeiter 0,40€.
Wie bekomme ich eine Formel hin, die das berechnet, wenn
- der A...
31.10.2008 11:20:00
Thread-ID: 1020821
10 Beiträge
Zelleninhalt suchen wenn gefunden dann...
Ernst

Hallo Fachleute,
ich möchte mit einem Makro eine Tabelle (möglichst nur einen vorher definierten Bereich) auf bestimmte Zellinhalte durchsuchen und wenn es einen Inhalt findet soll es dort eine Zeile einfügen und von mir im Makro definierten Text einfügen.
Nähere Anleitung in der Datei....
16.11.2008 14:44:22
Thread-ID: 1024902
7 Beiträge
Anzeige

Links zu Excel-Dialogen

ListBox TextBox

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
1
8
4
7
4
4
2
2
9
6
4
2
1
2
4
4
5
2
33
5
10
1
3
2
2