Werte einfügen
16.01.2019 09:27:20
Ernst
Ich bräuchte Eure Hilfe.
Mit dem unten aufgeführte Code kopiere ich Werte aus einer aktiven Zelle D und füge diese in Tabelle 2 unter die letzte freie Zelle der Spalte C ein (bis hier funktioniert alles).
Wie müsste der Code erweitert werden, wenn die letzte freie Zeile C20 ist, d.h., unter C20 soll/ _
kann nichts mehr eingefügt werden.
Sub CopyCells()
Dim AWS As Worksheet
Dim KWS As Worksheet
Dim AC As Long
Dim letzte As Long
Set AWS = ActiveSheet
Set KWS = Worksheets("Tabelle2")
AWS.Activate
AC = ActiveCell.Row
letzte = KWS.Cells(Rows.Count, 3).End(xlUp).Row + 1
AWS.Range("D" & AC & ",H" & AC & ",L" & AC).Copy _
Destination:=KWS.Range("C" & letzte)
End Sub