Bereich druck
14.03.2004 20:14:43
sascha
Habe folgendes Problem:
Sub Druck()
Dim wks1 As Worksheet, wks2 As Worksheet
Dim iRow As Integer, iRowT As Integer
Set wks1 = Worksheets("Tabelle1")
Set wks2 = Worksheets("Tabelle3")
wks2.Columns("A").ClearContents
iRowT = 3
For iRow = 9 To wks1.Range("k200").End(xlUp).Row
If wks1.Cells(iRow, 11) <> " " Then
If WorksheetFunction.CountIf(wks2.Columns(1), _
wks1.Cells(iRow, 11)) = 0 Then
iRowT = iRowT + 1
wks2.Cells(iRowT, 1) = wks1.Cells(iRow, 11)
End If
End If
Next
End Sub
Diese Makro funktioniert einwandfrei nur ich möchte noch das, nach diesem sortieren
Alle Zeilen und alle spalten die nicht Leer oder null sind(A4:P?) , diese Makro genannte Zellen markiert und zum Ausdruck gibt.
Wer hilft weiter
Gruß Sascha
Danke in voraus