Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Werte übertragen, wenn numerisch

Gruppe

Vergleich

Problem

Die Werte der Zeilen in Spalte sollen in ein zweites Tabellenblatt übertragen werden, wenn der Wert in Spalte A numerisch ist.

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

StandardModule: basMain

Sub PruefenKopieren()
   Dim wksTarget As Worksheet, wksSource As Worksheet
   Dim lRowL As Long, lRow As Integer, lRowT As Long
   Application.ScreenUpdating = False
   Set wksSource = ActiveSheet
   Worksheets.Add.Move after:=Worksheets(wksSource.Index)
   Set wksTarget = ActiveSheet
   wksSource.Select
   lRowL = Cells(Rows.Count, 1).End(xlUp).Row
   For lRow = 1 To lRowL
      If IsNumeric(Cells(lRow, 1)) And _
         Not IsEmpty(Cells(lRow, 1)) Then
         lRowT = lRowT + 1
         wksTarget.Rows(lRowT).Value = Rows(lRow).Value
      End If
   Next lRow
End Sub