Ich habe folgendes Makro, das auf dem Tabellenblatt 1 verschiedene Aktionen abhängig von seiner Eingabe im Target-Objekt ausführt.
Jetzt würde ich gerne, dass bestimmte Eingaben nur in bestimmten Zeilen abhängig von ihrer Spalte eine Aktion auslösen, andere Eingaben hingegen sollen in jeder Zeile eine Aktion ausführen. Dafür habe ich bestimmte Bereiche erstellt, die abhängig von einer Variable VarKurz (die jeweils beim Betreten der Zelle gesetzt werden), einen Bereich definieren. Das Target und die Variable bestimmen also jedesmal die Kreuzmenge und damit den Wirkungsbereich.
Derzeit habe ich es unschön gelöst, if Nothing goto Uebersprung und dann ein neues Select Case gesetzt. Würde gerne, dass das die 2 Select Cases zu einem Zusammengefasst werden. Vl kann man ja dann hiter das Case Target = "?" noch einen Zusatz hinzufügen ?
Puh, ich hoffe, dass ich das verständlich erklären konnte.
Sandra
Sub Auswahl(Target As Range)
Dim Wirkungsbereich As Range
'VarKurz wird in einem Makor vorher schon als String bestimmt
If VarKurz = "A" Then Set Wirkungsbereich = Range("D15:API22")
If VarKurz = "B" Then Set Wirkungsbereich = Range("D24:API31")
If VarKurz = "C" Then Set Wirkungsbereich = Range("D33:API40")
If VarKurz = "D" Then Set Wirkungsbereich = Range("D42:API49")
If VarKurz = "E" Then Set Wirkungsbereich = Range("D51:API58")
If Intersect(Target, Wirkungsbereich) Is Nothing Then GoTo Uebersprung
Select Case True
Case Target = "F"
'mach dies nur im o.g. Target-Wirkungsbereich
Case Target ="G"
'mach dies nur im o.g. Target-Wirkungsbereichh
End Select
Uebersprung: ' geht natürlich nicht so ---