Office: (Office 2007) text und zahlen aus zelle auslesen

hallo liebe community

ich hab schon im forum rumgestöbert und habe schon einen teilerfolg erreicht.
zu meinem problem. ich habe eine excel-tabelle wo ich daten aus dem internet hineinkopiere. ein kleines beispiel sieht man im anhang in spalte A. nun möchte ich das z.b. das wort Äpfel in zelle B1 steht und die zahl in zelle C1. die zahl konnte ich schon mit hilfe folgender formel auslesen.

{=TEIL(A1;VERGLEICH(WAHR;ISTZAHL(TEIL(A1;SPALTE(1:1);1)*1);0);LÄNGE(A1))*1}

wie müsste die formel aussehen um das jeweilige wort auszulesen? oder gibts andere möglichkeiten mit der ich es eleganter lösen könnte?

ich bin für jede hilfe und jeden tip dankbar..

mfg Jörg

:)

 

Hallo

Da kann man sich mjit Teil(), Links(), Rechts(), Wechseln() u.ähnlichem die Ohren brechen, oder einfach ein kleines Makro nutzen.

Packe diese zwei Codes mal in ein Modul:
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Public Function NurBuchstaben(zelle)
Dim Regex As Object
Set Regex = CreateObject("Vbscript.Regexp")
With Regex
.Pattern = "[^a-zA-ZäöüßÄÖÜ]"
.Global = True
NurBuchstaben = .Replace(zelle, "")
End With
Set Regex = Nothing
End Function

Public Function NurZahlen(zelle)
Dim Regex As Object
Set Regex = CreateObject("Vbscript.Regexp")
With Regex
.Pattern = "\D"
.Global = True
NurZahlen = .Replace(zelle, "")
End With
Set Regex = Nothing
End Function


Der Aufruf geht dann ganz einfach:
Tabelle1

	A	B	C
1	Äpfel123456.789	Äpfel	123456789
2	Bananen.456.908.1234	Bananen	4569081234
3

Zelle	Formel
B1	=NurBuchstaben(A1)
C1	=NurZahlen(A1)

Excel Tabellen im Web darstellen >>

 

Hi Jörg,
Deine Formel ist doch gut. Und entsprechent bekommst Du den ersten Teil einfach mit:
Code:

Teste mal ob ich recht habe.

 

erstmal ein DICKES danke an ransi und Uwe für die schnellen antworten.

beide sachen funktionieren einwandfrei. und das schöne ist, dass ich jetzt zwei lösungsvorschläge habe.

ihr seid klasse, danke!!!

gruß Jörg

 

sorry für den doppelpost. kann man hier seine beiträge formatieren?

eine frage hätte ich doch noch zu dem code

Code:

dieses "\D" löscht ja alles was keine ziffer ist, richtig!? kann man da irgendwie ne ausnahme einfügen, sodass auch zahlen mit max. 2 nachkommastellen richtig angezeigt werden?
oder soll ich das aus dem ersten codebeispiel nehmen nur ohne das ^?

so
Code:

statt so
Code:

?

gruß Jörg

 

HAllo

Das geht ganz sicher.
Hast du noch einige Beispiele was noch auftreten kann ?
Vorher-->nachher ?

Als Ansatz erstmal dies:
Löscht alles was kein Komma und keine Zahl ist.
Public Function NurZahlen(zelle)
Dim Regex As Object
Set Regex = CreateObject("Vbscript.Regexp")
With Regex
.Pattern = "[^0-9,]"
.Global = True
NurZahlen = .Replace(zelle, "")
End With
Set Regex = Nothing
End Function


ransi

 

hallo

danke für deine antwort. is natürlich genau das was ich gesucht habe *Smilie

hatte mich in die sache schon ein bisschen eingelesen aber irgendwie hab ich zu komppliziert gedacht. meine tabelle sieht folgendermaßen aus (siehe bild). mit deinen ersten codes konnte ich zelle A1 auslesen. nun war das problem, dass in B1 dieses "," war. erst hab ich es mit deinem "zurZahlen" code versucht um dann das komma wieder einzufügen. bei pattern hatte ich "(....$)" geschrieben und wollte bei Replace nen "," setzen. hatte aber nicht den erwünschten erfolg gebracht. dann hatte ich überlegt einfach nur das "¢τ " zeichen zu löschen. das "cent-zeichen" ging problemlos aber bei dem "tau-zeichen" kam nur nen "?". meine jetzige lösung sah aus, das ich dieses zeichen als hexadezimalwert angebe (\U03C4).

