Anzeige
Archiv - Navigation
940to944
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
940to944
940to944
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Dateiformat prüfen

Dateiformat prüfen
21.01.2008 18:38:11
Stefan
Hallo an Alle
Ich drucke aus einer Userform Worddokumente sowie Exceldokumente aus. Klappt prima. Jetzt habe ich alles ein bischen umgebaut.
Wie kann ich ein Dokument auf Word oder Excelformat prüfen?
z.B.
Pfad = "C:/Test.doc"
wenn Pfad=*.xls dann Pfad öffnen und aus Excel drucken
wenn Pfad=*.doc dann Pfad in Word öffnen und drucken
ich hoffe das ich mich einigermaßen verständlich ausgedrückt habe.
Gruß, Stefan

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
probier es mit Right ...
21.01.2008 19:36:00
Matthias
Hallo
Option Explicit

Sub stefan()
Dim PF As String
With Worksheets("Tabelle1")
PF = .Range("A1").Value
If Right(PF, 3) = "doc" Then MsgBox "Word"
If Right(PF, 3) = "xls" Then MsgBox "Excel"
If Right(PF, 3)  "xls" And Right(PF, 3)  "doc" Then MsgBox "andere Anwendung ;o)"
End With
End Sub


BEISPIEL:
Userbild
Userbild

Anzeige
ja super, so sollte es gehn
21.01.2008 20:17:00
Stefan
Hallo Mathias
Vielen Dank für die schnelle Antwort. So sollte es gehn. Probiers morgen gleich mal aus.
Gruß aus Thüringen, Stefan

na denn viel Glück ;o) oT
21.01.2008 20:21:00
Matthias

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige