VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Werte übertragen, wenn numerisch

Gruppe

Allgemein

Bereich

Vergleich

Thema

Werte übertragen, wenn numerisch

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

    


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