Gruppe
Allgemein
Problem
Die Werte der Zeilen in Spalte sollen in ein zweites Tabellenblatt übertragen werden, wenn der Wert in Spalte A numerisch ist.
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