Zellenwerte übernehmen
26.07.2016 11:21:27
Olli
Benötige eine kleine Unterstützung zu dem angefügten Quellcode.
Möchte gerne wie unten beschrieben die Werte von B3 bis B7 den Zellen I4 bis M4 zuweisen. Das funktioniert auch soweit!!
Wenn ich jedoch die Werte B3 bis B7 ändere sollen die unter die vorhandenen Werte in die nächste Zeile I5 bis M5 eingetragen werden. Und jeweils bei der nächsten Änderung wieder unterhalb. Benötige hierzu eine kleine Unterstützung.
Sub Übernehmen()
Dim a As Worksheet
Set a = Worksheets("Tabelle1")
a.Range("I4") = a.Range("B3").Value
a.Range("J4") = a.Range("B4").Value
a.Range("K4") = a.Range("B5").Value
a.Range("L4") = a.Range("B6").Value
a.Range("M4") = a.Range("B7").Value
End Sub
Anzeige