PDA

Vollständige Version anzeigen : Zellen eingrenzen


Geigenberger
25.02.2008, 15:05
Hallo Leute,

Ich habe hier ein kleines Problem mit einem Makro:

*********************************************
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
Range("AM:AM").Interior.ColorIndex = xlNone
Range("AM" & Target.Row).Interior.ColorIndex = 4
Application.EnableEvents = True
End Sub
*********************************************
Ich möchte die Zellen eingrenzen (zb. A1 bis AL18) da dieses Makro das ganze Arbeitsblatt einbezieht, ich habe zwölf Arbeitsblätter und dadurch wird Excel hier etwas Träge.

Kann mir da einer Helfen?? Wäre sehr nett von Euch!!

Viele Grüße Christian

Sebastian Schulz
25.02.2008, 15:12
Hallo,

habe es nicht getestet. Ist aber ungefähr so.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Row < 18 Then
Range("AM1:AM18").Interior.ColorIndex = xlNone
Range("AM" & Target.Row).Interior.ColorIndex = 4
End If
End Sub

Geigenberger
25.02.2008, 15:18
Hallo Sebastian,

Danke für die schnelle Antwort, klappt aber leider nicht!

Anbei die Datei

Gruß
Christian

Sebastian Schulz
25.02.2008, 15:27
Hallo Christian,

habe es bisschen geändert. Funktioniert es so?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Bereich As Range
Set Bereich = Range("A1:AL18")

If Intersect(Target, Bereich) Is Nothing Then Exit Sub
Range("A1:AL18").Interior.ColorIndex = xlNone
Range("AM" & Target.Row).Interior.ColorIndex = 4

End Sub

Geigenberger
25.02.2008, 15:37
Hallo Sebastian,

Nein leider nicht.

Gruß
Christian

Sebastian Schulz
25.02.2008, 15:43
Hallo,

komisch bei mir funktioniert es prima. Was macht bzw. sagt das Programm denn bei dir?

EarlFred
25.02.2008, 15:46
Hallo Christian,

hast Du Excel zwischendurch mal wiedr neu gestartet?

Die Events waren sicher noch deaktiviert.

Grüße
EarlFred

Geigenberger
25.02.2008, 15:47
Hallo Sebastian,

Wenn ich in eine Zelle clicke sollte der Name in dieser Zeile markiert werden; Wenn ich in eine Andere clicke muß dieser Name markiert werden und die letze Markierung aufgehoben werden sodass immer nur eine Zelle Farbig markiert ist.

Gruß
Christian

Sebastian Schulz
25.02.2008, 15:51
Hallo Christian,

dann schau dir auch mal dieses Beispiel an.
http://www.excel-inlife.de/index.php?option=com_content&task=view&id=22&Itemid=69
Ansonsten macht mein Beispiel aus Beitrag #6 das schon

Geigenberger
25.02.2008, 16:02
Hallo Sebastian,

Ja, es klappt doch #6 Beispiel - Super Danke!!!!!

Wünsche noch eine schöne Woche

Viele Grüße
Christian
:)