wenn ich mir deine lösung ansehe is es mir schon fast peinlich, dass ich darauf nicht gekommen bin...

jedenfalls klappt jetzt alles und mir bleibt nichts anderes übrig außer danke zu sagen; "DANKE"

eine frage hab ich aber doch noch *Smilie. ich kopiere die daten ja aus dem internet. diese werden in excel als text abgespeichert. auch wenn ich die zahlen "rauslöse" bleiben diese als text gespeichert. ich kann nix formatieren etc. um das problem zu lösen multipliziere ich diese zahl *1. nun meine frage. kann man dieses "*1" direkt im code angeben oder muss ich es hinter die formel schreiben (=NurZahlen(A1)*1) ??

gruß und schönen sonntag noch..

Jörg

 

HAllo Jörg

Das kann man auch im Code hinterlegen.
Schon in der ersten Zeile ;-)

' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Public Function NurZahlen(zelle) As Double
Dim Regex As Object
Set Regex = CreateObject("Vbscript.Regexp")
With Regex
.Pattern = "[^0-9,]"
.Global = True
NurZahlen = .Replace(zelle, "")
End With
Set Regex = Nothing
End Function


Die Function liefert allerdings einen Fehlerwert wenn 2 "," in der Zelle vorkommen.
ransi

 

dank dir für die superschnelle antwort.

funktioniert wunderbar und ich kann mir das *1 hinter der formel sparen.

und da ich es nur für zelle B1 nehme (die "¢τ" beträge) kommt da kein zweites "," vor. von daher gibts da keine probleme *Smilie mit dem "double" muss ich mir merken.

der sonntag is gerettet und ich bin happy *Smilie

dank dir nochmal vielmals.

gruß Jörg

 

Hallo,
mit vierjähriger Verspätung ein kleiner Nachtrag von mir:
wenn man in der ersten Function die Schablone (Pattern) um ein Leerzeichen erweitert, werden auch eventuelle LEERZEICHEN mit übernommen, also
Code:

So kann man dann auch grüne Äpfel und überreife Tomaten weiterverarbeiten.

Grüßle

Micha

 

Hallo liebe Gemeinschaft,

ich habe ein recht gleich gestelltes Problem:

In einer Zelle "H9" steht ein Text wie z.B.:

- SiH in der BA, dass
(X1.Y.Z) - das Tragen XXXXXXXXXXXX.
(X2.Y.Z) - Warnu

Dieser Text zeichnet sich durch die hier rot dargestellten Textpassagen aus. Die Werte in der Klammer sollen nun in eine ander Zelle ausgelesen werden.

D.h. in das Ergebniss der Formel soll z.B.: "X1.Y.Z
X2.Y.Z" sein

Nun kann so wie in dem Beispiel jedoch dieser Klammerausdruck öfters stehen das bedeutet es soll auch der zweite Klammerwert ausgelesen werden.

Bitte um Hilfestellung

 

Hi,

das liest Dir mal den Klammerinhalt aus.
Was du mit zweiten Klammern meinst erschließt sich mir nicht aus deinem Beispiel... meinst du das so??
Code:

diesen Code in ein Modul einfügen
am Blatt =klammern1(deine_Zelle)

oder =klammer2(Deine_Zelle)

 

Danke mal für die Antwort und die Lösung bzw. Teillösung. Ja das mit der zweiten oder dritten oder n-ten Klammer haut noch nicht hin.

zB.:

das ist der Inhalt der Zelle wo gesucht werden soll:

- SiH in der BA, dass
(X.Y.Z) - die TEXT TEXT TEXT.
(X.Y.Z) - der TEXT TEXT TEXT.
(X.Y.Z) - eine TEXT TEXT TEXT.

Das Ergebniss sollte sein:

X.Y.Z
X.Y.Z
X.Y.Z

X,Y,Z sind natürlich nur Platzhalter

 

Hallo

Eine zusätzliche Aufgabe hätte ich noch. In einer andern Zelle soll der Text stehen jedoch ohne Klammer. In dem Text können schon Klammerausdrücke vorkommen jedoch keine welche ") - " diese Zeichenfolge haben

also:
- die TEXT TEXT TEXT.
- der TEXT TEXT (Klammertext) TEXT.
- eine TEXT TEXT TEXT.

 

Hi,

erstelle doch bitte eine Beispieldatei in welcher erkennbar ist was du erreichen willst, das mit mehreren Klammern müsste doch so gehen?