Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 21:57:06
Diagrammpunkte in unterschiedlichen Farben je nach Wert
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
19.10.2025 10:48:58
Zufällige Uhrzeit
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
428to432
428to432
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Worksheet_SelectionChange - routine

Forumthread: Worksheet_SelectionChange - routine

Worksheet_SelectionChange - routine
19.05.2004 15:14:25
Herbert
hallo,
wie kann ich bitte in einer Worksheet_SelectionChange - routine abfragen, ob die aktivierte zelle die gesuchte namenszelle ist, damit er dann eine aktion ausführt?
vielen dank im voraus!
gruß herbert.
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Worksheet_SelectionChange - routine
ChrisL
Hi Herbert

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Intersect(Target, Range("TestName")) Is Nothing Then
MsgBox "nicht im Bereich"
Else
MsgBox "ist im Bereich"
End If
End Sub

Gruss
Chris
AW: Worksheet_SelectionChange - routine
19.05.2004 16:50:44
Sven
Oder so:

Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.AddressLocal = "$C$9" Then 'z.B. für Zelle C9
Call MyMakro1
End If
End Sub



Sub MyMakro1
<Anweisungen>
End Sub

Gruß, Sven.
Anzeige
AW: Worksheet_SelectionChange - routine
19.05.2004 17:51:30
Herbert
sorry leute, das ist es nicht!
ich formuliere es nochmal etwas anders. ich will wissen, wenn ich auf eine zelle klicke, ob es sich um die zelle mit dem namen "DatumsZelle" handelt und wenn ja, soll das aktuelle datum in die "DatumsZelle" geschrieben werden. vielen dank.
gruß herbert.
AW: Worksheet_SelectionChange - routine
19.05.2004 22:41:39
André
Hallo Herbert,
probier mal das aus!

Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
On Error GoTo ENDE
Set nms = ActiveWorkbook.Names
Set wks = ActiveSheet
For r = 1 To nms.Count
If nms(r).Name = "DatumsZelle" And nms(r).RefersToRange.Address = Target.Address Then
Target.Value = Date
Exit Sub
End If
Next
ENDE:
End Sub

Viele Grüße
André
Anzeige
AW: Worksheet_SelectionChange - routine
20.05.2004 10:52:24
Herbert
tut mir sehr leid, aber auch das funzt nicht. die nachfolgende version ist die, die so funktioniert. doch verschiebt sich immer mal wieder die zelle mit dem datum. damit ich dann nicht jedesmal im vba-editor die adresse ändern muss, will ich mit einem namensfeld arbeiten. doch dann funzt es nicht mehr. es ist zum mäusemelken. vielleicht hat jemand noch eine idee.

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Address = "$B$15" Then [DatumsZelle] = Date
End Sub

leider bin ich nn bis montag außer haus und kann somit erst dann wieder antworten. doch vielleicht habt ihr mir bis dahin eine lösung. vielen dank!
gruß herbert.
Anzeige
AW: Worksheet_SelectionChange - routine
20.05.2004 11:04:47
Heinz
Hallo Herbert,
versuchs mal so:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Address = [DatumsZelle].Address Then [DatumsZelle] = Date
End Sub

Gruß
Heinz
;

Forumthreads zu verwandten Themen

Ereigniscode von WS_SelectionChange to WS_Change ä
WS_SelectionChange

Guten Tag
Nachfolgender Code blendet mir nicht notwendige Spalten aus - allerdings gibt jede Änderung in der Tabelle ein leichtes Flimern. So wollte ich den Code abändern, dass er nur beim Verlassen der Tabelle ausgeführt wird.
Ich dachte, dies könne ich erreichen, wenn ich in der 1. Co...
11.05.2009 15:57:24
Thread-ID: 1074394
2 Beiträge
2 x Worksheet_SelectionChange
Stefanglander

Moin Moin Excelanier,
ich habe zwei Worksheet_SelectionChange Ereignisse.
Zum einen
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) Dim RaBereich As Range If Target.Count > 1 Then Exit Sub ' mehr als eine Zelle ausgewählt Set RaBereich = Rang...
11.10.2009 14:11:02
Thread-ID: 1108895
5 Beiträge
worksheetSelectionChange
brend

