Hi,
ich bastel gerade an einer Verbindung zwischen Outlook und Excel.
Das VBA-Modul funktioniert auch.
Aber immer nur einmal. :-(
Dann gibts die Fehlermeldung:
Die Methode 'Sheets' für das Objekt '_Global' ist fehlgeschlagen.
Warum?
Das Makro soll in etwa so aussehen.
Es sind aber noch keine wirklichen Variablen zur Übertragung angegeben.
Global ex1 As Object
Global ex2 As Object
Global ex3 As Object
Sub mms1()
Set ex1 = CreateObject("Excel.Application")
Set ex2 = ex1.Workbooks.Open("C:\mms1.xls")
Set ex3 = ex2.Sheets(1)
ex1.Visible = True
With ex3
'.Name = "erste_Tabelle"
Sheets("erste_Tabelle").Activate
Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveCell.Value = "90"
.cells(1, 1).Activate
End With
Set ex3 = Nothing
Set ex2 = Nothing
Set ex1 = Nothing
End Sub
Danke für die Hilfe |