Worksheet_Change: kriege Target nicht hin :-((

• Worksheet_Change: kriege Target nicht hin :-(( von Franz W. vom 26.11.2003 12:33:39
  • AW: Worksheet_Change: kriege Target nicht hin :-(( - von Mac4 am 26.11.2003 12:38:50
    • AW: Worksheet_Change: kriege Target nicht hin :-(( - von Franz W. am 26.11.2003 12:44:19
  • AW: Worksheet_Change: kriege Target nicht hin :-(( - von xXx am 26.11.2003 12:41:39
  • AW: Worksheet_Change: kriege Target nicht hin :-(( - von PeterW am 26.11.2003 12:42:51
  • Vielen Dank Euch allen !! - von Franz W. am 26.11.2003 12:45:49

Betrifft: Worksheet_Change: kriege Target nicht hin :-((
von: Franz W.
Geschrieben am: 26.11.2003 12:33:39
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

Betrifft: AW: Worksheet_Change: kriege Target nicht hin :-((
von: Mac4
Geschrieben am: 26.11.2003 12:38:50
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

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

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

Vielen Dank und Grüße
Franz

Betrifft: AW: Worksheet_Change: kriege Target nicht hin :-((
von: xXx
Geschrieben am: 26.11.2003 12:41:39
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!

Betrifft: AW: Worksheet_Change: kriege Target nicht hin :-((
von: PeterW
Geschrieben am: 26.11.2003 12:42:51
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

Betrifft: Vielen Dank Euch allen !!
von: Franz W.
Geschrieben am: 26.11.2003 12:45:49
Da lern ich ja mehrere Möglichkeiten, wie man das machen kann!

Vielen Dank Euch und Grüße
Franz