title image


Smiley Re: Errorhandler für leeren Bereich
Hallo Holger,



ich mach das so:Dim rg As Range, n1 As Long, n2 As Long

Set rg = ActiveSheet.Range("D5:F10")



n1 = 0

n2 = 0

On Error Resume Next

n1 = rg.SpecialCells(xlCellTypeVisible).Rows.Count

n2 = rg.SpecialCells(xlCellTypeVisible).Columns.Count

On Error GoTo 0

If n1 = 0 And n2 = 0 Then

MsgBox "Der gewählte Bereich " & rg.Parent.Name & "!" & rg.Address & _

" ist nicht sichtbar!"

End IfGruß von Luschi

aus klein-Paris



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: