Hallo Excel-Experten,
EXCEL 97: Der Inhalt einer aktiven Zelle (Text-über DropDown-Liste auswählbar), die z. b. über Maus oder Cursor nur in den Zellen G5, K5-Q5 jeweils angeklickt werden kann, soll der Inhalt in G12 kopiert werden, um von dort aus ein sverweis zu starten. Es geht mir also darum, dass nur eine Zelle in diesem Bereich aktiv sein darf.
Weiterhin wäre es möglich, dass bei Aktivierung dieser Zelle die Zellenfarbe auf gelb gesetzt, beim Verlassen wieder auf grau zurückgesetzt wird?
Gibt es eine Möglichkeit ohne VBA?
Habe mich hier schon im ersten Teil versucht - ohne Erfolg:
Vielen Dank für Eure Hilfe...
Private Sub workbook_open()
Dim Adr
If ActiveCell.Address = Range("$G5,$K5:$Q5") Then
Adr = ActiveCell.Address()
If Adr = "$G$5" Then GoTo Einfüg
If Adr = "$K$5" Then GoTo Einfüg
If Adr = "$L$5" Then GoTo Einfüg
If Adr = "$M$5" Then GoTo Einfüg
If Adr = "$N$5" Then GoTo Einfüg
If Adr = "$O$5" Then GoTo Einfüg
If Adr = "$P$5" Then GoTo Einfüg
If Adr = "$Q$5" Then GoTo Einfüg
Einfüg:
Selection.Copy
Range("G12").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Application.CutCopyMode = False
End If
End Sub
