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

Teile von String auslesen

Forumthread: Teile von String auslesen

Teile von String auslesen
08.11.2019 18:55:56
String
Hallo Leute,
nur für die Dateien, die eine Länge von 34 Zeichen ohne Dateiendung haben, möchte ich per VBA die 14, 15, 16 und 17te Stelle auslesen, dann diese mit einem festen Text "2019" und dann anhängend noch die 22, 23 und 24te Stelle von Dateinamen.
Bsp. vorher
DAT-DIN-ST-5-SANI-08-MAR-00-00-2-S.txt
Bsp. nachher
SANI 2019 MAR
Wie mache ich das bitte?
Besten Dank im Voraus!
Gruß;
Sergej
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Teile von String auslesen
08.11.2019 19:05:15
String
"Bsp. vorher: DAT-DIN-ST-5-SANI-08-MAR-00-00-2-S.txt
Bsp. nachher: SANI 2019 MAR"
Vor und nach dem AUSLESEN ?
Wie soll das denn gehen ?
Erläutere uns doch mal deine wirre Beschreibung des Problem so, dass jeder versteht, was du willst.
AW: Teile von String auslesen
08.11.2019 19:30:48
String
Sergei
irgendwas stimmt da nicht.
"DAT-DIN-ST-5-SANI-8-MAR-0-0-2-S.txt"
Hat 35 Zeichen, oder 31 Zeichen ohne Dateiendung. Passt also nicht auf deine Aufgabe. und MAR steht auch nicht an Stelle 22 ....
Ich zeige dir trotzdem eine Lösung, die musst du dann natürlich anpassen. 

Sub StringString()
Dim InputString As String
Dim outputString As String
InputString = "DAT-DIN-ST-5-SANI-8-MAR-0-0-2-S.txt"
'Dateiname ohne Endung
InputString = VBA.Left(InputString, WorksheetFunction.Find(".", InputString) - 1)
If Len(InputString) = 31 Then    'Länge abfragen! Im Beispiel sind es 31 Zeichen, oder doch 34?
outputString = VBA.Mid(InputString, 14, 4)      '14te, 15te, 16te, 17te Stelle
outputString = outputString & " 2019 "          'laut deines Beispiels sind Leerzeichen vor  _
und hinter 2019
outputString = outputString & VBA.Mid(InputString, 21, 3) '21,22,23te Stelle: Soll ja MAR  _
ergeben. Oder doch ab 22?
End If
MsgBox outputString
End Sub

Anzeige
AW: Teile von String auslesen
08.11.2019 21:02:45
String
Hallo Klaus,
vielen Dank. Es funktioniert. Mein Beispiel war etwas falsch. :-)
Gruß,
Sergej
Danke für die RÜ und schönes WE! owT.
08.11.2019 21:05:18
Klaus
.
=TEIL(A1;14;4)&" 2019 "&TEIL(A1;22;3)
09.11.2019 09:23:11
lupo1
Anzeige
AW: =TEIL(A1;14;4)&" 2019 "&TEIL(A1;22;3)
10.11.2019 18:31:47
Klaus
Lupo, er schrieb doch "per VBA". Ausserdem hast du vergessen, auf Länge = 34 Zeichen zu prüfen und eventuelle Dateiendungen abzuschneiden.
LG,
Klaus
nun ja ...
10.11.2019 18:48:02
lupo1
... alle Excel-Formeln gehen auch in VBA. In diesem Fall sogar auch nativ mit Format() statt TEXT().
Mit Länge habe ich es tatsächlich überlesen, aber =WENN(LÄNGE(A1)=34;...;...) ist jetzt auch nicht soooo schwierig.
Anzeige
;

Forumthreads zu verwandten Themen

Teile von Zahlen auslesen und einfügen
Zahlen

