Fehler bei Range Auswahl
29.06.2020 11:17:12
börny
folgendes Makro habe ich mir zur Auswahl von Excel Dateien und dem Kopieren von Inhalten aus den geöffneten Dateien gebastelt.
Ich bekomme aber bei dem Schritt "Cells.Select" einen Laufzeitfehler '1004' mit dem Hinweis: Die Select-Methode des Range-Objektes konne nicht ausgeführt werden.
Hier der Code
Private Sub CommandButton1_Click()
Dim strPfad As Variant
Dim Wb As Workbook
Set Wb = ThisWorkbook
strPfad = Application.GetOpenFilename
If strPfad False Then
TextBox1 = strPfad
Workbooks.Open Filename:=strPfad
Else
MsgBox "Nichts ausgewählt!"
End If
Sheets("5.1 GuV_Übersicht").Select
Cells.Select
Selection.Copy
Wb.Activate
End Sub
Besten Dank,
Börny