Bereich_auslesen
18.10.2014 20:33:03
Peter Wawoczny
Hallo.
Was muss ich in dem Code ändern um selber bestimmen zu können in welchen Bereich die kopierte Daten erscheinen.
Danke im voraus Peter
Sub Bereich_auslesen()
'** Dimensionierung der Variablen
Dim pfad As String, datei As String, blatt As String, bereich As Range, zelle As Object
'** Angaben zur auszulesenden Zelle
pfad = "C:\Users\piter\Desktop"
datei = "ABFALL_Ras.2.xlsm"
blatt = "Abfallerfassung Rasantas"
Set bereich = Range("D4:D10")
Set bereich = Range("C4:C10")
'** Bereich auslesen
For Each zelle In bereich
'** Zellen umwandeln
zelle = zelle.Address(False, False)
'** Eintragen in Bereich
ActiveSheet.Cells(zelle.Row, zelle.Column).Value = GetValue(pfad, datei, blatt, zelle)
Next zelle
End Sub