Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
384to388
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
384to388
384to388
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Teil eines Strings aussondern, Teil 3 :((((

Teil eines Strings aussondern, Teil 3 :((((
18.02.2004 12:55:07
Alexej
Hallo Forum, ich bins mal wieder mit meinen Teilstrings :(
Mit hilfe von Joahim konnte ich wunderbar das Problem loesen, indem ich diese Formel benutzt habe:
=mid(C2;FIND("inventory";C2)+10;len(C2)-(FIND("inventory";C2)+8)-4)
so konnte ich aus den Strings:
c:\text\noch etwas text\inventory-india.xls
c:\ein weiterer ordner\Inventory-indonesia.xls
wunderbar die Laenderbezeichnungen rausfiltern.
Nun habe ich aber das Problem, dass die Strings nicht Inventory vor der Laenderbezeichnung enthalten. Es gibt naehmlich drei verschiedene Bezeichnungen:
1. c:\irgendeinordner\inventory-russia.xls (das kann ich ja wunderbar mit Hilfe der Formel rausfiltern)
2. c:\nocheinordner\LRM_2003-russia.xls
3. c:\einweitererordner\RST_2003-russia.xls
Ich habe versucht eine verschachtelte If Funktion hinzukriegen, hat aber nicht funktioniert :((
Weiss jemand, wie ich dieses Problem loesen kann?
Viele Gruesse,
Alexej

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Teil eines Strings aussondern, Teil 3 :((((
18.02.2004 13:05:35
Alex K.
Hallo Alexej,
probiere mal diese Formel:

=MID(C2,SEARCH("-",C2,1)+1,SEARCH(".xls",C2,1)-SEARCH("-",C2,1)-1)

Funktioniert aber nur, wenn der Dateinname in der Form
pfad\pretext-land.xls vorliegt. Also der Bindestrich und ".xls" sind notwendig. Wenn im Pfad ein Bindestrich vorkommt, funktioniert das Ganze nicht.
Hi Alex
18.02.2004 13:10:51
Alexej
Das habe ich vergessen zu erwaehnen, man sollte sich nicht auf den Bindestrich beziehen sollen, weil auch andere Trennzeichen vorkommen, wie z.B. _ oder ' und und und...
Viele Gruesse,
Alexej
Trennung ist nötig
18.02.2004 13:12:34
Alex K.
Hallo Alexej,
das ist ja nett. Nur ein Kriterium benötigt man schon, dass die Bezeichnung vom Land trennt. Kann man also grundsätzlich davon ausgehen, dass durch ein Sonderzeichen das Land von der Bezeichnung getrennt ist?
Anzeige
Richtig
18.02.2004 13:17:21
Alexej
Es ist immer ein Trennzeichen vorhanden, aber es kann fast jedes beliebige sein...
AW: Richtig
18.02.2004 13:35:25
Alex K.
Hallo Alexej,
in diesem Fall geht es effizient nur über ein Makro. Ich habe dir eine Formel-Funktion erstellt.
Kopiere den nachfolgenden Code im VBA-Editor in ein Modul (Menü Einfüge -> Modul) 

Public Function ExtraktLand(Suchtext As String) As String
Dim i       As Integer
Dim actChr  As String
For i = Len(Suchtext) - 4 To 1 Step -1
actChr = Mid(Suchtext, i, 1)
If Not ((Asc(actChr) >= Asc("a") And Asc(actChr) <= Asc("z")) Or _
(Asc(actChr) >= Asc("A") And Asc(actChr) <= Asc("Z")) Or _
(Asc(actChr) >= Asc("ä") And Asc(actChr) <= Asc("ü")) Or _
(Asc(actChr) >= Asc("Ä") And Asc(actChr) <= Asc("Ü"))) Then
ExtraktLand = Mid(Suchtext, i + 1, Len(Suchtext) - i - 4)
Exit Function
End If
Next i
ExtraktLand = "Kein Trennzeichen gefunden"
End Function
.
In deiner Tabelle kannst du nun über
=ExtraktLand(C3)
das Land eintragen lassen.
Anzeige
Hmmm....
18.02.2004 13:46:53
Alexej
Danke dir Alex,
Leider bin ich nicht so fit in VBA...
Muss ich jedesmal in dem Makro anstatt "Suchtext" den Names des Landes eintragen?
Koenntest du es mir bitte fuer doofe erklaeren?
Der Gesamtstring steht in der Zelle C2, der Teilstring muesste in H2 erscheinen. Jedesmal, wenn sich der String in der Zelle C2 aendert, muss der neue Teilstring in H2 erscheinen.
Wie schaffe ich das?
Viele Gruesse,
Alexej
AW: Hmmm....
18.02.2004 13:56:57
Alex K.
Hallo Alexej,
mein Makro verhält sich wie eine Funktion. Das ist ein sog. benutzerdefinierte Funktion.
Also noch einmal
Lege in deiner Arbeitsmappe ein Modul an. Dazu wie folg vorgehen:
1) Über Menü "Extras -> Visual Basic Editor" den VBA Editor aufrufen
2) Hier über Menü "Einfügen -> Modul" anlegen.
3) Es öffnet sich nun ein Fenster mit der Bezeichnung "... Modul1 (Code)"
4) Hier nun den folgende Code über CopyAndPaste einfügen

Public Function ExtraktLand(Suchtext As String) As String
Dim i       As Integer
Dim actChr  As String
For i = Len(Suchtext) - 4 To 1 Step -1
actChr = Mid(Suchtext, i, 1)
If Not ((Asc(actChr) >= Asc("a") And Asc(actChr) <= Asc("z")) Or _
(Asc(actChr) >= Asc("A") And Asc(actChr) <= Asc("Z")) Or _
(Asc(actChr) >= Asc("ä") And Asc(actChr) <= Asc("ü")) Or _
(Asc(actChr) >= Asc("Ä") And Asc(actChr) <= Asc("Ü"))) Then
ExtraktLand = Mid(Suchtext, i + 1, Len(Suchtext) - i - 4)
Exit Function
End If
Next i
ExtraktLand = "Kein Trennzeichen gefunden"
End Function

So, das wars im VBA Eidtor, nun wieder in Excel auf dein Tabellenblatt welcheseln. Dort kannst du nun in Zelle H2 folgende Formel eingeben:
=ExtraktLand(C2)
Nun wird in H2 das Land aus dem Pfad-Text (Zelle C2) extrahiert. Wenn du den Wert in C2 änderst, ändert sich auch der Wert in H2.
Anzeige
Perfekt!
18.02.2004 14:04:08
Alexej
Danke dir vielmals Alex fuer deine Hilfe und deine Engelsgeduld mit mir :))
Viele Gruesse,
Alexej
Wir haben alle mal angefangen :-) oT
18.02.2004 14:06:22
Alex K.

306 Forumthreads zu ähnlichen Themen

Teile eines Strings auslesen
Joachim

Hi,
wie kann ich denn einen Teil eines Strings auf dem Sheet "data" in der Zelle B10 auslesen. und zwar folgender massen:
Die Einträge könnten so aussehen:
GBm123456
ATU12478
GM123587
Dabei interessieren mich aber nur die Buchstaben, ABER der wahrscheinlich Hauptproblem:...
05.12.2008 09:10:18
Thread-ID: 1030353
6 Beiträge
Anzeige
per VBA Teile einer Zelle formatieren
Steinritz

Hallo!
Ich habe folgendes Problem:
Habe in Excel mit der VERKETTEN Funktion 4 Zellen verkettet.
Im Ergebnis z.B.
Nach Abzug der Gebühr in Höhe von 10,- € ergibt sich ein Gesamtbetrag von 200,- €.
Jetzt möchte ich in dieser Zelle nur den letzen Zahlenwert mit dem Währungssymb...
10.09.2009 18:45:11
Thread-ID: 1101849
3 Beiträge
Leerzeichen innerhalb eines Strings finden
pitmu1@web.de

Hallo zusammen,
wer kann mir sagen, wie man das 2. Leerzeichen von rechts innerhalb eines Strings finden kann.
Möglicherweise ohne VBA.
Danke im voraus
17.09.2009 09:40:42
Thread-ID: 1103455
3 Beiträge
Anzeige
VBA die letzten 4 Zeichen in einem String löschen
andreas

Hallo zusammen,
ich lese die Zelle "k12" als Variable ein und möchte dabei immer die letzten 4 Zeichen löschen
Modellname = Left(("k12"), Len("k12") - 4)
was ist falsch geschrieben?
Danke für die Hilfe
19.02.2010 11:58:31
Thread-ID: 1139731
4 Beiträge
Zeichen in Strings zählen/finden, neue Zeilen !
Holger

Hallo,
Au Backe. Alles geschaffz, nun eine komplette andere Anforderung.
Ich hoffe, ihr könnt mir helfen.
Innerhalb eine Zeile kann es so einen .Value, also String geben:
BB8520,BB8520BLUE,BB8520LAV,BB8520WHITE
Ich möchte zählen, wieviel Kommas es gibt und den String danach...
22.06.2010 15:38:56
Thread-ID: 1163465
12 Beiträge
VBA:verschiebung von Teiltext einer Zelle in ande
Teiltext

Hallo Zusammen,
ich habe ein Proplem und hoffe hier kann mir geholfen werden!
ich habe eine ewig lange Liste mit ca. 500 Einträgen in Spalte B. Spalte A ist nur die Nummerierung dieser Einträge. In Spalte B befinden sich Firmennamen, sowie deren Produkte. Beides ist durch ein Minus abge...
27.01.2011 15:00:27
Thread-ID: 1197647
3 Beiträge
Länge eines gesuchten Teil eines Strings bestimmen
Holger,

Hallo liebes Forum,
langer Titel für mein Problem.
In meinem string SOMMER;HERBST;WINTER kann es auch ein Others geben
z.B SOMMER;HERBST;;WINTER oder SOMMER;HERBST;Others,WINTER.
Others kann s also in verschiedenen Schreibweisen geben (aber es kommt nur einmal vor), daher habe i...
14.02.2011 15:39:42
Thread-ID: 1200725
6 Beiträge
Letzten Teil eines Strings weglassen
Tom

Hallo,
ich hätte noch eine Bitte.
In einer Spalte A habe ich pro Zeile einen Dateipfad in der Form:
Spalte A:
\\192.168.2.11\aaa\bbb\ccc\datei1.doc
\\192.168.2.11\xxx\yyy\zzz\datei2.doc
\\192.168.2.11\xxx\yyy\zzz\datei3.doc
Diese Spalte A möchte ich in dieses Ergebni...
31.12.2013 09:23:35
Thread-ID: 1343773
6 Beiträge

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
5
2
2
2
13
3
11
2
5
5
6
14
6
6
2
1
3
8
8
2
6
1
1
2
4