Makro Zeilen löschen
12.09.2006 10:33:18
Ferhat
ich bin neu im Forum und zugleich neu in der VBA Welt und dahaer mit meinem aktuellen Problem ziemlich gefrustet.
Ich bin dabei, ein Makro zu schreiben, dass in der Spalte "AE" durchläuft und prüft, ob dort eine "1" vorhanden ist (Prüfung ab der dritten Zeile). Trifft diese zu, soll das Makro die gesamte Zeile löschen!
Ich habe mit googlen und anderen Quellen bisher folgendes auf die Beine gebracht:
Sub LeereZeilenFinden()
ActiveWindow.SmallScroll ToRight:=3
Range("AE3").Select
ActiveCell.FormulaR1C1 = "=IF(AND(RC[-19]=0,RC[-18]=0),""1"","""")"
Range("AE3").Select
Selection.AutoFill Destination:=Range("AE3:AE1000"), Type:=xlFillDefault
Range("AE3:AE1000").Select
ActiveWindow.SmallScroll Down:=-1260
End Sub
Sub Loeschen()
i = 3
While Not IsEmpty(Cells(i, 31))
Select Case Cells(i, 31)
Case Is = "1"
z(0) = z(0) + 1
Case Else
Range(Cells(i, 31), Cells(i, 31)).Select
ActiveCell.EntireColumn.Delete
z(1) = z(1) + 1
i = i - 1
End Select
i = i + 1
End
MsgBox ("Daten Übersicht für das Datenblatt Jahreswechsel: " & vbNewLine & _
"Gelöschte Elemente: " & z(0) & vbNewLine & _
"Relevante Element: " & z(1) & vbNewLine & _
"Alle Elemente: " & z(0) + z(1))
End Sub
Anzeige