Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1668to1672
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
1668to1672
1668to1672
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Aus Speiseplan Zahl in Text umwandeln

Aus Speiseplan Zahl in Text umwandeln
16.01.2019 17:17:19
Tom
Grüß Gott zusammen,
ich habe folgende Situation, ich möchte aus Speisenplänen, die einen bestimmten Text (das Menü sozusagen) und entsprechende Kennzeichnungen in Form von Zahlen oder Buchstaben und/oder Zahlen und Buchstaben beinhalten, also alles in einer Zelle, auslesen und bei Vorhandensein einer Zahl (z. B. 12) in einer danebenstehenden Zelle den Text (bei diesem Beispiel "Schweinefleisch") oder (z. B. La) den Text (Laktose) oder (z. B. Nu1) den Text (Mandel) abgebildet bekommen.
Verschiedene Ansätze haben mich bisher nicht weitergebracht. Nachdem hunderte von Menüs auszulesen sind, wäre eine entsprechende Hilfe hier im Forum natürlich wünschenswert.
Ich habe mal eine Datei zur Veranschaulichung erstellt, die Menüs und die Kennzeichnungen enthält.
https://www.herber.de/bbs/user/126828.xlsx
Gruß Tom

25
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Aus Speiseplan Zahl in Text umwandeln
16.01.2019 18:08:47
onur
Und wieso hat "Kennzeichnung" 2 Spalten für die Kennzeichnungen? Dadurch wird es komplizierter.
In welche Zellen sollen die entsprechenden Texte?
AW: Aus Speiseplan Zahl in Text umwandeln
16.01.2019 18:44:18
Tom
Servus onur, sorry für meine unzureichende Erläuterung. Die Spalte im Blatt Kennzeichnung mit den Text Kennzeichnung, Allergene, Nährwerte und Sonstiges stammt aus dem Export der WW, ich habe vergessen, diese zu löschen und muss nicht berücksichtigt werden, sondern nur die Zahlen und Kombinationen aus Zahlen und Buchstaben und eben die Erläuterung, was was ist. Die Zellen sollen am Ende neben den Preisen stehen. Gruß Tom
AW: Aus Speiseplan Zahl in Text umwandeln
16.01.2019 18:57:34
Tom
Noch zur Ergänzung, wenn mehr als eine Kennzeichnung (oft der Fall) sollte für jede Bezeichnung eine extra Zelle vorhanden, bei z. B. 4 Kennzeichnungen eben 4 Zellen nebeneinander usw. wenn eben möglich.
Anzeige
AW: Aus Speiseplan Zahl in Text umwandeln
16.01.2019 19:40:19
onur
Diese Erklärung bringt auch nix - Kann Alles weg, was keine Ziffer enthält?
Lade doch mal die Datei ohne den Müll hoch.
AW: Aus Speiseplan Zahl in Text umwandeln
16.01.2019 20:15:23
Tom
Ja war gerade dabei, hier eine vernünftige Grundlage zu erstellen. Hier nun die Vorlage, bei Kennzeichnung sind es jetzt 2 Spalten, im Datenblatt habe ich den Text rot markiert, der ausgelesen werden soll. Das Blatt Speisenplan kommt im Export genau so aus der WW heraus.
Nun bitte ich Dich, nicht, wie zuerst mitgeteilt, in die Zellen neben den Preisen, sondern nach den Preisen 9 Spaltenfelder frei zulassen (gelb markiert). Hier in diesen Spalten soll durch eine bedingte Formatierung später für einen Teil der Texte dann entsprechende Farbfelder entstehen (z. B. bei Vegetarisch Grün, Fisch Blau usw.), insgesamt haben wir eben 9 Farbcodes im Einsatz (für Personen mit Handicap, die nicht lesen können).
https://www.herber.de/bbs/user/126831.xlsx
Gruß Tom
Anzeige
AW: Aus Speiseplan Zahl in Text umwandeln
16.01.2019 21:51:33
Tom
Servus onur, ein Traum die Datei!!
Vielen Dank, Du hast mir extrem geholfen.
Gruß Tom
AW: Aus Speiseplan Zahl in Text umwandeln
16.01.2019 22:11:45
onur
Kein Problem.
Mach bitte aus 
While InStr(arr1(i), ")") > 0

das: 
If InStr(arr1(i), ")") > 0 Then

und aus 
Wend

das: 
End if

Könnte Probleme geben, wenn du vergisst, die Klammer zuzumachen.
Anzeige
AW: Aus Speiseplan Zahl in Text umwandeln
16.01.2019 22:19:11
Tom
okay danke habe ich gemacht.
Schönen Abend noch!
Gruß Tom
AW: Aus Speiseplan Zahl in Text umwandeln
16.01.2019 22:13:56
onur
Quatsch, lass die Zeilen einfach weg.
AW: Aus Speiseplan Zahl in Text umwandeln
16.01.2019 22:20:27
Tom
also ganz weg oder wie vorher?
AW: Aus Speiseplan Zahl in Text umwandeln
16.01.2019 22:21:35
onur
Beide ganz weg, es gibt max 1 x ")" pro Teilstring.
AW: Aus Speiseplan Zahl in Text umwandeln
16.01.2019 22:28:18
Tom
erledigt!
AW: Aus Speiseplan Zahl in Text umwandeln
16.01.2019 23:32:10
Tom
onur ich würde gerne einmal noch Deine Hilfe für diese Datei in Anspruch nehmen. Wenn der Text aus dem Speiseplan in die Zelle exportiert wurde (z. B. 22 = Vegan), soll in der entsprechende Spalte (momentan 5 Spalten, die Spalten Bio und Schöpf werden händisch eingetragen, da kein Merkmal in der Exportdatei vorhanden ist), die ich dafür vorgesehen habe, diese Zelle farblich markiert sein (eben dieser Farbcode, den noch zusätzliche benötige). Da die Texte in verschiedenen Zellen exportiert werden (je nach Inhalt sind es 3 bis 8 Kennzeichnungen), bin ich mir nicht mehr ganz sicher, wie zu verfahren ist, da ich mich nicht auf die Spalten fest beziehen kann.
Hier der Auszug, wo ich händisch drei Zellen markiert habe:
https://www.herber.de/bbs/user/126837.xlsx
Gruß Tom
Anzeige
AW: Aus Speiseplan Zahl in Text umwandeln
17.01.2019 07:20:11
Tom
Guten Morgen onur, super, danke.
Genau das bekommen, was ich mir erhofft hatte, eigentlich sogar mehr!!!.
Gruß Tom
AW: Aus Speiseplan Zahl in Text umwandeln
18.01.2019 08:18:34
Tom
Guten Morgen onur,
ich benötige nochmals Deine Hilfe bei einer Formel in einer bedingten Formatierung beim diesem Speisenplan. Der VK-Preis eines Menüs beträgt z. B. 3,10€ (Spalte 1), der Wareneinsatz für dieses Menü ist 1,22€ (Spalte 2), der %-Wert des Wareneinsatzes ist dann 39,35% (Spalte 3). In Spalte 3 soll die Schrift dann bei einer Abweichung von 10 % vom Mittelwert (hier 50%) nach oben rot und nach unten grün erscheinen. Der Bezug vom Mittelwert bezieht sich einmal auf eine Zelle (hier 50%), wo ich den Wert jederzeit verändern kann, weiterhin benötige ich den Bezug zum Mittelwert (auch 50%) auch ohne Zellenbezug direkt in einer Formel in der bedingten Formatierung (oder wie auch immer).
Vielen Dank im Voraus.
Gruß Tom
Anzeige
AW: Aus Speiseplan Zahl in Text umwandeln
18.01.2019 08:24:07
onur
Kann dir nicht folgen.
2x50% ?
Schick mal eine Datei mit Beispielen und Erläuterungen.
AW: Aus Speiseplan Zahl in Text umwandeln
18.01.2019 12:34:53
onur
Schaue ich mir zu Hause an.
AW: Aus Speiseplan Zahl in Text umwandeln
18.01.2019 17:52:52
onur
"Vergleich Menge Sollkalkukation (Menüs)/Istausgabe (Menüs) ab 20% Abweichung rot, sonst keine Markierung" - ab +/- 20% oder ab +20% ?
AW: Aus Speiseplan Zahl in Text umwandeln
18.01.2019 18:16:50
Tom
ab -20%
AW: Aus Speiseplan Zahl in Text umwandeln
18.01.2019 19:45:38
Tom
Servus Onur,
was soll ich sagen, einfach perfekt Deine Lösung! Alles wie gewünscht, jetzt weiß ich auch für die Zukunft, wie man hier rangeht. Vielen Dank für Deine Unterstützung.
Gruß Tom
Anzeige

386 Forumthreads zu ähnlichen Themen

Hintergrundfarbe in Zahl umwandeln
Timo

Hallo zusammen.
Gibt es über VBA eine Möglichkeit, die Hintergrundfarbe einer Zelle in eine Zahl umzuwandeln und das schneller als mit for- Schleifen?
Habe einen Bereich ("J16:AG39"), wo ich per Zellaktivierung mit der Maus Zellen oder auch Zellbereiche mit einer Hintergrundfarbe verseh...
07.08.2008 19:30:00
Thread-ID: 1000082
4 Beiträge
Anzeige
Zahl vorn/hinten vom Text trennen + Komma
StefanK

Hallo Excel-Freunde
ich möchte gern per Formel folgendes lösen:
in zelle a3 steht
1 haley, bill rock around the clock 1956
jetzt soll in b3 die "1" stehen --- löse ich per Formel mit =LINKS(A3;SUCHEN(" ";A3)-1)
in e3 soll "1956" stehen --- löse ich mit Array-Formel {=...
25.09.2008 19:00:21
Thread-ID: 1012407
12 Beiträge
Textbox Ausgabe als Zahl bzw. Zeit formatieren
Steffan

Hallo ihr lieben,
ich schreib jetzt schon den ganzen Tag an folgender Routine:
Private Sub CommandButton1_Click() Dim z As Integer z = Range("I101").End(xlUp).Row + 1 TextBox1 = Format(CDate(TextBox1.Value), "dd.mm.yyyy") Cells(z, 9) = TextBox1 'Datum des Tauchgangs Cells(z, 12) = Tex...
28.09.2008 20:12:56
Thread-ID: 1012988
6 Beiträge
Anzeige
Zahlen rechtsbündig in einer Textbox
Helmut

Hallo,
ich habe einen Textstring mit Zahlen die ich rechstbündig anordnnen will.
Text= "Beisiel: " & Format (Zahl,"#,###")
Wie wird die Zahl im Formatbefehl z.B rechtsbündig bei max 6 Stellen ausgegeben?
Gruß
Helmut
04.11.2008 11:57:00
Thread-ID: 1021556
2 Beiträge
Zahl eingeben und per VBA formatieren
Herbert

Hallo Gemeinde
Ich habe eine Zelle in einem .xlt, dort soll der User eine Zahl eingeben und mit dem Changeereignis
soll die Zahl in der Form JJ/###A umgewandelt werden.
Beispiel: 201 soll 08/201A werden. Das, was ich hier verbrochen habe, funst nicht, kann mir jemand helfen?
P...
05.11.2008 16:08:10
Thread-ID: 1021969
12 Beiträge
Textzahl umwandeln
Stephan

Hallo zusammen,
ich habe folgendes Problem:
Mit dem u. a. Code werden Zeilen aus einer Datei in eine andere kopiert. Die Spalte B (B2:B65535) der Zieldatei ("Auswertung.xls)" soll nun aber zusätzlich noch mit 1 multipliziert werden, da diese ein Datum als Textzahl enthält und dieses in...
10.11.2008 11:12:00
Thread-ID: 1023147
22 Beiträge
Nur Zahlen in sehr vielen Textboxen
uli

Hallo,
habe ein im Internet gefunden, der allerdings noch ein bisschen angepasst werden muss. Vielleicht könnt ihr mir helfen, da ich an dieser Stelle nicht mehr weiterkomme.
Ich möchte die Eingabe von Buchstaben in mehreren Textboxen verbieten. Dies mache ich mit folgendem Code in eine...
13.11.2008 10:24:00
Thread-ID: 1024091
3 Beiträge
TextBox Inhalte sollen Zahlen sein
Frank

Hallo Zusammen!!!
Mit folgendem Code:
Private Sub CommandButton2_Click() If Me.TextBox1.Value = "" Then MsgBox "Sie müssen ein Datum eingeben" Exit Sub End If If Me.TextBox2.Value = "" Then MsgBox "Sie müssen eine Anfangszeit eingeben " Exit Sub End If If Me.TextBox3.Value = "" Then M...
17.11.2008 21:37:00
Thread-ID: 1025414
8 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
5
11
5
3
1
11
21
2
7
4
3
3
2
1
8
5
4
21
3
5
2
2
6
4