Range
24.01.2018 13:20:42
Ulli
ich möchte ein Makro mit vielen "copy und paste" auf Range umstellen, um es schneller zu machen.
Leider werden dabei Hyperlinks im Gegensatz zum Copy vorher nicht mehr übertragen. Sonst funktioniert es.
Mein Code:
Dim Zeile As Variant, S As Variant 'S = Spalte
Dim F As Variant 'F = Feld
Workbooks("Datenbank1.xlsm").Sheets("Seite 1").Range(F) = _
Workbooks("10.03.2008 Alle Daten zur Kommune KA-Korrektur Urdatei.xlsm").Sheets("Kommunale daten").Cells(Zeile, S)
Vielen Dank für die Hilfe
Ulli