Range auf leeren Inhalt abfragen
14.09.2005 12:56:34
Daniel
warum funktioniert untenstehender Code nicht? Ich möchte, das wenn der angegebene Bereich keine Daten enthält, (d.h. vorgängig gelöscht wurden) die Commandbuttuons enabled sind. Kann man das nicht mit isempty abfragen?
Liebe Grüsse Daniel
Sub AktivCmdButtons()
Dim xlsArbeitsmappe As Workbook
Dim xlsTabBlatt As Worksheet
Dim rngBereich As Range
Set xlsArbeitsmappe = Workbooks("Geschäftsstandblatt_V_07.xls")
Set xlsTabBlatt = xlsArbeitsmappe.Worksheets("Geschäft")
Set rngBereich = xlsTabBlatt.Range("A5:DJ19")
'* Wenn der Bereich leer ist, Commandbuttons inaktivieren
If IsEmpty(rngBereich) Then
Set mnuSymbLeiste = CommandBars("AR Tool GE64")
With mnuSymbol
If .Caption = "Löschen Geschäftsgänge" Then
.Enabled = False
End If
If .Caption = "Updaten Geschäftsgänge" Then
.Enabled = False
End If
End With
End If
End Sub