Makro funktioniert nicht
05.05.2023 11:00:55
philipp s
Guten Morgen,~f~
ich weiß nicht WARUM auf einmal funktioniert mein Makro nicht.
Obwohl die KD-Nummer in der 1. Spalte schon vorhanden ist, läuft das Makro durch
und es wird die Adresse nochmals in die Zieldatei kopiert.
Das Makro wird von Quelle Datei gestartet, hatte bisher funktioniert.
Dim x As Variant
x = Application.Match(wksQUELLE.Range("K11").Value, wksZIEL.Columns(1), 0)
If IsError(x) Then
Set rngZIEL = wksZIEL.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Else
Set rngZIEL = wksZIEL.Cells(x, 1)
End If
~f~
mfg
philipp s