Office: Preis finden

Hallo,
ich brauche mal wieder einen Rat.

Tips wie man aus einem Text eine Zahl heraus filtern kann gibt es unzählige im Net. Leider funktioniert bei mir keiner davon.
Vielleicht hat hier jemand einen Tip für mich wie ich aus einer Zelle die Text und Zahlen enthält, die Zahlen löschen und in die nachbarspalte schreiben kann. Macro oder VBA-Code währe super.

Die Zahlen stehen zwar immer am Ende, können aber sowohl im Format ###,## als auch im Format #,# vorliegen.

 

Hi Thor,

Code:

Sub Extrahieren()
    Dim inZeichen As Integer
    For inZeichen = 1 To Len(Range("D1"))
        If Asc(Mid(Range("D1"), inZeichen, 1)) > 47 And Asc(Mid(Range("D1"), inZeichen, 1)) < 58 Then
            Range("E1") = Mid(Range("D1"), inZeichen) * 1
            Exit For
        End If
    Next inZeichen
End Sub

Bis später,
Karin

 

Hallo,

es funktioniert auch ohne VBA:

	A	B	C	D
5
6		Exl121150	Exl	121150
7		Hybrid12,30	Hybrid	12,30
8

Zelle	Formel
C6	{=LINKS(B6;LÄNGE(B6)-ANZAHL(RECHTS(B6;SPALTE($1:$1))*1))}
D6	{=RECHTS(B6;ANZAHL(RECHTS(B6;SPALTE($1:$1))*1))}
C7	{=LINKS(B7;LÄNGE(B7)-ANZAHL(RECHTS(B7;SPALTE($1:$1))*1))}
D7	{=RECHTS(B7;ANZAHL(RECHTS(B7;SPALTE($1:$1))*1))}

<table><tr><td>Achtung, Matrixformel enthalten!</td></tr><tr><td><span>Die geschweiften Klammern{} werden </span><span>nicht</span><span> eingegeben.</span></td></tr><tr><td><span>Verlassen Sie den Zelleneditor mit </span><span>Strg+Shift + Enter</span><span>, statt Enter alleine.</span></td></tr></table>[/parsehtml]

 

Hallo Exl121150
formel nutzt mir nichts da das ergebnis weiter kopiert und verarbeitet wird. Dabei kommt Chaos raus wenn ich es über Formeln mache. Das war mein ursprünglicher Versuch.

Hallo Karin
soweit OK.
Jetzt müsste das ganze noch mit der Range A1:A500 funktionieren. Dort liegen die Daten bzw. sie werden nach dem scannen dort hin kopiert. So wie der code ist bleibt er bei der ersten Zeile stehen.
außerdem währe es schön wenn der ermittelte Wert aus der Textzelle entfernt werden würde, wemm möglich inklusive aller Leerstellen die zwischen dem Text und der Zahlt stehen.
Sorry wenn ich nerve aber VBA und ich, wir werden wohl nie ein Paar werden.

 

Hi Thor,

der Code war auch nur für eine Zelle ausgelegt, da aus deiner Fragestellung nicht hervorging, dass es sich um einen Bereich handelt.

Code:

Sub Extrahieren()
    Dim inZeichen As Integer
    Dim inZeile As Integer
    For inZeile = 1 To 500
        For inZeichen = 1 To Len(Cells(inZeile, 1))
            If Asc(Mid(Cells(inZeile, 1), inZeichen, 1)) > 47 And _
                Asc(Mid(Cells(inZeile, 1), inZeichen, 1)) < 58 Then
                Cells(inZeile, 2) = Mid(Cells(inZeile, 1), inZeichen) * 1
                Cells(inZeile, 1) = Application.Substitute(Application.Substitute(Cells(inZeile, 1), _
                    CStr(Cells(inZeile, 2)), ""), " ", "")
                Exit For
            End If
        Next inZeichen
    Next inZeile
End Sub

Bis später,
Karin

Übrigens: auch ein Formelergebnis kann man in feste Werte umwandeln indem man den Bereich kopiert, dann Bearbeiten -> Inhalte einfügen -> Werte.

 

Hallo Karin,.
sorry dass es so lange gedauert hat.
Nach der ersten Zeile kommt immer eine Fehlermeldung.
Ich hänge eine Testdatei an. Darin ist ein Beispiel für mein Problem.

 

Hi Thor,

es ist immer wichtig, die Aufgabenstellung richtig zu beschreiben - in deinem ersten Post war nicht die Rede davon, dass Zahlen auch zwischendurch auftreten können.

