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

Beiträge aus den Excel-Beispielen zum Thema "mehrfaches Change Ereignis"