Hallo Zusammen,
ich würde gerne den Bereich von Spalte E (E2:E10) in die erste frei Zeile von Spalte F schreiben.
Klappt aber leider nicht...
Wenn ich nur den Wert aus E2 in die erste freie Zelle von Spalte F schreiben möchte klappt das mit folgenden Code:
Dim Daten As Double
Daten = WsQ.Range("E2")
WsQ.Cells(Rows.Count, "F").End(xlUp).Offset(1).Value = Daten
Jedoch wenn ich den Range("E2:E10") nehme klappt nichts mehr
Dim Daten As Range
Daten = WsQ.Range("E2:E30")
WsQ.Cells(Rows.Count, "F").End(xlUp).Offset(1).Value = Daten
kann mir hierbei jemand helfen?
Vielen Dank im Voraus
Grüße
|