Hallo
derzeit rufe ich alle Makros einzeln auf. Also sheet auswählen Makro per Schlatfläche ausführen. Nächstes sheet... usw
Anbei der Code
Public Sub HoleDaten()
'
ActiveSheet.Unprotect Password:="4711"
'
' loesche Bereich
'
Range("B5:O10000").Select
Selection.ClearContents
Range("B5").Select
'
' Die Funktion arbeitet mit der obrigen GetDataClosedWB zusammen
Dim Pfad As String
Dim Dateiname As String
Dim Blatt As String
Dim Bereich As String
Dim Ziel As Range
Pfad = "X:\Benutzer_Daten\Stanzerei\Bestandsliste Ersatzteile\"
Dateiname = "Ersatzteilbestandsliste.xlsm" ' aus welcher Datei soll er holen?
Blatt = "Lagerbestandsliste" ' von welcher Tabelle soll er holen?
Bereich = "A5:O10000" ' aus welchem Bereich soll er holen?
Set Ziel = ActiveSheet.Range("A5") ' in welchen Bereich soll er kopieren? Genauer gesagt: Bei welcher Zelle soll er anfangen, Datein reinzukopieren? Bsp: ActiveCell geht auch
If GetDataClosedWB(Pfad, Dateiname, Blatt, Bereich, Ziel) Then
MsgBox "Daten importiert" & Chr(10) & Chr(10) & Chr(169) & " Ing. Byörn Tschinkl"
End If
'
ActiveSheet.Protect Password:="4711", AllowFiltering:=True
'
End Sub
|