|
Excel : Mit Excel Dateinamen im Verzeichnis finden
MarkusK am 14.10.2010 um 20:37 Uhr (0)
Hallo Wolfgang,die frage ist eigentlich, woran soll man denn die Datei erkennen?Darf es die erst beste sein?Dann könntest du diese Funtkion verwenden.(Funktion in ein Modul, und dann unter den Benutzerdefinierten Funktionen in Excel)Public Function Erste_Datei(Pfad As String, Endung As String) As StringOn Error GoTo fehler:Dim i As Integeri = InStrRev(Endung, ".")Endung = "*." & Right(Endung, Len(Endung) - i)Pfad = Pfad & IIf(Right(Pfad, 1) = "", "", "")If Dir(Pfad, vbDirectory) "" Then With Application. ...
| | In das Form Excel wechseln |
|
Excel : Mit Excel Dateinamen im Verzeichnis finden
MarkusK am 17.10.2010 um 11:17 Uhr (0)
Pfad = Pfad & IIf(Right(Pfad, 1) = "", "", "")s = Dir(Pfad & Endung, vbDirectory)Do While s "" If GetAttr(Pfad & s) = vbDirectory Then Erster_Ordner = s Exit Do End If s = DirLoop fehler:End FunctionPublic Function Erste_Datei(Pfad As String, Endung As String) As StringOn Error GoTo fehler:Dim i As IntegerDim s As Stringi = InStrRev(Endung, ".")Endung = "*." & Right(Endung, Len(Endung) - i)Pfad = Pfad & IIf(Right(Pfad, 1) = "", "", "")s = Dir(Pfad & Endung)If s "" Then Erste_Datei = sfehler:End ...
| | In das Form Excel wechseln |
|
Excel : Zeilen mit bestimmter Zellenfarbe suchen und ganze Zeile löschen
MarkusK am 17.10.2010 um 17:30 Uhr (0)
Hallo CADdoctor,und in welcher Zeile?Bei mir läuft es eigentlich ohne Fehler.Hast du noch irgendwas angepasst oder modifiziert.Leider kann ich bei mir zu Hause die Datei nicht öffnen, da ich nur Office 2000 habe,und ich den Konvertierer (noch) nicht zum laufen gebracht habeWas ich entdeckt habe, ist, dass bei der 1. If-Abfrage in dem String am Anfang eine 0 (Null) fehlt.If Farben = "060606060606" ThenDa ich ja für alle 6 Zellen die Farben 2-stellig in ein String schreibe, müssen bei den If-Abragen für Jede ...
| | In das Form Excel wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
