Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Alle Werte mit Punkt aus Spalte A in Spalte B

Gruppe

Zeichenfolge

Problem

Wie kann ich alle Werte aus Spalte A, die einen Punkt beinhalten, in Spalte B verschieben?

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

StandardModule: basMain

Sub Verschieben()
   Dim iRowL As Integer, iRow As Integer
   iRowL = Cells(Rows.Count, 1).End(xlUp).Row
   For iRow = iRowL To 1 Step -1
      If InStr(Cells(iRow, 1), ".") Then
         Cells(iRow - 1, 2).Value = Cells(iRow, 1).Value
         Rows(iRow).Delete
      End If
   Next iRow
End Sub