habe gestern von wolf 2 makros bekommen (siehe 8.2.2003 13:49)
das 1. funktioniert tadelos
das 2. gibt folgende Fehlermeldung
Select-Methoe des Rang Objekts konnte nicht ausgeführt werden
nun der code:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim norm_cell As Boolean
norm_cell = False
Select Case Target.Column
Case 4:
Select Case Target.Row
Case 1: HH_BW
Case 26: HH_BW
Case 51: HH_BW
Case 76: HH_BW
Case 101: HH_BW
Case 126: HH_BW
Case 151: HH_BW
Case 176: HH_BW
Case 201: HH_BW
Case 226: HH_BW
Case 23000 To 23005: makro1 Target.Address
Case Else: norm_cell = normaler_range(Target)
End Select
Case 5, 7:
Select Case Target.Row
Case 3: HH_BW
Case 9: HH_BW [b14]
Case Else: norm_cell = normaler_range(Target)
End Select
Case 20 To 40:
Select Case Target.Row
Case Is > 1: norm_cell = normaler_range(Target)
Case Else: HH_BW
End Select
Case Else:
norm_cell = normaler_range(Target)
End Select
If Not norm_cell Then old_target.Select
****************************************
bei der letzten Zeile ( old_target.select) kommt die
Fehlermeldung
wer kann mir weiterhelfen?????
vielen Dank im vorraus für die Mühe die ihr euch macht
gruß Michael