title image


Smiley Datumsausgabe in bestimmte Zelle nach einem Eintrag in einen Zellebreich
Hallo Zusammen,



ich habe mal wieder ein kleines Problemchen:



ich habe ein Makro das bei einem Eintrag in einem zuvor definierten Zellbereich

in eine bestimmte Zelle einen Datumseintrag macht.



Das funktioniert tadellos.



Makro:



Option Explicit



Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Count > 1 Then Exit Sub

If Not Intersect(Target, Range("A1:P32")) Is Nothing Then

[C33] = Date

End If

End Sub





-->



Jetzt möchte ich die Tabelle in mehrere einzelne definierte Zellbereiche

einteilen, wobei jeder Bereich für sich das Datum in eine bestimmte Zelle übergeben

werden soll.



Das Makro hab ich verändert, versucht anzupassen, funtioniert aber nicht

wie gewünscht:



Option Explicit

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

If Target.Count > 1 Then Exit Sub

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

[F34] = Date

If Target.Count > 1 Then Exit Sub

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

[I34] = Date

If Target.Count > 1 Then Exit Sub

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

[L34] = Date

If Target.Count > 1 Then Exit Sub

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

[O34] = Date

End If

End If

End If

End If

End If

End Sub





Kann mir da jemand helfen??



Wäre sehr dankbar dafür.



Mit freundlichen Grüßen von Uwe

































geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: