Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Zellen markieren

Zellen markieren
Schiwy
Hallo Leute,
wie kann ich per Makro bei einem aktivierten Kontrollkäschen alle links daneben liegenden Zellen markieren lassen?
D.h. ein Kontrollkästchen ist in i9 vorhanden, nun soll beim aktivieren des Kästchens a9:i9 markiert werden.
Dies muss allerdings dynamisch sein, da das Kästchen auch in i10 oder i22 sein kann! Somit in diesen Fällen a10:i10 bzw. a22:i22 markiert werden müssen!
Kann mich jemand helfen?
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Zellen markieren
23.07.2010 12:35:31
Hajo_Zi
Hallo,
weise dem Kontrollkästchen den entsprechenden Code zu, den Du mit dem Makrorecorder aufzeichnen kannst.

AW: Zellen markieren
23.07.2010 12:39:19
Schiwy
Ach so,
hab vergessen das die Kontrollkästchen per makro erstellt werden und im Laufe der Zeit in der Tabelle nach unten wandern. Daher kann ich nicht einfach per recorder die Aktion aufzeichnen, da das Kontrollkästchen erst in i9 liegt und später (nach anderen eingaben) z.B. in i22 um dann aktiviert zu werden. Es wandert also immer die Spalte runter.
Gruß
Schiwy
Anzeige
AW: Zellen markieren
23.07.2010 12:53:57
Hajo_Zi
Hallo,
ich gehe mal davon aus das die Kontrollbox kleiner als Zeilenhöhe.
Folgender Code
Option Explicit
Sub Farbe()
'* H. Ziplies                                     *
'* 23.07.10                                       *
'* erstellt von HajoZiplies@web.de                *
'* http://Hajo-Excel.de/
If Cells(ActiveSheet.Shapes(Application.Caller).BottomRightCell.Row, 1).Interior.Color =  _
255 Then
Range(Cells(ActiveSheet.Shapes(Application.Caller).BottomRightCell.Row, 1), _
Cells(ActiveSheet.Shapes(Application.Caller).BottomRightCell.Row, 9)).Interior. _
ColorIndex = xlNone
Else
Range(Cells(ActiveSheet.Shapes(Application.Caller).BottomRightCell.Row, 1), _
Cells(ActiveSheet.Shapes(Application.Caller).BottomRightCell.Row, 9)).Interior. _
Color = 255
End If
End Sub
Gruß Hajo
Anzeige
AW: Zellen markieren
23.07.2010 13:53:03
Schiwy
Gute Idee,
probiers mal aus...
Danke!
Schönes WoEnd
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige