Ausdrucken mit einem Kriterium
22.06.2015 17:52:53
Matthias
ich bin fast fertig mit meiner Exceldatei.
Probleme bereitet mir nur noch eine Sache.
Ich hatte den Code
Sub Seriendruck()
Dim wks As Worksheet
Dim iRow As Integer
Set wks = Worksheets("1")
iRow = 9
Worksheets("VV").Range("$T$1") = wks.Cells(iRow, 1)
Worksheets("VV").PrintOut
iRow = iRow + 1
End If
Loop
End Sub
verwendet und mittels eines Blattes in dem Werte aufgeführt sind, diese in ein anderes Blatt zu übertragen.Jetzt müsste ich das Ganz noch so erweitern, dass die Übertragung in das Zielblatt nur dann geschieht wenn in der Spalte 13 der Buchstabe V steht.
Die Tabelle wird dennoch durchlaufen, nur sollen eben nur die Zeilen übertragen werden, bei denen in der Spalt 13 der Buchstabe steht.
Kann mir hier jemand weiterhelfen?
Vielen Lieben Dank.