Hallo,
ich habe folgendes Problem:
Ich habe ein Excel-Makro geschrieben (in 2 Varianten):
- Beim Öffnen wird automatisch ein Makro ausgeführt, dass die gewünschten Anweisungen durchläuft.
- Das Makro kann über einen CommandButton gestartet werden.
Meine Frage: Wie bekomme ich es hin, dass das Makro in Excel gestartet wird?
Ich schaffe es zwar, die Excel-Datei zu öffnen, aber:
- In der automatischen Variante wird dann das Auto_Open Makro nicht gestartet :-(
- In der "manuellen" Variante weiß ich nicht, wie ich das Excel-Makro anspreche und starte
Mein Code sieht bisher so aus (mit Teilen, die aus diesem Forum habe):
Sub CATMain()
Dim Excel As Object
On Error Resume Next
Set Excel = GetObject(, "Excel.Application")
' Wenn der vorhergehene Befehl einen Fehler erzeugt hat (err.Number <> 0) Excel starten
If Err.Number <> 0 Then
Set Excel = CreateObject("Excel.Application")
Excel.Visible = True 'Excel im Hintergrund
End If
' !!! Die Fehlerbehandlungsroutine zurücksetzen, ansonsten lösen folgende fehlerhafte Befehle keine Fehlermeldung aus
On Error GoTo 0
' Das Objekt EXCEL muß angesprochen werden
Excel.Workbooks.Open "C:\Dokumente und Einstellungen\Steffen\Desktop\Tool\Excel-Makro_AUTOMATISCH - Konvertierung der Text-Dateien in Excel-Dateien.xls"
Excel.Sheets(1).Activate
Excel.Quit
End Sub
Vielen Dank
mfg
Steffen
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP