Herbers Excel-Forum - das Archiv

mehrfaches Change Ereignis

Bild

Betrifft: mehrfaches Change Ereignis
von: Erich

Geschrieben am: 17.03.2005 19:21:24
Hallo Excelprofis,
habe ein kleines Problem, wie kann ich das "
Private Sub Worksheet_Change(ByVal Target As Range)" öffters in einer Tabelle verwenden.
für eure hilfe wäre ich sehr dankbar.
gruß
erich
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub
On Error GoTo ERRORHANDLER
With Worksheets("Zeitdaten")
Cells(Target.Row, 3).Value = WorksheetFunction.VLookup(Target.Value, .Columns("A:D"), 2, 0)
End With
ERRORHANDLER:
Application.EnableEvents = True
End Sub


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 4 Then Exit Sub
On Error GoTo ERRORHANDLER
With Worksheets("Zeitdaten")
Cells(Target.Row, 5).Value = WorksheetFunction.VLookup(Target.Value, .Columns("A:D"), 4, 0)
End With
ERRORHANDLER:
Application.EnableEvents = True
End Sub

Bild

Betrifft: AW: mehrfaches Change Ereignis
von: P@ulchen

Geschrieben am: 17.03.2005 19:28:32
Hallo Erich,
probier mal so:


Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ERRORHANDLER
If Target.Column = 2 Then 
    Cells(Target.Row, 3).Value = WorksheetFunction.VLookup(Target.Value, Worksheets("Zeitdaten").Columns("A:D"), 2, 0)
End If
If Target.Column = 4 Then
    Cells(Target.Row, 5).Value = WorksheetFunction.VLookup(Target.Value, Worksheets("Zeitdaten").Columns("A:D"), 4, 0)
End If
ERRORHANDLER:
   Application.EnableEvents = True
End Sub

     Code eingefügt mit Syntaxhighlighter 2.5

Gruß aus Leipzig
P@ulchen
Das Forum lebt auch von den Rückmeldungen !
Bild

Betrifft: AW: mehrfaches Change Ereignis
von: Erich
Geschrieben am: 17.03.2005 19:41:37
Danke Pauchen,
du hast mir super geholfen, danke.
Grüße nach Leipzig
Erich
 Bild
Excel-Beispiele zum Thema "mehrfaches Change Ereignis"
Im Change-Ereignis Eingabe in oder Leeren von Zellen erkennen Makroverzweigung im Change-Ereignis
Beispiele zum Einsatz des SelectionChange-Ereignisses Die Ereignisse Zellauswahl, Eingabe und Doppelklick
SVERWEIS als Ereignisprozedur ComboBox mit Ereigniscode in Tabellenblatt erstellen
DoubleClick-Ereignis für alle Arbeitsmappen initialisieren Begrenzung der Textlänge über Ereignis-Programmierung