Microsoft Excel

Herbers Excel/VBA-Archiv

Ereigniscode aus zwei Teilen fnk. nicht

Betrifft: Ereigniscode aus zwei Teilen fnk. nicht von: edie
Geschrieben am: 19.11.2007 20:13:20

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

  

Betrifft: Da gibt es eine Schlüsselzeile, die dafür... von: Luc:-?
Geschrieben am: 19.11.2007 20:22:12

...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 :-?


  

Betrifft: AW: Da gibt es eine Schlüsselzeile, die dafür... von: edie
Geschrieben am: 19.11.2007 21:14:56

Hallo Luc,

ich habe es begriffen. Fällt mir nicht gerade leicht den zweite Teil
als "Normale" Prozedur zuschreiben.

Vielen Dank.

Grüße


  

Betrifft: Bitte sehr und viel Erfolg! Gruß owT von: Luc:-?
Geschrieben am: 19.11.2007 22:47:39

:-?


 

Beiträge aus den Excel-Beispielen zum Thema "Ereigniscode aus zwei Teilen fnk. nicht"