Zellinhalt kopieren
09.09.2017 21:47:14
Kristen
Aber nun könnte ich Hilfe wirklich gebrauchen, bin echt ratlos , hier mein Problem
In einem Registerblatt mit dem Namen ÜBERSICHT befindet sich in der Zelle F3 ein Datum, in der Zelle G3 ein Zahlenwert. Mit einem Button im Registerblatt Übersicht möchte ich Datum und Wert in das Registerblatt HISTORIE, an die letzte, freie Stelle der Tabelle kopieren. Hierfür benutze ich folgenden Code:
Private Sub CommandButton2_Click()
Dim lngLR As Long
With Sheets("HISTORIE")
lngLR = IIf(IsEmpty(.Cells(Rows.Count, 1)), .Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
.Cells(lngLR + 1, 1).Resize(3, 2).Value = Sheets("ÜBERSICHT").Range("F3:G3").Value
End With
End Sub
Das funktioniert super, sieht man davon ab das der Eintrag von Datum und Wert nicht einmal, sondern dreimal untereinandergeschrieben werden. Das verwirrt mich total. Hoffe mir kann jemand helfen