Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
940to944
940to944
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dateiformat prüfen

Forumthread: 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

Anzeige

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
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige