Gruppe
Allgemein
Problem
Der Wert aus Spalte B der Zeile, in der sich der Cursor befindet, soll an die nächste freie Position im Blatt Spesen2 in Spalte B eingefügt werden.
StandardModule: basMain
Sub Einfuegen()
With Worksheets("Spesen2")
.Cells(.Cells(Rows.Count, 2) _
.End(xlUp).Row + 1, 2).Value = _
Cells(ActiveCell.Row, 2).Value
End With
End Sub