Hallo zusammen,
mit folgendem Code schreibe ich aus einer Tabelle Daten in eine andere Tabelle. Eine Art Statistik, weil das Makro mehrmals in der Woche läuft.
With Sheets("Statistik")
.Range("A1020").End(xlUp).Offset(1, 0).Value = Sheets("Test").Range("a2")
.Range("b1020").End(xlUp).Offset(1, 0).Value = Sheets("Test").Range("b2")
.Range("c1020").End(xlUp).Offset(1, 0).Value = Sheets("Test").Range("c2")
.Range("d1020").End(xlUp).Offset(1, 0).Value = Sheets("Test").Range("Q19")
.Range("e1020").End(xlUp).Offset(1, 0).Value = Sheets("Test").Range("U1")
.Range("f1020").End(xlUp).Offset(1, 0).Value = Sheets("Test").Range("N1")
.Range("g1020").End(xlUp).Offset(1, 0).Value = Sheets("Test").Range("A24")
end with
Problem ist aber, dass bis auf die erste Zeile (hier a2) es manchmal auch so ist, dass Zellen leer sind. Dann schreibt der Code beim nächsten Lauf in diese leere Zelle, anstatt in die richtige.
Kann man dem Makro nicht sagen, er soll alle DAten immer in die gleiche Zeile schreiben. Kriterium könnte Spalte A sein, denn dieser Wert ist immer gefüllt.
Gruß
Sebastian