ich habe folgende Anweisung geschrieben:
' Schaltfläche in Tabelle Eingangsprüfung_CX_2002_neu.xls
Sub Start_Click()
y = 2
For i = 8 To 22
If Left(Cells(i, y), 6) = "CX 10," Then
Range("F64") = Cells(i, y + 1)
Range("F66") = Cells(i, y + 2)
ActiveSheet.PageSetup.PrintArea = "$A$56:$G$108"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.PrintArea = "$A$56:$G$275"
Workbooks.Open Filename:="CX10.xls"
Range("A9").Select
Selection.EntireRow.Insert
Range("A9") = ["Eingangsprüfung_CX_2002_neu.xls";Cells(i, y + 2)]
Windows("Eingangsprüfung_CX_2002_neu.xls").Activate
End If
Next i
End Sub
1. Wenn ich die Tabelle CX10.xls öffne und die Zelle A9 markieren möchte, so erhalte ich den Fehler "Die Select-Methode des Range-Objektes konnte nicht ausgeführt werden".
Ich möchte die Zelle A9 oder Zeile 9 markieren und eine Zeile einfügen.
2. Funktioniert dieser Befehl?
Range("A9") = ["Eingangsprüfung_CX_2002_neu.xls";Cells(i, y + 2)]
Ich möchte den Inhalt der variablen Zelle ["Eingangsprüfung_CX_2002_neu.xls";Cells(i, y + 2)] in die Zelle A9 (CX10.xls) übertragen.
Kann mir jemand weiterhelfen?
Danke vorab