Hallo,
auch im Online-Archiv bin ich leider nicht fündig geworden.
Wie muss dieser Code geändert weren, dass dann, wenn in Zelle L16 sich die Zahl ändert, die Kostenstelle in Zelle A2 geschrieben wird:
''bei jeder Blattänderung die Kostenstelle, die per Link in Cells 16,12) improtie...
26.01.2010 08:28:30
Thread-ID: 1132880
3 Beiträge
Worksheet_SelectionChange
Sascha

Guten Abend,
habe von vba nicht besonders viel Ahnung, brauche aber dringend ein Lösung für das folgende Problem:
Mehrdeutiger Name: Worksheet_SelectionChange
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Call SteuerButton(ActiveWindow.VisibleRange(1).Top) End Sub un...
09.03.2010 23:36:13
Thread-ID: 1144708
6 Beiträge
Worksheet_SelectionChange auf Befehl
Markus

Hallo,
das untenstehende Makro funktioniert tadellos und hinterlegt die aktive Zeile blau.
Mein Frage:
kann ich mittels eines Befehls ( z.B. mit einem eingebauten Menüpunkt) diesen Befehl nach dem öffnen des Sheets deaktivieren oder wieder reaktivieren.
( es gibt Anwender, die f...
10.11.2010 10:46:02
Thread-ID: 1186033
6 Beiträge
if, then als Schleife im Worksheet_SelectionChange
Harald

Hallo zusammen,
mit einzelnen if, then- Abfragen bekomme ich es selbst hin. Der Code wird dann aber sehr lang und die Laufzeit wird wahrscheinlich ebenfalls entsprechend lang sein.
Der von oben nach unten zu durchsuchende Bereich: ("O31:O485")
Wenn Wert 1 gefunden, diesen löschen, M...
30.11.2010 19:06:27
Thread-ID: 1189493
6 Beiträge
Anzeige
Worksheet_SelectionChange
Rainer

Hallo,
Kann man das nachfolgende Makro vereinfachen? Falls Spalten gelöscht oder eingefügt werden,
ist hier immer "Handarbeit" notwendig.
Makro ist dazu da, dass bei Klick auf z.Bsp. Zelle D1 alle Spalten, bis auf D1; nächste Spalte; _
letzte Spalte sowie die ersten 4 Spalten,...
12.04.2011 14:13:19
Thread-ID: 1210029
5 Beiträge
Blattschutz bei Worksheet_SelectionChange
Fritz_W

Hallo VBA-Experten,
Im Modul der Tabelle1 befindet sich folgender Code: Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, [H3:K6]) Is Nothing Then With Range("D3:D18") If Application.CountBlank(Range(.Address)) > 0 Then .SpecialCells(xlCellTypeBlanks)(...
18.02.2012 13:51:39
Thread-ID: 1251332
5 Beiträge
Anzeige
Worksheet_SelectionChange
Detlef

Guten Morgen zusammen.
Folgendes Problem:
Ich schreibe eine kleine Anwendung, die Änderungen am Tabellenblatt protokolliert. Klappt auch problemlos über Worksheet_Change für Zelle, Username, neuer Wert usw. Um den alten (überschriebenen) Wert festzustellen, stelle ich über SelectionCha...
09.04.2012 02:57:47
Thread-ID: 1258414
10 Beiträge
Worksheet_SelectionChange
matthias

Hi,Ich möchte, wenn sich z.B. in der Range("B:B") aufgrund einer Eingabe etwas ändert ein Makro ausführen lassen.Wie müsste
Worksheet_SelectionChange(ByVal Target As Excel.Range)
verändert werden?Danke.Matthias
04.07.2002 14:31:00
Thread-ID: 133858
5 Beiträge
Worksheet_SelectionChange bei erzeugter Seite
Achim

Hallo,
gibt es eine Möglichkeit eine Worksheet_SelectionChange-Prozedur für eine Seite zu erzeugen, die nachträglich generiert wurde?
Ich möchte also durch VBA ein neues Tabellenblatt erzeugen (thisworkbook.worksheets.add) und dann in diesem eine Prozedur einfügen, die im Bereich "Works...
17.04.2014 15:22:57
Thread-ID: 1357767
6 Beiträge
Anzeige
Worksheet_SelectionChange
Silvio

Wie kann ich dieses Ereignis eingrenzen?
Also das nur Spalte 37 angezeigt wird wenn der Benutzer im Zellbereich (C9:AH108) sich befindet...
Vielen Dank für eure Hilfe!
26.07.2002 20:37:44
Thread-ID: 141326
5 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

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