Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1636to1640
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

Change Methode: Wenn EINER der beiden Spalten...

Change Methode: Wenn EINER der beiden Spalten...
31.07.2018 15:35:01
Nati
Hi Leute,
habe ein Change Event, welches greifen soll, wenn eine Zelle EINER der beiden Spalten ausgewählt wird.
Ich glaube momentan funktioniert dies nur wenn BEIDE Spalten angesprochen werden (Vermutung)
Mein Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim mytarget1
Dim mytarget2
Set mytarget1 = Intersect(Target, Columns(35))
Set mytarget2 = Intersect(Target, Columns(13))
If Intersect(Target, Range("AI:AI, M:M")) Is Nothing Then Exit Sub
'Fehlerhandling
On Error GoTo Errorhandler
Application.EnableEvents = False
' DIESE SPALTE DANN....
If Target.Column = 35 Then
Call ZamsAbhängigkeit
End If
' DIESE SPALTE DANN....
If Target.Column = 13 And (Target.Value = "CN" Or Target.Value = "cn") Then
Call meldung
End If
End If
Exit Sub
'--- Bei Fehler:
Errorhandler:
MsgBox Err.Description & Chr(13) & Err.Number & Chr(13) & Err.Source, _
vbCritical, "An error has occured!"
Application.EnableEvents = True
Exit Sub
End Sub

GRÜßle,
Nati

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Change Methode: Wenn EINER der beiden Spalten...
31.07.2018 15:39:06
Nati
SORRY, es klappt :D
Habe nur vergessen, das Application.EnableEvents = False nach On Error GoTo Errorhandler
rauszulöschen...
AW: Trotzdem Vorschlag einer Alternative...
31.07.2018 15:43:13
Michael
...weil ich dabei war:
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
Select Case .Column
Case Is = 13
If UCase(.Value) = "CN" Then
End If
Case Is = 35
'case else
End Select
End With
End Sub
LG
Michael
AW: Trotzdem Vorschlag einer Alternative...
31.07.2018 15:44:54
Nati
Super, danke Michael!
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige