Code nur in bestimmten Zellen

Forumthread: Code nur in bestimmten Zellen

Stefanglander

Moin Moin Excelgemeinde,
habe beim recherchieren folgenden Code gefunden:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If IsEmpty(Target) Then Exit Sub
If Target = "1" Then Target = "oben"
If Target = "2" Then Target = "unten"
If Target = "3" Then Target = "rechts"
If Target = "4" Then Target = "links"
End Sub

Wie muss das Worksheet Change nun geändert werden, so das es nur für die Zellen D2:D5 und die Zelle K3 gilt?
Gruß
Stefan

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Code nur für bestimmte Zellen

Erich
Korrektur

Erich
AW: Korrektur

Stefanglander
AW: Code nur in bestimmten Zellen

fcs
Upps

Stefanglander

Code nur für bestimmte Zellen

27.09.2009 13:43:00

Erich

Hi Stefan,
probier mal


Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Count = 1 Then
If Not IsEmpty(Target) Then
If Not Intersect(Target, Range("D2:D5, K3")) Is Nothing Then
Select Case Target
Case "1": Target = "oben"
Case "2": Target = "unten"
Case "3": Target = "rechts"
Case "4": Target = "links"
End Select
End If
End If
End If
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Korrektur

27.09.2009 13:45:45

Erich

Hi,
da war noch etwas zu viel:


Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Count = 1 Then
If Not Intersect(Target, Range("D2:D5, K3")) Is Nothing Then
Select Case Target
Case "1": Target = "oben"
Case "2": Target = "unten"
Case "3": Target = "rechts"
Case "4": Target = "links"
End Select
End If
End If
End Sub

"If IsEmpty(Target)..." muss nicht abgefragt werdeen - später wird ja 1,2,3,4 abgefragt.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

AW: Korrektur

27.09.2009 13:52:16

Stefanglander

Hallo Erich, hallo FCS.
haut einwandfrei hin, bedanke mich ganz herzlich.
Gruß
Stefan

AW: Code nur in bestimmten Zellen

27.09.2009 13:44:18

fcs

Hallo Stefan,
geht so
Gruß
Franz

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("D2:D5")) Is Nothing _
Or Not Intersect(Target, Range("K3")) Is Nothing Then
If IsEmpty(Target) Then Exit Sub
If Target = "1" Then Target = "oben"
If Target = "2" Then Target = "unten"
If Target = "3" Then Target = "rechts"
If Target = "4" Then Target = "links"
End If
End Sub

Upps

28.09.2009 18:46:37

Stefanglander

hallo Franz,
ich glaube ich habe gestern vergessen mich zubedanken.
Danke Dir, wenn nun auch mit Verspätung.
Gruss
Stefan

Beliebteste Forumthreads (12 Monate)

Forumthread: Code nur in bestimmten Zellen

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread