Hi Leute,
Folgender Code:
Sub Do_Print()
'
' Do_Print Makro
'
'
Range("D23").Select
If D23 = "0.00" Then ("D23").Delete
Range("D24").Select
Range("D25").Select
Range("D26").Select
Range("D27").Select
Range("D28").Select
Range("D29").Select
Range("D30").Select
Range("D31").Select
Range("D32").Select
Range("D33").Select
Range("D34").Select
Range("D35").Select
Range("D36").Select
Range("D37").Select
Range("D38").Select
Range("D39").Select
Range("D40").Select
Range("D41").Select
If D41 = 0# Then Delete D41
Range("D42").Select
End Sub
Schritt Eins:
Eigentlich soll das Makro die Zellen D23 bis D42 überprüfen, ob dort 0.00 drin steht. Wenn ja Zelleninhalt löschen.
Schritt Zwei:
Dannach soll die Tabelle1 ausgewählt werden und gedruckt werden.