Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
340to344
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
340to344
340to344
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Worksheet_Change: kriege Target nicht hin :-((

Worksheet_Change: kriege Target nicht hin :-((
26.11.2003 12:33:39
Franz W.
Hallo Forum,

ich schäme mich ja ganz mächtig, aber ich steh grade total auf dem Schlauch und spiel mich jetzt schon ne Weile mit:

ich möchte, dass "Testbereich" ausgewählt wird NUR nach einer Änderung in Zelle "A9". Aber entweder macht er es immer, oder gar nicht (auch nicht nach Änderung in A9. Einer meiner Versuche:


Private Sub Worksheet_Change(ByVal Target As Range)
Dim myStart As String
myStart = [A9]
If Not Target.Address = myStart Then Exit Sub
Range("TestBereich").Select
End Sub


Ich bitte Euch um Eure Hilfe und sage schon mal Danke im Voraus

Grüße
Franz

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Worksheet_Change: kriege Target nicht hin :-((
26.11.2003 12:38:50
Mac4
Hallo Franz,

so gehts:


Private Sub Worksheet_Change(ByVal Target As Range)
Dim myStart As String
myStart = [A9].Address
If Not Target.Address = myStart Then Exit Sub
Range("TestBereich").Select
End Sub


Marc
AW: Worksheet_Change: kriege Target nicht hin :-((
26.11.2003 12:44:19
Franz W.
Hallo Marc,

ganz vielen Dank!! So eine Kleinigkeit :-((

Vielen Dank und Grüße
Franz
AW: Worksheet_Change: kriege Target nicht hin :-((
26.11.2003 12:41:39
xXx
Hallo,
mit Intersect abfragen:
If Application.Intersect(Target,Range("a9")) is Nothing then Exit Sub.

Gruß aus'm Pott
Udo
http://www.excelerator.de

P.S. Das Forum lebt auch von den Rückmeldungen der Frager an die Antworter!
Anzeige
AW: Worksheet_Change: kriege Target nicht hin :-((
26.11.2003 12:42:51
PeterW
Hallo Franz,

ohne zusätzliche Variable:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$9" Then
Range("TestBereich").Select
End If
End Sub

Gruß
Peter
Vielen Dank Euch allen !!
26.11.2003 12:45:49
Franz W.
Da lern ich ja mehrere Möglichkeiten, wie man das machen kann!

Vielen Dank Euch und Grüße
Franz

250 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige