Range - Laufzeitfehler 1004
Space
mal wieder ein kleines Problem:
Was funktioniert: Andere Excel Tabelle öffnen und variable Zeilenanzahl kopieren
Was nicht funktioniert: in der bereits geöffneten Excel Datei Zelle A14 selektieren und dort dann einfügen. Bei Range ("A14").Select kommt immmer ein Laufzeitfehler 1004
Hier mein Code:
Private Sub CommandButton12_Click()
'Excel Datei Kundendaten.xls öffnen
Workbooks.Open Filename:= _
"H:\Entwicklung\Software\Data Generator\Kundendaten.xls"
'Benötigte Zellen kopieren und im Tabellenblatt "Kundenkontakte" einfügen
'Kopieren aus Kundendaten
With Sheets("Sheet1")
.Range(.Cells(2, 1), .Cells(2, 1).End(xlDown)).Resize(, 22).Copy
End With
'Einfügen in "Data Generator - Kundenkontakte"
Windows("Data Generator.xls").Activate
Sheets("Kundenkontakte").Select
Range("A14").Select
ActiveSheet.Paste
'Schließen der Kundendaten
Windows("Kundendaten.xls").Activate
ActiveWindow.Close
'"Data Generator" in den Vordergrund bringen
Windows("Data Generator.xls").Activate
End Sub
MfG
Space