Thema Datum  Von Nutzer Rating
Antwort
Rot Application.GetOpenFilename
 03.11.2016 15:17:17 Kevin
NotSolved
03.11.2016 15:19:55 Kevin
NotSolved
04.11.2016 19:31:22 Gast2072
NotSolved

Ansicht des Beitrags:
Von:
Kevin		 Datum:
03.11.2016 15:17:17		 Views:
1307		 Rating:
     
Antwort:
  Ja
Thema:
Application.GetOpenFilename
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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Application.GetOpenFilename
 03.11.2016 15:17:17 Kevin
NotSolved
03.11.2016 15:19:55 Kevin
NotSolved
04.11.2016 19:31:22 Gast2072
NotSolved