Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1536to1540
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
Inhaltsverzeichnis

Teil aus Dateinamen an Variable

Teil aus Dateinamen an Variable
06.02.2017 12:48:08
earlycon
Hallo zusammen,
ich habe folgendes Problemchen:
Der Dateiname einer Datei lautet z.B. "099-17 - Auftrag xxx". Ich benötige nun den Jahrgang (hier die 17) in einer Variablen. Da die Auftragsnummer vorne 2-stelling bis 4-stellig sein kann bekomme ich es in vba nicht hin, ab dem ersten Bindestrich zu suchen und die folgenden 2 Ziffern einer Variablen zu übergeben.
Könnte mir bitte jemand behilflich sein ?
Besten Dank und viele Grüße
Stefan

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Teil aus Dateinamen an Variable
06.02.2017 12:55:38
AlterDresdner
Hallo Stefan,
mit
Nr = Val(Mid("099-17 - Auftrag xxx", InStr(1, a, "-") + 1, 2))

bekommst Du die Zahl, ohne Val den Text.
Gruß der Martin
AW: Teil aus Dateinamen an Variable
06.02.2017 12:57:40
Daniel
Hi
probiers mal mit :
Jahrgang = Split(Dateiname, "-")(1)
um das ganze dann noch in eine Zahl zu wandeln:
Jahrgang = CLng(Trim(Split(Dateiname, "-")(1)))

Gruß Daniel
AW: Teil aus Dateinamen an Variable
06.02.2017 13:01:56
Anton
Hallo Stefan,
hier auch noch ein Vorschlag:
Sub NummerAusTeil()
Dim wksBlatt As Worksheet
Dim intPos1 As Integer
Dim intPos2 As Integer
Dim strTeil As String
Set wksBlatt = ThisWorkbook.Worksheets("Tabelle3")
With wksBlatt
intPos1 = InStr(1, .Range("A1"), "-") + 1
intPos2 = InStr(5, .Range("A1"), "-") - intPos1
strTeil = Mid(.Range("A1"), intPos1, intPos2)
End With
End Sub
VG Anton
Anzeige
AW: Teil aus Dateinamen an Variable
06.02.2017 14:08:17
earlycon
Oh Mann, Ihr seid die Besten !
Herzlichen Dank an alle für die schnelle Hilfe.
Viele Grüße
Stefan

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige