Hi,
ich bin es wieder =)...Habe wieder ein Problem mit meinem Programm.
Es geht dabei um Zeilen löschen.Ich habe die ganz gewöhnlich Funktion, um Zeilen zu löschen schon geschrieben.
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
Diese Funktion wird an bestimmten Stellen aufgerufen, in denen ich Zeilen lösche. Dies funktioniert auch alles schön. Das einzige Problem ist, dass ich in einem bestimmten Abschnitt des Excel-Sheets Zellinhalte habe, die aber auch gelöscht werden müssen. Habe so einiges versucht, komme aber nicht weiter.
ClearContents hat nicht funktioniert und mir fällt langsam auch nichts mehr ein :(
Vielen Dank im Voraus meine Retter ;)
|