vba excel (VBA)

Komila, Freitag, 22.07.2016, 09:09 (vor 1216 Tagen)

Hallo liebe Leute,

kann bitte mir jmd das erklären

erow = Tabelle1.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
und
ActiveSheet.Paste Destination:=Worksheets("Tabelle1").Range(Cells(erow, 1), Cells(erow, 4))

Danke im Voraus

vba excel

Martin Asal @, Freitag, 22.07.2016, 12:15 (vor 1216 Tagen) @ Komila

Tabelle1.Cells(Rows.Count, 1).End(xlUp)
Gehe von Tabelle1!A1048576 zur untersten Zelle in Spalte A, in der etwas steht.
.Offset(1, 0).Row
und nun speichere die Nummer der Zeile in erow. (Das "Offset" wäre wohl verzichtbar)


ActiveSheet.Paste Destination:=Worksheets("Tabelle1").Range(Cells(erow, 1), Cells(erow, 4))

Kopiere ins aktive Tabellenblatt den Inhalt aus 4 Zellen von Tabelle1, nämlich die Zellen erow,1 bis erow,4


Martin

RSS-Feed dieser Diskussion
powered by my little forum