VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

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

Gruppe

Allgemein

Bereich

Kopieren

Thema

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

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

    


Beiträge aus dem Excel-Forum zu den Themen Allgemein und Kopieren