Tabellenkalkulation

Teilstring bilden

Diskussionsgruppen
Betriebsysteme: Windows 7; WindowsVista; WindowsXP; Linux; BS-Sonstige
Software: Textverarbeitung; Tabellenkalkulation; Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; E-Mail/Outlook; Internet Browser; SW-Sonstige
Hardware: Mainboard/CPU/RAM; Grafikkarten; Peripherie; HW Sonstiges
Netzwerk: DSL; W-Lan; Telekommunikation; NW-Sonstiges
Programmierung: Skripte(PHP,ASP,Perl...); Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke

Frage

Hallo Ihr, Hilfe!!! Ich lasse in VBA mit: [b] Public Function Dateiname() As String Dateiname = ActiveWorkbook.Name End Function[/b] den Namen der momentan geöffneten EXCEL-Datei ermitteln - z.B. "liste.xls" und möchte nun in VBA (nicht in der EXCEL-Tabelle, das kann ich selbst) das ".xls" abschneiden, so dass in diesem Beispiel nur "liste" übrig bleibt. [b] Wer weiß Rat? Danke! peko[/b]

Antwort 1 von qqqqqqq

Schau mal nach den Funktionen InStr() und Left().

Antwort 2 von Massaraksch

Ich würde statt InStr() die Funktion InStrRev() bevorzugen.
(falls im Dateinamen Punkte enthalten sind)

Massaraksch

Antwort 3 von michael123

hi :)

datename=mid$(dateiname,1,len(dateiname)-4)

gruss micha

Antwort 4 von peko

Hallo Ihr 3,

habt mir prima geholfen, hat gut geklappt.

Danke.
peko