Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
896to900
896to900
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

bestimmte Teile einer Formel auslesen

Forumthread: bestimmte Teile einer Formel auslesen

bestimmte Teile einer Formel auslesen
22.08.2007 08:11:54
Dominic
Hallo,
ich benötige Eure Hilfe!
Wie kann ich zum Beispiel aus der Zelle A1 mit dem Zellinhalt =2,5*1,1*2,83 die verschiedenen Werte auslesen? Die Werte variieren 2,22*2,2 usw. Eindeutig ist das "*" Zeichen. Ich möchte die einzelne Werte in ein Userform einlesen.
Ich freue mich schon auf Eure Hilfe.
Danke.
Gruß
Dome

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: bestimmte Teile einer Formel auslesen
22.08.2007 08:59:22
Wuxinese
Hallo Dome,
ich habe mal folgenden Code gebastelt, der die Formel aus A1 'auseinandernimmt':
Dim lastfound As Integer
Dim formel As String
formel = ActiveSheet.Cells(1, 1).Formula
Do
lastfound = InStrRev(formel, "*")
If lastfound 0 Then
MsgBox Right(formel, Len(formel) - lastfound)
formel = Left(formel, lastfound - 1)
Else
MsgBox Right(formel, Len(formel) - 1)
Exit Do
End If
Loop
Ich denke, der kommt Deinem Anliegen ziemlich nahe. Lass mich wissen, obs 'passt'!
Gruss
Rainer

Anzeige
AW: bestimmte Teile einer Formel auslesen
22.08.2007 09:03:35
alexvb
Hallo Dome,
in VBA hat das Objekt "Range" (also ein Zellbezug) auch die Eigenschaft "Formula". Aus dieser solltest Du mit den Funktionen "InStr" und "Len" die einzelnen Werte auslesen können.
Gruß,
/Alex vB

AW: bestimmte Teile einer Formel auslesen
22.08.2007 09:12:00
Renee
Hi Dominic,
Noch ein Vorschlag: 

Sub XausFormel()
Const sZelle = "A1"     '! Achtung nur eine einzelne Zelle!
Const sTrennZ = "*"      '! Elemente nach diesem Zeichen Trennen
Dim ix As Integer
Dim iCnt As Integer
Dim sThisFormula As String
Dim sMsg As String
sThisFormula = ActiveSheet.Range(sZelle).Formula & sTrennZ
ix = 2
Do While InStr(ix, sThisFormula, sTrennZ) > 0
iCnt = iCnt + 1
sMsg = sMsg & "Wert " & iCnt & ": " & Str(Val(Mid(sThisFormula, ix))) & vbCrLf
ix = InStr(ix, sThisFormula, sTrennZ) + 1
Loop
MsgBox sMsg
End Sub


Greetz Renee

Anzeige
AW: bestimmte Teile einer Formel auslesen
22.08.2007 09:19:00
Chaos
Servus Dominic,
macht das, was du willst:

Sub test()
Dim s As String, t As String, w As String, w1 As String, t1 As String
Dim zw As Double, zwHinten As Double, zw1 As Double, zwHinten1 As Double
s = Range("A1").Formula ' z.B.:= 3,2*4,32*2,22
w = Len(s)
t = InStrRev(s, "*")
zw = t - 1
zwHinten = w - t
Range("A3").Value = Right(s, zwHinten) ' Das ist der hintere Teil = 2,22
w1 = Len(Left(s, zw))
t1 = InStrRev(Left(s, zw), "*")
zw1 = t1 - 1
Range("A4").Value = Left(s, zw1) ' Das ist der vordere Teil vom Gesamten = 3,2
zwHinten1 = w1 - t1
Range("A5").Value = Right(Left(s, zw), zwHinten1) ' Das der mittlere Teil = 4,32
End Sub


Liest aus der Formel in A1 die jeweiligen Einzelfaktoren aus.
Gruß
Chaos

Anzeige
AW: bestimmte Teile einer Formel auslesen
22.08.2007 10:09:00
Dominic
Vielen Dank.
Ich werde Eure Ratschläge gleich mal ausprobieren!
DANKE!
Gruß
Dome
;

Forumthreads zu verwandten Themen

Txt - Text suchen und ersetzen VBA
Stevie

Hie zusammen,
ich hoffe mir kann hier jemand helfen, ich habe einen Code aus dem Internet (oder sogar von der Seite hier) und den muss ich leider ein bisschen anpassen. Der Code sucht in einer Textdatei nach einer bestimmten Zeichenfolge STxtA und ersetzt diesen Text durch STxtB. Soweit so...
30.10.2008 13:09:28
Thread-ID: 1020573
3 Beiträge
Anzeige
Formelteile in einer Datei ersetzen
Hans

Hallo Leute.
Ich habe ein Problem.
Ich möchte in einer Datei alle Formelteile ersetzen.
Das Problem mit der Excel Funktion "Bearbeiten - ersetzen" und dann dort "Suchen in: Formel" ist das er auf Teile ersetzt.
Also wenn ich Wert1 in Test ändere, ändert Excel auch Wert11 in Te...
20.11.2008 19:07:12
Thread-ID: 1026521
8 Beiträge
Suchen und >Ersetzen mit VBA macht komische Sachen
SteffenS

