Zellenmarkierung

Bild

Betrifft: Zellenmarkierung
von: Kay
Geschrieben am: 18.11.2003 08:53:02

Hallo Profis

Ein kleines Problem möchte ich gelöst haben.
Ich möchte das beim Anklicken einer Zelle (z.B. Zelle A1)diese Zelle "rot" wird.
Wenn ich dann die Zelle B1 anklicke soll diese dann "rot" werden und Zelle A1 wieder "weiß" werden.

Vielen Dank für die Lösung

Bild


Betrifft: AW: Zellenmarkierung
von: andreas e
Geschrieben am: 18.11.2003 09:25:43

hallo kay,
sieh dir mal das bsp. von hajo an
http://home.media-n.de/ziplies/gepackt/vba/zeile_markieren_mehrere_register_abschalten.zip
gruß
andreas e
http://www.skripteundaufgaben.de
viele kostenlose downloads zu excel und mehr


Bild


Betrifft: AW: Zellenmarkierung
von: Kay
Geschrieben am: 18.11.2003 19:36:42

Wollte mich noch mal auf diesem Wege für
deine Arbeit bedanken.

Bis dann ...


Bild


Betrifft: AW: Zellenmarkierung
von: IngoG
Geschrieben am: 18.11.2003 09:30:08

HAllo KAy

versuchs mal mit folgender sub:


Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
  UsedRange.Interior.ColorIndex = xlNone
  With Target.Interior
           .ColorIndex = 3
           .Pattern = xlSolid
  End With
End Sub


Eintragen mußt du die Subroutine in dein Tabellenblatt.

Gruß Ingo




Bild


Betrifft: AW: Zellenmarkierung
von: Kay
Geschrieben am: 18.11.2003 19:40:25

Nochmal danke für's helfen.

mfg Kay


Bild


Betrifft: AW: Zellenmarkierung
von: WernerB.
Geschrieben am: 18.11.2003 09:55:50

Hallo Kay,

dieses Makro gehört in das Modul des betreffenden Tabellenblattes:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    If Intersect(Range("A1:B1"), Target) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    Select Case Target.Address(False, False)
      Case "A1"
        If Target.Interior.ColorIndex = xlNone Then
          Range("A1").Interior.ColorIndex = 3
          Range("B1").Interior.ColorIndex = xlNone
        End If
      Case "B1"
        If Target.Interior.ColorIndex = xlNone Then
          Range("B1").Interior.ColorIndex = 3
          Range("A1").Interior.ColorIndex = xlNone
        End If
    End Select
    Application.EnableEvents = True
End Sub

Viel Erfolg wünscht
WernerB.

P.S.: Das Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter (siehe Forums-FAQ).


Bild


Betrifft: AW: Zellenmarkierung
von: Kay
Geschrieben am: 18.11.2003 19:43:11

Auch dir nochmal ein dickes Danke für deine geopferte Zeit
und Mühe.

Gruß Kay


Bild


Betrifft: AW: Zellenmarkierung
von: Kay
Geschrieben am: 18.11.2003 19:48:17

Na ist meine erste Antwort im EDV-Nirwana hängengeblieben?

Vielleicht kommt ja jetzt mein großes Danke bei dir an
für deine geopferte Zeit und Mühe.

Gruß Kay


Bild

Beiträge aus den Excel-Beispielen zum Thema " Ist es möglich auf andere Arbeitsmappen...?"