Ein Wert in die nächste freie Zeile einfügen
13.12.2015 15:18:41
Arek
Hallo Zusammen,
Ich hoffe, dass jemand von Euch mir mit folgendem Problem helfen konnte. Ich möchte nämlich Werte in die Zellen C26:D26 angeben und den Wert sollte in die nächste freie Zelle (ab J25:K25) eingefügt werden. Die Werte sollten nacheinander bis zu 13. Werten eingefügt werden. Wenn ich der Makro ausführe, werden die Werte in die Zeilen K25:L25 eingetragen. Außerdem, wenn ich ein neuer Wert eintragen möchte, überschreibt sich die erste Reihe (K25:L25). Könnte mir vielleicht jemand helfen? Leider nach ein paar Stunden kann ich nicht mehr nachvoliziehen, was ich falsch mache :(.
Sub Wariant()
Dim WSDane As Worksheet
Dim rgBereich As Range
Set WSDane = ThisWorkbook.Worksheets("Dane")
Set rgBereich = Range("J25:K37")
WSDane.Range("C26:D26").Copy
rgBereich(Cells(1, 1) & WSDane.Cells(WSDane.Rows.Count, 10).End(xlUp).Row + 1).PasteSpecial _
_
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("C26:D26").ClearContents
Range("D29").Value = "Ready"
End Sub
Vielen Dank!