ich habe mir ein Makro gebastelt welches soweit erst mal funktioniert *glücklich*
Public Sub Alle_Rechnungen()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Application.Calculation = xlManual
On Error Resume Next
With Worksheets("Rechnungen")
.Visible = xlSheetVisible
Sheets("RechnungenDruck").Delete
Sheets("Rechnungen").Select
Sheets("Rechnungen").Copy After:=Sheets(1)
Sheets("Rechnungen (2)").Select
Sheets("Rechnungen (2)").Name = "RechnungenDruck"
.Visible = xlSheetHidden
End With
With Worksheets("RechnungenDruck")
.Range("B:B").SpecialCells(xlCellTypeBlanks).EntireRow.Delete ' funktioniert nicht
.Rows("1").Delete ' funktioniert
.Columns("A:A").Delete 'funktioniert nicht
.Columns("1").Delete 'funktioniert nicht
End With
Application.Calculation = xlAutomatic
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
In der Spalte B wo die leeren Zeilen die gelöscht werden soll ist lediglich eine Formel
=WENNFEHLER(WENN(ISTLEER(INDIREKT(A58&"!E14"));0;INDIREKT(A58&"!E14"));0)
und die Spalte ist mit
TT.MM.JJJJ;;;
formatiert! Verhindert das in der konstelation, das die leeren Zeilen in Spalte B gelöscht werden?
Dort wird ein Datum angezeigt und wenn keins ist, soll die Zeile gelöscht werden!
Nach dem durchlauf soll dann A komplet entfernt werden X)
.Columns("A:A").Delete
löscht mir jedoch eigentlich alles bis auf die erste Zeile!? *cry*grüsse john