Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Preis aus Zelleintrag!!

Forumthread: Preis aus Zelleintrag!!

Preis aus Zelleintrag!!
11.02.2008 08:56:00
Baronf
Habe aus einem ERP Daten gezogen und in Excel geöffnet. Der komplette Eintrag ist in in einer Zelle. Ich brauche aus dieser Zelle den Preis separat. Der Preis kann 3 stellig bis 8 stelleig sein. BSP
4711 Fächerräder FR 16530 A120, Bohrung 20,56 ; der Preis beträgt 20,56 ; steht rechts neben dem ersten Leerzeichen von rechts.
Gibt es da eine variable Formel?
Danke
Frederieke

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Preis aus Zelleintrag!!
11.02.2008 09:04:02
M@x
Hi,
wie wärs mit Daten - Textin Spalten,
eventuell sind 2 Durchgänge nötig
Gruss
M@x

AW: Preis aus Zelleintrag!!
11.02.2008 09:13:00
Rudi
Hallo,
=TEIL(A1;FINDEN("|";WECHSELN(A1;" ";"|";LÄNGE(A1)-LÄNGE(WECHSELN(A1;" ";""))))+1;255)*1
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Anzeige
AW: Preis aus Zelleintrag!!
11.02.2008 09:13:00
Peter
Hallo Frederieke,
mit der nachfolgenden Function sollte es gehen:


Option Explicit
Public Function Preis(Eingabe As StringAs Double
Dim iPosition As Integer
   iPosition = InStrRev(Eingabe, " ")
   If iPosition > 0 Then
      Preis = CDbl(Mid(Eingabe, iPosition + 1))
   End If
End Function 


Wenn dein Test in A1 steht: in B1: =Preis(A1)
Gruß Peter

Anzeige
AW: Preis aus Zelleintrag!!
11.02.2008 09:20:00
Peter
Hallo Frederieke,
so funktioniert die Function auch, wenn an der vermuteten Stelle kein Preis steht


Option Explicit
Public Function Preis(Eingabe As StringAs Double
Dim iPosition As Integer
   Eingabe = Trim(Eingabe)
   iPosition = InStrRev(Eingabe, " ")
   If iPosition > 0 Then
      If IsNumeric(Mid(Eingabe, iPosition + 1)) Then
         Preis = CDbl(Mid(Eingabe, iPosition + 1))
      End If
   End If
End Function 


Gruß Peter

Anzeige
Alertnative
11.02.2008 09:37:00
Rudi
Hallo,
mit Matrixformel so:
{=TEIL(A1;MAX(WENN(TEIL(A1;ZEILE(1:100);1)=" ";ZEILE(1:100);""));255)*1}
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige