VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Übernahme in 2. Tabelle, wenn Zelle in Spalte D nicht leer ist

Gruppe

Allgemein

Bereich

Vergleich

Thema

Übernahme in 2. Tabelle, wenn Zelle in Spalte D nicht leer ist

Problem

Wenn die jeweilige Zelle in Spalte D nicht leer ist, sollen die Zeilenwerte in Tabelle2 übernommen werden.

Lösung

Den nachstehenden Code in ein Standardmodul eingeben, einer Schaltfläche zuweisen und starten.




StandardModule: Modul1

Sub Kopieren()
   Dim iRow As Integer, iRowT
   For iRow = 1 To 20
      If Not IsEmpty(Cells(iRow, 4)) Then
         iRowT = iRowT + 1
         Worksheets("Tabelle2").Rows(iRowT).Value = _
            Rows(iRow).Value
      End If
   Next iRow
End Sub

    


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