Makro flexibler gestalten

• Makro flexibler gestalten von Patrick vom 30.10.2003 14:08:22
  • AW: Makro flexibler gestalten - von Franky am 30.10.2003 14:13:47
    • AW: Makro flexibler gestalten - von Patrick am 30.10.2003 14:21:39
      • AW: Makro flexibler gestalten - von Franky am 30.10.2003 14:26:42

Betrifft: Makro flexibler gestalten
von: Patrick
Geschrieben am: 30.10.2003 14:08:22
Hallo,
ich habe vorhin von euch dieses Makro bekommen. Frage hierzu: Wie kann ich das Makro so gestalten, dass ich jede beliebige DAT-Datei damit öffnen kann?

Sub Makro3()
Workbooks.OpenText Filename:="C:\Test\1673.dat", Origin _
:=xlWindows, StartRow:=4, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=True, Other:=False, FieldInfo:=Array(Array(1, 9), _
Array(2, 1), Array(3, 1), Array(4, 9))
End Sub

Betrifft: AW: Makro flexibler gestalten
von: Franky
Geschrieben am: 30.10.2003 14:13:47
Hi,

lässt sich so lösen:

Gruß, Franky

Sub Makro3()
dim vFile as variant
vFile = Application.GetOpenFilename
If vFile = False Then Exit Sub
Workbooks.OpenText Filename:=vFile, Origin _
:=xlWindows, StartRow:=4, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=True, Other:=False, FieldInfo:=Array(Array(1, 9), _
Array(2, 1), Array(3, 1), Array(4, 9))
end if
End Sub

Betrifft: AW: Makro flexibler gestalten
von: Patrick
Geschrieben am: 30.10.2003 14:21:39
Fehlermeldung: End If ohne If-Block

Warum passiert das?

Betrifft: AW: Makro flexibler gestalten
von: Franky
Geschrieben am: 30.10.2003 14:26:42
sorry,

das "End if" in der vorletzten Zeile muss weg.

Excel-Beispiele zum Thema " Makro flexibler gestalten"
Druckbereich variabel gestalten	NETTOARBEITSTAGE-Funktion sprachunabhängig gestalten
Einen Trainingsplan dynamisch gestalten