AW: Nur einen Eintrag im Bereich zulassen
03.08.2008 20:11:00
Lemmi
Hallo Daniel!
hab noch ne kleine Frage! Wie bringe ich die zwei Worksheet_Change zusammen!
... einen anderen Namen vergeben als Change (.. ist wenn ich das richtig sehe mit einer Funktion/ Prozedur verbunden) geht nicht!
Hmm..aber wie dann?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub 'nicht bei Markierung mehrerer Zellen
'If Application.CutCopyMode Then Exit Sub 'nicht beim Kopieren/Ausschneiden
Application.EnableEvents = False
'Veränderungen im Bereich G6:CZ1000 werden in derjewaligen Zeile 5 mit Datum _
protokolliert
If Not Intersect(Target, Range("G6:CZ1000")) Is Nothing Then
'Cells(5, Target.Column) = Now ' Ausgabe TT:MM:JJ und hh:mm:ss
Cells(5, Target.Column) = Date ' Ausgabe TT:MM:JJ
End If
Application.EnableEvents = True
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng1 As Range, rng2 As Range
Dim Eingabe As String
Set rng2 = Range("G4:AB4")
Set rng1 = Intersect(Target, rng2)
If Not rng1 Is Nothing Then
Application.EnableEvents = False
Eingabe = rng1(1).Formula
rng2.ClearContents
rng1(1).Formula = Eingabe
Application.EnableEvents = True
End If
Gruß
Lammi