An Ramses!
12.09.2003 19:30:44
Oliver S.
danke nochmal, dass Du mir gestern so geholfen hast.
Allerdings gibt es mit dem Makro noch ein kleines Problem. Wenn ich in der InputBox die Abbruchtaste drücke, kommt ein Laufzeitfehler 13.
Wenn ich eine Zahl eingebe, von einem Monat, der nicht in der aktuellen Tabelle vorkommt, dann werden alle Zelleninhalte gelöscht. Das selbe passiert auch wenn ich eine Zahl grösser 12 eingebe.
Wie kann man das abändern? Nachfolgend noch mal der Code.
Sub Delete_Months()
Dim cr As Integer
Dim Qe As Integer
Qe = Int(InputBox("Für welchen Monat möchten Sie die Daten haben ?", "Monat selectieren", "8"))
If Qe = 0 Then Exit Sub
Debug.Print Qe
For i = 1 To Range("A65536").Cells.End(xlUp).Row
If Month(Format(Cells(i, 1), "dd.mm.yyyy")) <> Qe Then
Rows(i).ClearContents
End If
Next i
End Sub
Für Deine Hilfe sage ich schon mal danke.
MfG,
Oliver