Hi,
ich habe momentan ein riesiges Problem.Ich schaffe es nicht eine Zeile mit bestimmt gefüllten Zellen zu löschen.Und das soll per Button-Click erfolgen.
Mein Code:
Sub ZeileDelVeränderungen()
'
' ZeileDelVeränderungen Makro
'
Dim y As Integer
y = Position("Veränderungen Konto im VZ", "Übersicht")
If Range(Cells(y, 2), Cells(y, 8)) = (Cells(y, 2) = "Art der Veränderung:") And (Cells(y, 3).Interior.ColorIndex = 15) And (Cells(y, 4).Value = "Betrag:") And (Cells(y, 5).Interior.ColorIndex = 15) And (Cells(y, 6) = "Datum:") And (Cells(y, 7).Interior.ColorIndex = 15) And (Cells(y, 8) = "") Then
Call ZeileLöschen(y, 1, "Übersicht")
Worksheets("Übersicht").Cells(y, 2).ClearContents
Cells(y, 3).Interior.ColorIndex = 2
Worksheets("Übersicht").Cells(y, 4).ClearContents
Cells(y, 5).Interior.ColorIndex = 2
Worksheets("Übersicht").Cells(y, 6).ClearContents
Cells(y, 7).Interior.ColorIndex = 2
End Sub
...die Methode ZeileLöschen hat folgenden Code:
Sub ZeileLöschen(ByVal z, ByVal Anz As Integer, ByVal SheetName As String)
Dim i As Integer
For i = 1 To Anz Step 1
Worksheets(SheetName).Rows(z).Delete Shift:=xlDown
Next i
End Sub
Es wäre sehr lieb,wenn ihr helfen könntet =).
Liebe Grüße,Julia
|