Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1096to1100
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
1096to1100
1096to1100
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dateiname in Einzelbestandteile umwandeln

Dateiname in Einzelbestandteile umwandeln
Axel
Hallo
ich habe folgendes Problem:
ich speichere eine Datei nach einer ganz bestimmten Syntax:
Projektnummer_Projektname_Dokument_1.xls
Wie kann ich aus dem abgespeicherten Namen (also aus activeworkbook.name) die einzelnen Bestandteile auslesen und als String wider ausgeben? (Speziell Projektnummer, Projektname). Ich habe mich schon mal an der Funktion Split versucht, komme aber nicht weiter.
Kann mir jemand helfen?
Gruß
Axel
SPLIT() ist genau richtig
24.08.2009 17:38:45
NoNet
Hallo Axel,
die Funktion SPLIT() ist dafür genau passend. Es kommt dann nur auf die weitere Verarbeitung an :
Sub DateinameSplitten()
Dim strName, strDateiname As String
strDateiname = "Projektnummer_Projektname_Dokument_1.xls """
strName = Split(strDateiname, "_")
strName(3) = Split(strName(3), ".")(0) 'Nr. nur bis Punkt
MsgBox strName(0) 'Projektnummer
MsgBox strName(1) 'Projektname
MsgBox strName(2) 'Dokumentenname
MsgBox strName(3) 'Nr.
End Sub

Gruß, NoNet
AW: SPLIT() ist genau richtig
25.08.2009 08:48:07
Axel
Hallo NoNet
vielen Dank. Ich habe es versucht, aber es klappt nicht so wie ich will! Es meldet Fehler beim Kompilieren, erwartet Datenfeld.
Hier mein Code
Sub Dateiname_splitten()
Dim strName As String, strDateiname As String, Projektname As String, Projektnummer As String
strDateiname = ActiveWorkbook.name
strName = Split(strDateiname, "_")
Projektname = strName(0)
Projektnummer = strName(1)
MsgBox Projektname
End Sub
Kannst Du mir sagen, was ich falsch mache?
Gruß
Axel
Anzeige
strName NICHT als String deklarieren
25.08.2009 17:07:03
NoNet
Hallo Axel,
Du kennst sicherlich den Film
das galt (zumindest in DIESEM Fall) nicht für mich, sondern leider für Dich ;-)
Ich wusste genau, weshalb ich strName NICHT "as String" deklariert habe, sondern typenlos (also "as Variant") : Mit einer Typendeklaration kannst Du die Variable nicht mehr mit einem ARRAY (Datenfeld) befüllen.
Übernehme den Code also zunächst mal 1:1 wie von mir gepostet und Du wirst "wissen, was Du tust" ;-)
Gruß, NoNet
...immer diese besserwisserischen Schlaumeier,...
25.08.2009 19:06:09
Luc:-?
...NoNet,
ein wahres Kreuz... ;-)
Gruß Luc :-?
Nöööö : abgelehnt ;-)
25.08.2009 19:29:48
NoNet
Hey Luc,
ich wusste es zwar in diesem Fall tatsächlich besser (besserwisser lasse ich daher gerade noch gelten), aber ein Schlaumeier bin ich deshalb trotzdem nicht.
Außerdem kann ich Wörter mit mehr als 12 Buchstaben (zumal aus Deiner "Feder") nicht richtig lesen
Gruß, NoNet
Anzeige
Meinst du denn, ich hätte dich gemeint,...
25.08.2009 21:30:34
Luc:-?
...die Jacke ist dir doch viel zu eng, NoNet,
kein Wunder auch bei der... ;->> *diabolisch*
Übrigens, was heißt hier "Feder", das ist ein grünes Blatt, das meine Frau da als Cursor eingestellt hat... ;-)
Gruß Luc :-?
Kannst gerne "Wampe" schreiben - Bäääh ! ;->
26.08.2009 00:08:09
NoNet
...und das "grüne" da auf Deinem Bildschirm ist das EXCEL-Logo (falls Du das kennst :-D ) und das "Blatt" nennt sich "Sheet"
PS: Ich ziehe ohnehin äußerst selten "Jacken" an- selbst im Winter ist es mir dazu oftmals zu warm...
Salut...
Nee, nee, das ist schon der Cursor,...
26.08.2009 00:32:43
Luc:-?
...NoNet,
und du hast dann offensichtlich den Klimawandel nicht erfunden, aber viell "verbrochen", bei der inneren Hitze... ;-)
Hatte mal 'nen Kollegen, der kam bis weit in den November kurzärmlig und barfuß in Latschen... Und der Oberboss meiner Frau geht gleich stets barfuß...
Gute Nacht! Luc :-?
Anzeige
Alternative mit TYPE
24.08.2009 17:51:50
NoNet
Hallo Axel,
nur als Ergänzung : so funktioniert das auch mit einer TYPE-Deklaration :
VBA-Code:
'TYPE-Deklaration in einem MODUL - ausserhalb eines SUBs !
Type typDateiname
    strPrNr     As String
    strPrName   As String
    strDokName  As String
    strNr       As String
