Inhalt aus anderer Datei kopieren
14.02.2017 12:56:01
Stephan
Hab ein kleinem Problem:
Ich will Werte von Datei A nach Datei B Kopieren. Das geht auch alles soweit. Nur das Problem ist das Zellen die Leer sind mit einer Null gefüllt werden, kann ich das verhindern, so das die Zelle auch Leer bleibt nach dem Kopiervorgang
Sub Bereich_auslesen()
Dim pfad As String, datei As String, blatt As String, bereich As Range, zelle As Object
pfad = "C:\Dateienr"
datei = "datei.xlsm"
blatt = "Tabelle1"
Set bereich = Range("A1:Z25")
For Each zelle In bereich
zelle = zelle.Address(True, True)
ActiveSheet.Cells(zelle.Row, zelle.Column).Value = GetValue(pfad, datei, blatt, zelle)
Next zelle
End Sub
Private Function GetValue(pfad, datei, blatt, zelle)
Dim arg As String
If Right(pfad, 1) "\" Then pfad = pfad & "\"
If Dir(pfad & datei) = "" Then
GetValue = "Datei nicht gefunden"
Exit Function
End If
arg = "'" & pfad & "[" & datei & "]" & blatt & "'!" & Range(zelle).Range("A1").Address(, , _
xlR1C1)
'** Auslesen über Excel4Macro
GetValue = ExecuteExcel4Macro(arg)
End Function
Anzeige