Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Wert der aktiven Spalte an nächste freie Position einfügen

Gruppe

Kopieren

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.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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