Select Case ausführen bei Buchstaben-Eingabe
23.05.2006 10:44:19
Torge
kann jemand folgenden Code, hab ich aus dem Forum, anpassen!
Möchte gern die Anweisung starten, wenn ein Buchstabe eingegeben wird und nicht bei Zahl.
Ist dringend. Beispieldatei liegt bei.
https://www.herber.de/bbs/user/33859.xls
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
'nur ausführen, wenn D4 geändert wurde:
If Intersect(Target, Range("D4")) Is Nothing Then Exit Sub
'Ergebnis durch Eingabe in Zelle
Select Case Range("D4")
Case 0 'Ausblenden
Sheets("Tabelle2").Visible = False
Sheets("Tabelle3").Visible = False
Sheets("Tabelle4").Visible = False
Case 1 'Anzeigen 'wenn hier A steht funktioniert es nicht mehr
Sheets("Tabelle2").Visible = True
Sheets("Tabelle3").Visible = False
Sheets("Tabelle4").Visible = False
Case 2 'Anzeigen 'wenn hier B steht funktioniert es auch nicht
Sheets("Tabelle2").Visible = True
Sheets("Tabelle3").Visible = True
Sheets("Tabelle4").Visible = True
Application.ScreenUpdating = True
End Select
End Sub
Vielen, vielen Dank
Gruß Torge