Hilfe beim Makro ändern
09.02.2009 16:46:00
Josef_T
Habe gestern hier im Forum dieses Makro von Ramses gefunden. Meine Frage: kann man dieses Makro so abändern, dass anstatt die Adresse B40, der Bereich B40:B400 abgedeckt wird? Wenn ja, wie denn bitte?
Habe bereits mit Range experimentiert aber leider kein Erfolg gehabt.
Es wäre sehr nett von Euch, wenn mir dabei jemand helfen würde.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) "B40" Then Exit Sub
Application.EnableEvents = False
Select Case Target
Case "1234"
Target = "Benutzer A"
Case "2345"
Target = "Benutzer B"
Case "3456"
'usw.
Case Else
Target = "Unbekannter Benutzer"
End Select
Application.EnableEvents = True
End Sub
Danke schon mal im Voraus.
Gruss
Josef