Aus Mastertabelle Berechnungstabelle erstellen
22.02.2009 17:38:41
juergen
Ich habe eine Mastertabelle wo Ich meine eingaben machen kann.
Nun nach Fertigstellung der Tabelle sollen nur die benutzten Zeilen in eine neue Tabelle eingefügt werden ohne leere Zeilen.
Hab da zwar was gefunden aber das klappt nicht. Wobei in Spalte 5 (E) meine Artikelnummern sind,er Vergisst aber einige zu nehmen.
Gruß
Juergen
Sub CopyArtikel()
Dim iRow As Integer, iRowL As Integer, iRowT As Integer
iRowL = Cells(Rows.Count, 2).End(xlUp).Row
For iRow = 8 To 50
If IsNumeric(Cells(iRow, 5)) Then
With Worksheets("tabelle4")
iRowT = .Cells(.Rows.Count, 2).End(xlUp).Row + 1
.Range(.Cells(iRowT, 2), .Cells(iRowT, 16)).Value = _
Range(Cells(iRow, 2), Cells(iRow, 16)).Value
End With
End If
Next iRow
End Sub
Anzeige