Daten aus geschlossener Datei
17.11.2006 18:58:23
Max
nach längerer Suche über Google und die Recherche hier habe ich ein "einfaches" Makro gefunden, welches Daten aus einer geschlossenen Datei holt.
Ich benötige eine Makro-Lösung, da Anwender sonst jedesmal ihre Anschrift
von Hand in neu erstellte Arbeitsmappen (Updates) eintragen müssen.
Die Anschrift wird also einmalig in die Datei "C:\Meine Anschrift.xls" eingetragen (B1 - B7)und soll dann daraus per Makro in die aktuell verwendete Arbeitsmappe übertragen werden, ohne dass die Datei "Meine Anschrift" dafür geöffnet wird.
Mein Problem ist, das B1-B5 in einen Bereich eines Arbeitsblattes der aktuell verwendeten Mappe übertragen werden muss und B6-B7 in einen Bereich eines anderen Blattes.
Die Ziel-Blätter sind je nach Arbeitsstand auch noch ausgeblendet.
Läßt sich in dem Makro diese Aufteilung vornehmen oder falls nicht, gibt es
einen besseren Lösungsansatz?
Läßt sich in das Makro noch eine MsgBox einbauen, falls die Datei in dem
angegebenen Pfad nicht gefunden wird?
Vielen Dank schonmal für mögliche Tip`s oder Hilfestellung!
Sub DatenImport()
Dim rngTarget As Range
Set rngTarget = Range("b1:b7")
Application.ScreenUpdating = False
Workbooks.Open "C:\Meine Anschrift.xls"
rngTarget.Value = Range("b1:b7").Value
Application.DisplayAlerts = False
ActiveWorkbook.Close savechanges:=False
Application.DisplayAlerts = True
End Sub
Gruss
Max
Anzeige