DIR als selbstdefinierte EXCEL Tabellenfunktion

Moin aus Hamburg,

da EXCEL keine eigene Tabellenfunktion hat, möchte ich das über eine selbstdefinierte VBA-Funktion realisieren. Bekannt ist die zu suchende Datei "DatTpl" einschließlich des Verzeichnisses, in dem sie abgelegt ist,

z.B. C:\Daten\Root\DatTpl

Nicht bekannt ist die Namenserweiterung, die ich als Rückgabewert in der EXCEL-Tabelle aber sehen will, etwa in der Form "DatTpl.Erweiterung" oder auch zusammen mit dem vollständigen Pfad. "DatTpl" steht unabhängig von der Erweiterung nur 1x in diesem Verzeichnis.

Bisher habe ich in VBA lediglich die Funktion definiert:
Function DatTplExt
End Function
Dazwischen müsste die VBA Dir-Funktion stehen, die auf "C:\Daten\Root\DatTpl.*" zugreift, also VBA-Stringvariable = Dir("C:\Daten\Root\DatTpl.*"). Da DatTpl nur 1x in dem Vezeichnis steht, sollte die Stringvariable nur den einen gewünschten Wert einschließlich Erweiterung enthalten.

Wie übergebe ich "C:\Daten\Root\DatTpl.*" aus Excel an VBA, und wie übernehme ich den Wert der Stringvariablen aus VBA in EXCEL?

Vielen Dank vorab
Dieter

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Moin Thorsten,

gleich am Anfang meinem ersten Satzes fehlen drei entscheidende Buchstaben, und damit wird der Rest recht schräg. Es muss heißen:

da EXCEL keine eigene DIR Tabellenfunktion hat ...

Sorry.

Was ich nicht gebacken kriege, ist die Übergabe aus der EXCEL-Tabelle an eine selbst definierte Funktion in VBA und daraus die Rückgabe des Ergebnisses an die Excel Tabelle.

Also, ich habe in VBA die Funktion "DatTplExt" definiert. In der Tabelle steht: "=DatTplExt("C:\Daten\Root\DatTpl.*"). Damit landet diese Info in der VBA-Funktion. Dann weiter in VBA sollte "Dir" mit diesem Wert diese eine Datei DatTpl einschließlich ihrer sich von Fall zu Fall ändernden Namenserweiterung liefern, z.B. XYZ = Dir("C: ... "). Aber mit der Rückgabe von XYZ taucht das Problem auf.

Ich hoffe, damit kannst Du jetzt viel mehr anfangen.

Ich bleibe übrigens bei meiner Selbsteinschätzung "VBA gut". Zum Profi fehlt u.a. die Variablenrückgabe aus VBA an eine EXCEL-Tabelle. Habe gerade kein passendes Schmeilie zur Hand.

Vielen Dank vorab
Dieter

Public Function erweiterung(ByVal DateiOhneExt As String) As String Dim strRet As String strRet = Dir(DateiOhneExt & ".*", vbNormal) If strRet > "" Then strRet = Mid(strRet, InStrRev(strRet, ".") + 1) End If erweiterung = strRet End Function Public Sub demo() Dim strExt As String 'Zelle A1: C:\Daten\Root\DatTpl 'Zelle B1: =erweiterung(A1) strExt = erweiterung("D:\Temp\Neues Textdokument") End Sub

Beliebteste Forumthreads (12 Monate)

DIR als selbstdefinierte EXCEL Tabellenfunktion

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

DIR als selbstdefinierte EXCEL Tabellenfunktion

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread