rmaxWert>Name dann löschen
22.06.2004 09:06:53
Rene
hilfe!?!
ich muss eine spalte nach maximalwert durchsuchen(zb5) und alle tabellenblätter deren name größer ist(zB 7) als dieser wert sollen gelöscht werden
mein code läuft net
Dim dmax As Double
Dim rng As Range
' dmax = WorksheetFunction.Max(Range("E9:E50"))
' Set rng = Range("E9:E50").Find(What:=dmax, LookIn:=xlValues, LookAt _
' :=xlWhole)
' MsgBox dmax
' For Each wks In ThisWorkbook.Sheets
' If wks.Name größer dmax Then
' wks.Delete
' End If
Next wks
hoffe mir kann jemand helfen
gruß rene