Code:

Private Sub CommandButton1_Click()
    Dim inZeichen As Integer
    Dim inZeile As Integer
    For inZeile = 1 To 19
        Cells(inZeile, 2) = Mid(Cells(inZeile, 1), InStrRev(Cells(inZeile, 1), " ") + 1) * 1
        Cells(inZeile, 1) = RTrim(Application.Substitute(Cells(inZeile, 1), _
            CStr(Cells(inZeile, 2)), ""))
    Next inZeile
End Sub

Bis später,
Karin

 

Hi Karin
in dem Beispiel standen die Zahlen hinten. In anderen Fällen stehen auch hhinter den Zahlen noch Buchstaben. Das ist das Problem.

 

Hi Thor,

ich habe nun schon viel Zeit in die Lösung deines Problems investiert, die eigentlich für die Katz war - dein Eröffnungsbeitrag:

Wieviele Zahlen können überhaupt vorkommen? Welche Zahlen sollen denn nun ausgelesen werden - die die zwischendurch stehen oder die die hinten stehen oder alle?

Bis später,
Karin

 

Hi Karin
Die Zahlen können 1-3 Stellen vor dem Komma haben. Da es sich um eingescannte Kassenbons handelt ist dort kein einheitliches Format verfügbar.
Das einziege was immer gleich ist, sind die zwei Stellen hinter dem komma.
LEERSTELLE - 1bis3 Ziffern - KOMMA - 2 Ziffern.
Dahinter kommt bei einigen Firmen noch ein Kennbuchstabe für die Steuerklasse. Wenn das aber zu kompliziert wird, dann muss ich den anders heraus filtern.
Wichtig ist nur dass der Preis heraus gezogen wird und in die Nachbarspalte geschrieben.

 

Hallo!

Wenn das nun schlussendlich eine korrekte und vollständige Beschreibung deines Aufbaus ist, dann teste mal diesen Code:

Code:

Sub Preis()
Dim Z As Range, i As Long, j As Long
For Each Z In Range("A1:A3")
    i = -1: j = -1
    Do: i = i + 1
    Loop Until IsNumeric(Mid(Z, Len(Z) - i, 1))
    Do: j = j + 1
    Loop Until Mid(Z, Len(Z) - j - i, 1) = " "
    Z.Offset(0, 1) = 1 * Mid(Z, Len(Z) - j - i + 1, j)
Next Z
End Sub

 

Hi Thor,

welches Format die auszulesenden Zahlen haben ist völlig nebensächlich (ob 1 oder 2 Stellen nach dem Komma) - das einzig Ausschlaggebende ist zu wissen, wie die gescannten Daten genau aussehen, also was für Kombinationen möglich sind. Da musst du schon mal alle vorkommenden Kombinationen angeben, andernfalls ist keine Hilfe möglich.

Bis später,
Karin

 

Hallo schatzi,
dein Code extrahiert die Zahlen, gibt mir dann aber einen Fehlermeldung raus:
"ungültiger Prozeduraufruf oder ungültiges argument"

Dabei markiert der Debugger folgende Zeile:

Loop Until IsNumeric(Mid(Z, Len(Z) - i, 1))

Hallo Karin,
danke für deine Bemühungen. Präziser kann ich mein Problem leider nicht mehr beschreiben.

 

Hallo!

Du schriebst:

Mein Code sucht (hoffentlich)
1. nach der ersten Zahl/Ziffer von rechts
2. und sucht dann weiter (von rechts) nach der ersten weiteren LEERSTELLE.
so dass
3. der Teil zwischen diesen beiden Fundstellen ausgegeben wird.

Diesen Prozess hat mein Code in all meinen Tests bestanden.
Auch Karin's Code läuft unter den ursprünglichen Voraussetzungen, die sich aber leider von Post zu Post deinerseits verändert/erweitert/erneuert haben, weil sich mit jedem neuerlichem Post deinerseits neue grundsätzliche Vorraussetzungen ergeben haben.

Ganz ehrlich? Das nervt!
Entweder bist du geschickt genug, den Code für deine Ansprüche anzupassen,
oder,
du schilderst dein Problem von Anfang an so, daß du auch entsprechende Hilfe bekommen kannst!

So, ich bin raus und weg und sonstwo...

 

Hallo nochmal!

Möglicherweise könnte das Einfügen dieser Zeile helfen, um Fehler abzufangen, aber dadurch werden eben ALLE Fehler abgefangen;
daher ist es ein zweischneidiges Schwert...