HERBERS Excel-Forum - das Archiv
Ereigniscode aus zwei Teilen fnk. nicht
edie

Hallo Zusammen,
habe zwei Ereigniscode in eine Worksheet_Change zusammengefasst, leider
funktioniert der zweite Teil nicht mehr:
'2 Teil
If Target.Column <> 27 Then Exit Sub
If IsEmpty(Target) Then Exit Sub
If Target.Offset(0, 1).Value = "" Then
Cells(Target.Row, 28).Value = Cells(Target.Row, 29).Value
End If
Wie definiere ich Target damit beide Teile funktionieren?
Hier der ganze Code:


Private Sub Worksheet_Change(ByVal Target As Range)
Dim var As Variant
If Target.Row <> 3 Or Target.Column < 2 And Target.Column > 13 Then Exit Sub
With Worksheets("Anbauplanung")
var = Application.Match(Target.Value, .Columns(28), 0)
If Not IsError(var) Then
Target.Offset(0, 1).Value = .Cells(var, 32).Value
End If
End With
'2 Teil
If Target.Column <> 27 Then Exit Sub
If IsEmpty(Target) Then Exit Sub
If Target.Offset(0, 1).Value = "" Then
Cells(Target.Row, 28).Value = Cells(Target.Row, 29).Value
End If
End Sub


Hat jemand eine Idee und kann helfen?
Vielen Dank im Voraus.
Grüße

Da gibt es eine Schlüsselzeile, die dafür...
Luc:-?

...verantwortlich sein wird, Edie,
und mit der ich nicht viel anfangen kann...
If Target.Row <> 3 Or Target.Column < 2 And Target.Column > 13 Then Exit Sub
Wie ist denn hier die Beziehung zwischen Or und And? Sicherheitshalber setzt man da eigentlich Klammern. Jedenfalls wird die Prozedur bei allem beendet, was dieser Bedingung entspricht (wie auch immer VBA das interpretieren mag).
Ich schlage in solchen Fällen stets vor, die Eventproc quasi als Verteiler zu pgm und aus ihr heraus für die jeweils vorliegende Bedingung "normale" Prozeduren aufzurufen, denn es ist nur jeweils eine derartige Prozedur pro Blatt möglich!
Gruß Luc :-?

AW: Da gibt es eine Schlüsselzeile, die dafür...
edie

Hallo Luc,
ich habe es begriffen. Fällt mir nicht gerade leicht den zweite Teil
als "Normale" Prozedur zuschreiben.
Vielen Dank.
Grüße

Bitte sehr und viel Erfolg! Gruß owT
Luc:-?

:-?