|
Hallo zusammen,
ich möchte gerne Werte aus einer Datenbank in ein anderes Workbook kopieren. Dafür habe ich mir eine Variable als Range definiert. Daraufhin werden die Werte noch transponiert und dann in das andere Workbook kopiert.
Nun möchte ich für eine bestimmte Range die Werte durch 100 dividieren, damit sie in der Zieldatei richtig dargestellt werden (es handelt sich um %). Nach mehreren Versuchen bekam ich immer wieder eine Fehlermeldung. Kann mir hier jemand helfen?
Achja und noch eine Zusatzfrage: momentan braucht der Code ca. 10 sek um durchzulaufen. Gibt es eine Möglichkeit, mehrere dieser Befehle auf eine schnellere Art und weise zu kodieren?
Der Code sieht aktuell so aus:
Sub Werte_Eintragen(n As Long)
Dim v_WerteNeu As Variant
v_WerteNeu = Worksheets("Output").Range("W" & n & ":AA" & n)
v_WerteNeu = WorksheetFunction.Transpose(v_WerteNeu)
Workbooks(m_str_Modellbezeichnung).Worksheets("Input").Range("D14:D18").Value = v_WerteNeu
End Sub
Vielen Dank!!!!
|