End Type
Sub DateinameSplittenMitType()
    Dim strDateiname As String, strTemp
    Dim strName As typDateiname
    strDateiname = "Projektnummer_Projektname_Dokument_1.xls """
    strTemp = Split(strDateiname, "_")
    strTemp(3) = Split(strTemp(3), ".")(0) 'Nr. nur bis Punkt
    strName.strPrNr = strTemp(0)
    strName.strPrName = strTemp(1)
    strName.strDokName = strTemp(2)
    strName.strNr = strTemp(3)
    MsgBox strName.strPrNr      'Projektnummer
    MsgBox strName.strPrName    'Projektname
    MsgBox strName.strDokName   'Dokumentenname
    MsgBox strName.strNr        'Nr.
End Sub
Gruß, NoNet
Anzeige

309 Forumthreads zu ähnlichen Themen

mehrere Tabellenblätter in ein PDF drucken
Christian

Hallo zusammen,
nachdem ich im Forum keine Info zu meinem Thema gefunden habe:
Ich möchte mehrere Tabellenblätter einer Datei als PDF ausdrucken. Also markiere ich die Tabellenblätter und gehe wie gewohnt ins Menü "Drucken" (PDF über Acrobat 7.0 oder PDF XChange 4.0 Lite).
Leider we...
10.10.2008 09:11:00
Thread-ID: 1015503
2 Beiträge
Anzeige
Umwandeln PIVOT-Tabelle in reguläre Datentabelle
Susi

Hallo liebe Excel-Freunde,
ich habe eine Pivot-Tabelle aus einer umfangreichen Datenmenge erstellt und das Datum nach Quartalen gruppiert. Diese Daten der neuen Pivot-Tabelle möchte ich nun weiterverwenden. Das Problem dabei ist, das ich die Werte der Pivot-Tabelle in eine neue reguläre Dat...
04.02.2009 12:03:00
Thread-ID: 1046976
5 Beiträge
Pdf in Excel umwandeln
Susann

Hallo,
ich habe ein PDF Dokument mit Adressdaten. Diese möchte ich in eine Excelliste wandeln, damit ich einen Serienbrief daraus machen kann.
Ich habe das PDF bereits als Text gespeichert, um es dann mit Tabs getrennt in Excel zu speichern und wieder zu öffnen. Da zeigt er allerdings...
27.04.2009 10:32:12
Thread-ID: 1071297
13 Beiträge
Anzeige
Makro Datei als Kommentar in PDF implementieren
Alex

Hallo zusammen,
ich habe ein ziemlich umfrangreiches excel tool, dieses simuliert einige technische zusammenhänge, erstellt daraus resultierend, angebote, füllt automatisch Förderanträge aus uvm....
Am Ende erhält jeder Kunde eine Vielzahl von PDF Dateien.
Für diese ganzen Dateien h...
01.10.2009 08:01:37
Thread-ID: 1106504
2 Beiträge
Blatt per VBA mit FreePDF als PDF-Datei sichern
Mike

Hallo,
wer kann mir einen Weg oder Beispiel zeigen, wie ich per VBA mit FreePDF ein Worksheet als PDF-Datei speichern kann?
Vielen Dank, Mike.
02.10.2009 00:05:48
Thread-ID: 1106727
5 Beiträge
WORD-Datei in EXCEL-Datei umwandeln
Werner

Excel-Level: befriedigend
Hallo Freunde,
habe mal ein Frage, die sich auf Excel und Word zugleich bezieht: Was muss man tun, um ein mit WORD
erstelltes Manuskript, also eine Word-Datei, in eine Excel-Datei umzuwandeln. Die hier zur Debatte stehende WORD-Datei ist wie
folgt auf...
22.10.2009 14:24:46
Thread-ID: 1111301
7 Beiträge
2 Tabellenblätter in ein PDF nicht möglich
Joachim

Hallo,
ich möchte per VBA das 3. und 4. Tabellenblatt als PDF in EIN Dokument bringen:
Dim n As Integer
Sheets(3).Select
For n = 3 To Sheets.Count
Sheets(n).Select False
Next
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="Adobe PDF", Collate:=True
25.11.2009 08:17:45
Thread-ID: 1119865
6 Beiträge
In PDF konvertieren
Michael

Hallo liebe Excel Freunde,
anbei meine Frage die mir Kopfzerbrechen bereitet. Ich konvertiere eine Excel Datei mit verschiedenen Tabellenblättern in das PDF Format, über Drucken - Adobe PDF. Er konvertiert alles bis auf das letzte Tabellenblatt, dafür erstellt er ein neues PDF-File. Wisst i...
25.11.2009 16:48:17
Thread-ID: 1120037
3 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
1
4
4
12
1
1
4
6
5
2
2
2
5
1
2
1
1
5
5
1
5
1
2
6
2