Fehlermeldung vermeiden
04.08.2003 14:56:57
sigi
wie muß ich nachfolgenden Code abändern, dass wenn ich
Case "C6" mit "entfernen" oder "Inhalte lösche"
kein Fehler angezeigt wird?
Danke!
Guß
Sigi
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim pruef As Boolean
If Intersect(Target, Range("C6:c250")) Is Nothing Then Exit Sub
If Target.Value <> "" And Not IsNumeric(Target.Value) Then pruef = True
If Target.Value = "" Or Target.Value = 0 Then pruef = False
Select Case Target.Address(False, False)
Case "C6"
If pruef = True Then Call Haus1_einblenden
If pruef = True Then Call Haus1_Mieten_einblenden
If pruef = False Then Call Haus1_ausblenden
If pruef = False Then Call Haus1_Mieten_ausblenden
End Sub
Sub Haus1_einblenden()
Sheets("Haus1 Flächen").Visible = True
ActiveWindow.ScrollWorkbookTabs Sheets:=-6
Sheets("Eingaben").Select
Range("C7").Select
End Sub
Sub Haus1_ausblenden()
Sheets("Haus1 Flächen").Select
Range("A6:F22").Select
Selection.ClearContents
Range("A6").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("Haus1 Flächen").Visible = False
Sheets("Eingaben").Select
Range("c7").Select
End Sub
Anzeige