Hallo Zusammen,
mit dem Code:
WSZ.Cells.Replace What:="""", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
ersetze ich " in allen Zellen.
Mache ich dies manuell so wird aus:
1348,52102" --> richtig 1348,...
11.01.2009 18:08:38
Thread-ID: 1038681
3 Beiträge
Suchen und ersetzen
zink

Hallo,
in einer Spalte stehen untereinander mehrere Hundert Namenseinträge nach dem Muster:
>
Name und Vorname also in einer Zelle, getrennt durch ein Komma.
Ich möchte jetzt, dass nur der 1. Buchstabe des Vornamens mit einem Abkürzungspunkt in der Zelle steht, also
><...
26.01.2009 08:32:40
Thread-ID: 1043740
6 Beiträge
Anzeige
Suchen und Ersetzen durch
pitt_111@gmx.de

Hallo Excel Gemeinde,
brauche wieder Eure EErfahrung und Hilfe.
In angehängter Tabelle soll nach Werten gesucht werden und diese
sollen entsprechend durch 1 ersetzt werden.
https://www.herber.de/bbs/user/59198.xls
Das suchen und ersetzen soll sich aber nur auf das betreffen...
07.02.2009 09:50:37
Thread-ID: 1047999
2 Beiträge
Durchsuchen und in Zelle daneben ersetzen
Holger

Hallo,
irgendwie komme ich nicht weiter. Ich möchte mit einem Makro die Spalte "A1:A5000" nach der
Zeichenfolge "SV" durchsuchen und überall wo "SV" gefunden wird in der Zelle rechts daneben
(also in der gleiche Zeile in Spalte "B") das Datum "01.01.2008" eintragen.
Ein Ansat...
26.02.2009 12:25:07
Thread-ID: 1054317
4 Beiträge
Suchen und ersetzen ohne Neuanfang bei Zeile 1
Stefan

Hallo liebes Froum,
ich habe eine Spalte mit Werten, ca. 200 Zeilen. Die Werte bestehen aus 3ziffrigen Zahlen (010,011,100,271...). Diese Zahlen sollen durch andere 3ziffrige Zahlen ersetzt werden (z.B. 010 durch 001, 011 durch 004, 100 durch 200, 271 durch 355,...). Nun habe ich das Proble...
03.03.2009 11:26:38
Thread-ID: 1055879
19 Beiträge
Suchen und ersetzen per Makro...?
Horst

Hey !
Ich möchte Tabellenblätter kopieren und während oder nach dem kopieren des Tabellenblattes im kopierten Tabellenblatt eine Volltextsuche mit Textersetzung durchführen.
Kann mir jemand dazu einen Tipp geben?
Und gibt es zur Suche/Ersetzen eine bessere Variant als die aus der Ma...
02.04.2009 11:43:43
Thread-ID: 1066267
3 Beiträge
Teil einer Formel in Zelle einlesen
Bernd

Hallo Freaks,
ich bastle nun schon geraume Zeit an einem Code, der mir in eine Zelle den Teil einer Formel (Kostenstellennamen) aus einer anderen Zelle schreibt.
Der nachstehene Code (von einem ausgeschiedenen Kollegen) ersetzt einen KST-Namen in einem Link mit einem neuen KST-Namen aus...
13.04.2009 12:55:24
Thread-ID: 1068432
6 Beiträge
VBA-Code für "Suchen in: Formeln"
Wolfango

Hallo Experten,
ich habe folgenden VBA-Code:
Sub nach_DokNr_suchen() Columns("A:A").Select Application.Dialogs(xlDialogFormulaFind).Show End Sub
Leider habe ich von VBA keine Ahnung!!!
Wie muss ich diesen Code ergänzen bzw. erweitern, dass im erscheinenden "Suchen-Dialogfeld...
20.04.2009 14:58:48
Thread-ID: 1069849
5 Beiträge
VBA Suchen/Ersetzen inkl. Anzahl der Ersetzungen
Randolf

Hallo Excel-Gemeinde,
ich habe folgende Aufgabenstellung? Mit der normalen Suchen & Ersetzen-Funktion wird im Anschluss die Anzahl der Ersetzungen mitgeteilt. So weit so gut. Ich habe jetzt das Makro aufgezeichnet und es normal ablaufen lassen. Aber es kommt keine Anzahl der Ersetzungen...
14.05.2009 11:54:34
Thread-ID: 1075089
7 Beiträge
Formel für Zahlen suchen und kopieren
Song

Hallo zusammen,
wäre super wenn mir hier jemand helfen kann. Suche eine Formel, die alle 6stelligen Zahlen sucht und dann in ein neues Tabellenblatt kopiert.
Hoffe es kann mir jemand helfen. Ist nämlich recht wichtig für mich.
Danke!
15.05.2009 11:53:40
Thread-ID: 1075397
13 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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