habe ein kleines Problem!
Ich möchte eine Datei öffnen, welche ich auch anschließend zumindest Teile davon kopieren möchte!
Mein Makro so far:
Private Sub cmdOK1_Click()
Dim i As Integer
If optPersonal Then
Workbooks.Open FileName:=Application.GetOpenFilename
Set Application.GetOpenFilename = i --> ????
If (Workbooks(i).Worksheets("Personalstammdaten").Range("A200") = 123) And _
(Workbooks("Prüfbericht.xls").Sheets("Personalstammdaten").Range("A200") = 123) Then
Workbooks("Prüfbericht.xls").Sheets("Personalstammdaten").Range("A7:B11") _
= Workbooks(i).Worksheets("Personalstammdaten").Range("A7:B11").Value
Unload Me
MsgBox "Die Daten wurden kopiert!"
Else
MsgBox "Es wurde das falsche Blatt zum kopieren geöffnet!"
End If
End If
Unload Me
Gibt es eine Möglichkeit, denen Blätter, welche ich öffne eine Variable zuzuweisen, da unterschiedliche Dateinamen vergeben sind!
Danke
Chris