ich habe mal wieder ein Problem mit VBA (wie wohl fast alle hier ;-). Trotz intensiver Suche auch im Forum, konnte ich keine Lösung für Folgendes finden:
Ich habe eine Excelmappe aus der ich zwei spezielle Blätter in eine neue kopieren will. Klappt gut
Dann lösche ich in der neuen Mappe bei einem Blatt bestimmte Spalten. Klappt auch gut.
Nun möchte ich, dass alle Zeilen von Ende bis 7, die in den Spalten 7, 8, und 9 leer sind (oder eben die Summe 0 ergeben) auch gelöscht werden. Klappt nicht. :-(
Aus mir nicht nachvollziehbaren Gründen wird allenfalls (wenn überhaupt) in der Quelldatei auf _ dem ersten Blatt (auch wenn dies vorher nicht aktiviert war) was gelöscht.
Private Sub AG_Click()
Dim VWBlattName As Variant
VWBlattName = Array("AG", "Zusammenfassung MA")
'Blätter kopieren
Sheets(VWBlattName).Copy
'nicht notwendige Spalten und leere zeilen löschen
ActiveWorkbook.Sheets("Zusammenfassung MA").Columns("G:J").EntireColumn.Delete
ActiveWorkbook.Sheets("Zusammenfassung MA").Columns("J:X").EntireColumn.Delete
ActiveWorkbook.Sheets("Zusammenfassung MA").Activate
letzte = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
For RQ = letzte To 7 Step -1
If Application.Sum(Range(Cells(RQ, 7), Cells(RQ, 9))) = 0 Then Rows(RQ).Delete
Next RQ
'Datei speichern unter
Application.Dialogs(xlDialogSaveAs).Show
End Sub
Wo liegt mein Denkfehler?
Grüße Aelsbeth