Makroaufruf über Pulldownmenü
PeterG
ich bin in VBA einem Phänomen begegnet, das eigentlich nicht sein kann!. Seit Jahren benutze ich ein Makro um Fremddateien eines bestimmten Formats in Excel einzulesen. Kern dieses Makros ist der folgende Code:
Workbooks.OpenText FileName:="D:\SST\TMP\Temp" & Tep & ".txt", _
Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=False, Semicolon _
:=True, Comma:=False, Space:=False, Other:=False
Sheets(ActiveSheet.Name).Move Before:=Workbooks(AName).Sheets(1)
Dieses Makro rufe ich über ein selbsterstelltes Pulldownmenü auf und das läuft wunderbar. Rufe ich jedoch das Makro über Menü Extras .. Makro direkt auf, dann arbeitet es völlig anders. Es entstehen diverse Formatfehler. Auch die Zuweisung an einen Button hilft nicht. Auch nicht der Start direkt im VBA-Editor. Nur bei Aufruf über Pulldownmenü arbeitet das Teil korrekt!!?
Ich vermute einen Excel-Bug. Vielleicht hat jemand Erfahrung damit. Danke für jeden Hinweis.
Viele Grüsse
PeterG