Hallo VBA Gemeinde,
ich würde gerne aus einer Datei die sich der Anwender selbst auswählt ( über Application.GetOpenFilename() ) Zellen herauskopieren und in ein aktives Worksheet einfügen.
Bevor es aber zum Kopiervorgang kommt soll in der vom Anwender ausgewählten Datei überprüft werden, ob in der Zelle A38 "Project Management steht".
Meine VBA Syntax:
Sub import_Domain()
Dim wsZiel As Worksheet
Dim wsQuelle As Variant
'Bestimung des Ziels -> Wohin soll kopiert werden?
Set wsZiel = ActiveWorkbook.ActiveSheet
'Bestimmung der Quelle -> Von wo soll kopiert werden?
wsQuelle = Application.GetOpenFilename(FileFilter:="Excel Dateien, *.xls*", Title:="Oefnnen der Excel DAtei", MultiSelect:=False)
'Kopieranweisung
If wsQuelle("Overview").Range("A38").Value = "Project Management" Then
MsgBox ("Inhalt Zelle A38 ist korrekt!")
End If
Bekomme den Fehler 'Typen unverträglich'
Ich bin mir auch nicht sicher ob das so der richtige Weg ist für mein Anliegen. Außerdem wenn ich die Kopieranweisung komplett auskommentiere, dann passiert nach dem Öffnen der Datei leider gar nichts.
Jemand der helfen kann?
Grüße,
Kevin |