zellen aus aktiver zeile copypasten
19.03.2020 07:59:25
hofe
da ich wie viele aus aktuellem Anlass etwas mehr Zeit habe, versuche ich gerade meine Arbeitsabläufe durch ein bissel VBA zu optimieren.
im Archiv bin ich dabei auf folgendes gestoßen, was an sich schon funktioniert, ich aber an den nötigen Änderungen scheitere und nun jemand suche, der mir eventuell etwas hilft.
folgenden Code möchte ich gerne abändern.
Sub Test()
Dim wks As Worksheet
Dim iRow As Integer
Set wks = Worksheets("Planung")
iRow = wks.Cells(Rows.Count, 1).End(xlUp).Row + 1
r = ActiveCell.Row
Range(Cells(r, 1), Cells(r, 6)).Copy wks.Rows(iRow)
ActiveCell.Activate
End Sub
Der kopierte Inhalt sollte als Werte kopiert werden, also ohne Formatierungen.
Und ich möchte den Inhalt gerne in etwas versetz einfügen, in meinem Fall spalte E auf dem Arbeitsblatt Planung.
Und eine kleine bitte hätte ich noch.
da ich gerne etwas mehr in VBA lernen möchte, wäre es schön, wenn es eine kleine Erklärung gibt.
Ich freue mich auf eure Antworten und wünsche noch ein frohes schaffen
