Werte in Tabelle übernehmen
09.08.2002 09:42:42
Rolf St
ich möchte bei folgendem Makro die Werte, in Tabelle 2 auch erst
ab Zelle drei Spalte C übernehmen.
Sub zeileckopieren()
Application.ScreenUpdating = False
Dim iRow As Integer, iRowT
For iRow = 3 To 1000
If Not IsEmpty(Cells(iRow, 3)) Then
iRowT = iRowT + 1
Worksheets("Tabelle2").Rows(iRowT).Value = Rows(iRow).Value
End If
Next iRow
Application.ScreenUpdating = True
End Sub
Ist dies möglich?
Vielen Dank für eure Hilfe!
Tschüß
Rolf