Anzeige
Archiv - Navigation
1104to1108
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
Inhaltsverzeichnis

Code nur in bestimmten Zellen

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

331 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige