title image


Smiley Re: Datumsausgabe in bestimmte Zelle nach einem Eintrag in einen Zellebreich
Hallo Uwe,

du mußt jedes einzelne If mit End If abschliessen oder mit Else If (oder ElsIf) arbeiten.

Die Abfrage auf Target.Count > 1 brauchst du nur einmal.





      

Private Sub Worksheet_Change(ByVal Target As Range)



    If Target.Count > 1 Then Exit Sub

    

    If Not Intersect(Target, Range("C16:C27")) Is Nothing Then

      [C34] = Date

    End If



    If Not Intersect(Target, Range("F16:F27")) Is Nothing Then

      [F34] = Date

    End If

    

    If Not Intersect(Target, Range("I16:I27")) Is Nothing Then

      [I34] = Date

    End If



    If Not Intersect(Target, Range("L16:L27")) Is Nothing Then

     [L34] = Date

    End If

    

    If Not Intersect(Target, Range("O16:O27")) Is Nothing Then

      [O34] = Date

    End If



End Sub

 



Code eingefügt mit Syntaxhighlighter 3.0




Gruß Worti <img src="http://media2.giga.de/2015/06/snapchat-smiley-sonnenbrille.png">



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: