2 verschieden VBAs zusammen bringen, laufen lassen
28.11.2018 20:58:09
Frank
ich benötige eure Hilfe.
Ich habe den VBA-Code:
Private Sub Workbook_Open()
Dim raZelle As Range, raBereich As Range
With Worksheets("Kalender")
.Unprotect "dragon"
Set raBereich = .Range("C7:C217")
For Each raZelle In raBereich
If raZelle.Value der mir die Zeilen nach bestimmten Kriterien sperrt.
Nun habe ich noch einen VBA-Code (s.u.) gefunden, der mir Änderungen, die im Reiter Kalender vorgenommen werden, im Reiter Protokolle, protokollieren kann.
Wie bringe ich die beiden Codes zusammen, bzw. was muss ich wie eingeben, damit beide funktioniern?
Protokollierungs VBA Code :
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim ErsteFreieZeile As Long
If Target.Count > 1 Then Exit Sub
If Sh.Name = "Protokoll" Then Exit Sub
If Intersect(Target, Sh.Range("A1:AK220")) Is Nothing Then Exit Sub
With Sheets("Protokoll")
ErsteFreieZeile = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(ErsteFreieZeile, 1) = Sh.Name
.Cells(ErsteFreieZeile, 2) = Target.Address(0, 0)
.Cells(ErsteFreieZeile, 3) = Target.Value
.Cells(ErsteFreieZeile, 5) = Date
.Cells(ErsteFreieZeile, 6) = Time
.Cells(ErsteFreieZeile, 7) = Environ("username")
End With
End Sub
Einen angenehmen Abend
Frank