Hallo Leute,
ich habe ein Problem mit Zahlenformaten.
In meiner Tabelle steht der Text '4917234598' (natürlich viele solcher Zahlen untereinander.
Jetzt möchte ich, daß diese Zahl (später eine ganze Spalte) über Makro so aufbereitet wird, daß aus '4917234598' 017234598 wird.
08.08.2008 22:57:00
Thread-ID: 1000426
21 Beiträge
HexToDez-Formel als BVA - Gegenteil von HEX(Zahl)
HEX(Zahl)

Hallo liebe Excelianer,
wie heißt die VBA-Funktion analog zur Excel-Formel "HexToDez", also dem Gegenteil der VBA-Funktion "Hex(Zahl)"? Ich habe das Forum durchsucht, bin aber nur auf eine 17-zeilige "Public Function HexToDez(tHex As String) As Long" gestoßen.
Da mein Makro stundenlang...
26.08.2008 16:24:00
Thread-ID: 1004855
3 Beiträge
Anzeige
Letzte Stelle einer Zahl mittels VBA in 0 umwand.
Josef

Guten Morgen!
Ich habe in der Spalte A in einem Arbeitsblatt eine Menge siebenstelliger Zahlen, am Schluß mit einer Prüfziffer versehen, stehen. Ich möchte nun, wenn möglich, mittels VBA immer die letzte Zahl in eine 0 umwandeln.
Wie würde hier bitte eine VBA Lösung lauten?
Danke
10.04.2009 06:26:04
Thread-ID: 1068138
12 Beiträge
jede zweite Zelle in Spalte durch Doppelklick mark
mike49

Hallo,
wie kann man das lösen?
Ich möchte in meinem Spaltenbereich A13:A145 erreichen, dass durch Doppelklick ein "X" in die Zelle gesetzt wird und bei erneutem Doppelklick wieder verschwindet. Dies soll aber nur in jeder zweiten Zelle möglich sein. Also in A13, A15, A17 usw. bis einsch...
02.05.2009 13:05:13
Thread-ID: 1072411
6 Beiträge
Automatisches Auslesen von Teilnehmerlisten
Teilnehmerlisten

Hallo,
nachdem mir hier so nett, schnell und kompetent geholfen wurde, traue ich mich mit meiner nächsten Frage an den Start und hoffe das es für mein Problem auch eine Lösung gibt.
Ich bekomme Teilnehmerlisten in denen Teilnehmer und Kurse bunt gemixt sind wie in der Beispiel-Datei zu...
26.08.2009 17:19:14
Thread-ID: 1098835
4 Beiträge
Bei IF(Left auf Formel nicht auch Wert abstellen
Joachim

Hallo,
ich möchte mich bei der Excel-Left(A1;1)-Funktion - ohne VBA - auf den wahren Inhalt einer Zelle beziehen (bspw. =A1; =60+60; 52) und nicht auf den Wert der mir angezeigt wird.
Gibt es dafür einen Befehl?
Dank und Gruß aus Berlin, Joachim
11.10.2009 16:08:47
Thread-ID: 1108912
3 Beiträge
erstellen einer Zahlungsübersicht
Lehmann

Hallo,
befasse mich gerade zum ersten Mal mit Excel und versuche eine Tabelle mit entsprechender Zahlungsübersicht und verschiedenen Fälligkeiten zu erstellen.
Posten 1, 100€, Beginn am 1.1.2000 und alle 3 Monate fällig
Posten 2, 75€, Beginn am 1.8.2009 und monatlich fällig
Pos...
24.01.2010 18:57:15
Thread-ID: 1132508
15 Beiträge
Anzeige
Wenn-Formel in Abh. von 1. Zeichen in Zelle
1.

Hallo zusammen,
kennt jemand eine Wenn-Funktion die das erste Zeichen einer Zelle bewertert?
Sachverhalt:
A1: 0123423; die erste Ziffer ist eine Null
A2: 1123423; die erste Ziffer ist keine Null
Der Zellinhalt (A1 und A2) stellt Filialnummern dar, die je nachdem ob vorne ei...
17.02.2010 14:13:20
Thread-ID: 1139231
3 Beiträge
Suche eine Excelfunktion "suchen von rechts"
rechts"

Hallo,
ich suche eine Lösung für das in der Anlage beschriebene Problem.
Link: https://www.herber.de/bbs/user/69992.xls
Hoffentlich kann mir da jemand weiterhelfen.
Vielen Dank
Christian
10.06.2010 14:49:22
Thread-ID: 1161265
6 Beiträge
Freistellen einer Zahl
Stefan

Hallo,
ich habe viele Zahlen, die nach der füpnften Stellen mit einem Minus weiter gehen, also z.B. 12467-r1/f6
Mit welcher Funktion kann ich die 5-stellige Zahl freistellen, also so dass ich im Ergebnis erhalte: 12467,
Danke und liebe Grüße
Stefan
15.07.2010 17:35:35
Thread-ID: 1167339
6 Beiträge
finden von rechts
rechts

Hallo,
ich bräuchte die Funktion finden beginnend von rechts (Standard ist von links). Wie müsste da die Formel aussehen. Geht das?
Danke für eure Hilfe.
Gruß Joni
03.11.2010 09:49:51
Thread-ID: 1184952
10 Beiträge
Nur jede zweite Spalte beschreiben
Arwin

Hallo zusammen,
Hast ihr eine Lösung wenn nur jede zweite Spalte beschrieben werden soll, d.h.
Also Bsp:
Tabellenblatt1
A1= 10; B1=20; C1=30; D1=40; E1=50; F1=60
Tabellenblatt2
A1=10; C1=20; E1=30; G1=40
B1=Leer; D1=Leer; F1=Leer;
d.h. auf Tabellenblatt2 wird nur...
24.05.2011 10:41:36
Thread-ID: 1215741
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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