Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
25.04.2024 11:49:37
Array verwenden
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
620to624
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
620to624
620to624
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Aktive Zelle unterlegen, begrenzen.

Aktive Zelle unterlegen, begrenzen.
13.06.2005 07:37:04
Josef
Guten Morgen,
kann mir bitte jemand bei folgendem Problem helfen?
Das hochgeladene Modul, unterlegt die Aktive Zelle über das ganze TB. Ich möchte aber, dass die Aktive Zelle nur in dem Bereich "B4:H24" unterlegt wird.
Die restlichen Zellen, sollen normal bearbeitet werden können.
https://www.herber.de/bbs/user/23827.xls
Danke schon mal im Voraus.
Josef

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

Betreff
Datum
Anwender
Anzeige
AW: Aktive Zelle unterlegen, begrenzen.
13.06.2005 07:45:57
Hajo_Zi
Hallo Josef,
Option Explicit
Dim lastcell As Range
Dim farbe As Integer

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
On Error Resume Next
lastcell.Interior.ColorIndex = farbe
If Target.Column >= 2 And Target.Column <= 8 _
And Target.Row >= 4 And Target.Row <= 24 Then
farbe = Target.Interior.ColorIndex
Target.Interior.ColorIndex = 8
Set lastcell = Target
End If
End Sub

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem Windows 2000 SP4 und Excel Version 2000 SP3.


Anzeige
AW: Hajo, alles OK.
13.06.2005 12:04:33
Josef
Hallo Hajo,
da Du das Makro variabel programmiert hast, ist es natürlich flexibel im Einsatz.
Danke Dir sehr
Gruß
Josef
AW: Aktive Zelle unterlegen, begrenzen.
13.06.2005 07:48:57
Ralf
Hallo Josef,
diese Zeile am Anfang in dein Makro und es sollte gehen:
If Intersect(Range("B4:H24"), Target) Is Nothing Then Exit Sub
Gruß
Ralf
AW: Ralf, es hat funktioniert..
13.06.2005 11:58:20
Josef
Hallo Ralf,
habe die Zeile eingebaut und es klappt prima.
Danke Dir
Gruß
Josef

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige