Hey an alle :)

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 ?

Hier mein Code

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