Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Aktive Zelle unterlegen, begrenzen.

Forumthread: 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
Anzeige

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
Anzeige
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)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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