ich wende mich in größter Verzweiflung an euch:
Seit 2 Tagen versuche ich in einer Arbeitsmappe eine neue Instanz zu öffnen (das klappt) und in dieser dann ein paar Befehle auszuführen ( das klappt überhaupt nicht).
Ich habe nun mehrere Möglichkeiten ausgetüftelt, jedoch ohne Erfolg.
In Kurzfassung sieht der Code zur Zeit so aus:
Private Sub instanz ()
Dim sdApp As New Excel.Application
kunde = ComboBox36.text 'Kunde
With sdApp
.Workbooks.Open "Y:\Angebote\Stammdaten.xlsx"
.Visible = True
' .Selection = True -> funktioniert nicht, schreibt in _
_
bestehende Instanz
' .ActiveSheet "Kundenstammdaten" -> Unzulässige Verwendung einer _
Eigenschaft
' .Worksheets(1).Activat ' "Kundenstammdaten" -> Objekt unterstützt diese _
Eigenschaft oder Methode nicht
' ActiveWorkbook.Sheets(1), Excel.Worksheet).Select() -> ist nur ein Ansatz, weiß nicht _
_
wie es weiter gehen soll
End With
'sdApp.Worksheets(1).Select -> funktioniert nicht, schreibt in _
_
bestehende Instanz
Rows(3).Insert
Cells(3, 1).Value = kunde 'Kunde
For i = 1 To 500
Cells(i + 1, 20).Value = i 'lfd Nummer
Next i
sdApp.Workbooks.Close 'SaveChanges:=True
sdApp.Quit
End Sub
Könnt ihr mir helfen?
Vielen lieben Dank schon einmal!
Viele Grüße
Henning