Wiederholender Bereich
18.09.2007 16:56:32
Thomas
in meinem
"Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
On Error GoTo ERRORHANDLER"
stehen mehrere Bereiche, die eben das eigentliche Makro auslösen. Diese Bereiche sind alle 29 Zeilen wiederholend.
Bisher bin ich dabei es so zu schreiben:
If ActiveCell.Address(0, 0) = "B39" Or ActiveCell.Address(0, 0) = "B40" Or _
ActiveCell.Address(0, 0) = "B41" Or ActiveCell.Address(0, 0) = "B42" Or _
ActiveCell.Address(0, 0) = "B43" Or ActiveCell.Address(0, 0) = "B44" Or _
ActiveCell.Address(0, 0) = "B45" Or ActiveCell.Address(0, 0) = "B46" Then Call Start
demnach der nächste Breich müsste lauten:
If ActiveCell.Address(0, 0) = "B69" Or ActiveCell.Address(0, 0) = "B70" Or _
ActiveCell.Address(0, 0) = "B71" Or ActiveCell.Address(0, 0) = "B72" Or _
ActiveCell.Address(0, 0) = "B73" Or ActiveCell.Address(0, 0) = "B74" Or _
ActiveCell.Address(0, 0) = "B75" Or ActiveCell.Address(0, 0) = "B76" Then Call Start
dazwischen gibts noch ettliche andere Bereiche, die allerdings gleich aufgebaut sind.
Gibt es nicht die Möglichkeit dies schneller und komfortabler zu programmieren ? Der Bereich streckt sich bis Zeile 916, also wär ich morgen noch dran, das so in diesem Stil zu programmieren.
Vielen, vielen Dank !
Greetings
Thomas