Select-Methode Laufzeitfehler 1004
grossermanitu
Worksheets("Bedarfsanfragen").Range(Cells(2, i), Cells(65536, i)).Select 'Spalte i Statusliste (filename) kopieren
Ich habe schon alles mögliche probiert bekomme aber keine Lösung. Wäre klasse wenn mir jemand kurz unter die Arme greifen könnte. Danke
Option Explicit
Private Sub CommandButton1_Click()
'Variablen deklarieren
Dim statusliste As Workbook
Dim i As Integer
Dim j As Integer
Dim readfile As String
Dim filename As String
Application.DisplayAlerts = False 'Alarm ausschalten
Application.ScreenUpdating = False 'Displayaktualisierung ausschalten
readfile = Application.GetOpenFilename("XLS-Files (*.xls),") 'Dateiöffnen-dialog aufrufen
filename = Right(readfile, Len(readfile) - InStrRev(readfile, "\")) 'Dateinamen auslesen
If IsWorkbookOpen(filename) Then 'Falls Datei schon geöffnet ist
MsgBox "Statusliste bereits geöffnet. Bitte für den Datenimport schließen."
Exit Sub
Else
Set statusliste = Workbooks.Open(readfile)
End If
'Daten Tabellenblatt Statusliste löschen
Workbooks("Bestellreport_MSP_D.xls").Worksheets("Statusliste").Range("A3:DZ65536").EntireRow. _
Delete
Workbooks("Bestellreport_MSP_D.xls").Worksheets("Statusliste").Range("A2:DZ2").ClearContents
'Daten Tabellenblatt Bestellung 2010H löschen
Workbooks("Bestellreport_MSP_D.xls").Worksheets("Bestellungen 2010H").Range("A3:DZ65536"). _
EntireRow.Delete
'Daten Tabellenblatt Bestellung 2010 löschen
Workbooks("Bestellreport_MSP_D.xls").Worksheets("Bestellungen 2010").Range("A10:DZ65536"). _
EntireRow.Delete
'Spalten Statusliste übertragen
For j = 1 To 85 'Prüfe Zelle A1, B1,... CM1 in Bestellreport
For i = 1 To 120 'mit Zelle A1, B1,... DM1 in Statusliste ob gleicher Wert
If Workbooks("Bestellreport_MSP_D.xls").Worksheets("Statusliste").Cells(1, j) = Workbooks( _
filename).Worksheets("Bedarfsanfragen").Cells(1, i) Then
Workbooks(filename).Activate
Worksheets("Bedarfsanfragen").Activate
Worksheets("Bedarfsanfragen").Range(Cells(2, i), Cells(65536, i)).Select 'Spalte i _
Statusliste (filename) kopieren
Selection.Copy
Workbooks("Bestellreport_MSP_D.xls").Activate
Worksheets("Statusliste").Activate
Worksheets("Statusliste").Cells(2, j).Select 'In Spalte j Bestellreport einfügen
ActiveSheet.Paste
End If
Next i
Next j
End Sub