Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
25.04.2024 09:31:31
Bild "In Zelle platzieren"
25.04.2024 09:23:47
Spalten in Kreuztabelle hinzufügen/löschen je nach Vorgabe
25.04.2024 08:41:49
VBA: Probleme mit pdftk zum Zusammenfügen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1720to1724
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
1720to1724
1720to1724
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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.

302 Forumthreads zu ähnlichen 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
Anzeige
Maxwert aus jeder zweiten Spalte
Stefan

Hallo,
kennt jemand eine möglichkeit, wie man ohne VBA das Maximum aus den Werten jeder 2. Spalte einer Zeile auslesen kann, ohne die Spalten einzeln aufzuzählen (=max(d2;d4;d6;d8...))?
Gruß Stefan
16.01.2009 14:24:00
Thread-ID: 1040577
5 Beiträge
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
Anzeige
RECHTS/LINKS Formel
DirkR

Hallo zusammen,
ich habe ein kleine Problem mit der RECHTS/LINKS Formel. Ich würde die Formel gerne so anwenden,
dass sich die Formel auf die Formel in der Zelle bezieht und nicht auf den Wert.
Beispiel:
=WENN(A1="TEST";"RICHTIG";"FALSCH")
Hier würde ich jetzt z.B. gerne den...
15.07.2009 15:03:07
Thread-ID: 1088850
11 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
X.te Stelle einer mehrstelligen Zahl ermitteln
Harald

Hallo zusammen,
ich hoffe, dass jemand für mein folgendes Problem eine Lösung weiß.
Welche Funktion muss ich in einer Excelformel nehmen um eine bestimmte Stelle aus einer mehrstelligen Zahl auszulesen.
Beispiele:
123456 - Die 3. Zahl von rechts = Ergebnis = 4
1234567 - Die...
09.10.2009 22:32:24
Thread-ID: 1108683
2 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
Bestimmten Wert aus Zelle auslesen
Reinhard

Hallo liebe Excel-Freaks,
zunächst einmal möchte ich mich vorab bei allen bedanken, die sich meiner Problemstellung annehem.
Für eine Lösung meines Problems ohne VBA oder Makro wäre ich sehr dankbar.
Folgendes Problem:
In Spalte A Zeile 2steht ein Wert Januar z.B. 1.200.000,...
24.11.2009 22:02:31
Thread-ID: 1119831
8 Beiträge
Anzeige

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
20
2
4
11
5
10
3
1
2
7
14
2
2
5
5
9
3
6
4
2
5
7
2
1
5