zwei macros in einem Tabellenblatt

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim z1
Dim eingbereich
If Sheets("Fahrer").Range("n1").Value = "an" Then
z1 = Selection.Row
Set eingbereich = Range("c9:k1600")
eingbereich.Interior.ColorIndex = xlNone
If Application.Intersect(Selection, eingbereich) Is Nothing Then Exit Sub
Range(Cells(z1, 1), Cells(z1, 11)).Interior.ColorIndex = 36 'gelb 36
End If
If Sheets("Fahrer").Range("n1").Value = "aus" Then
z1 = Selection.Row
Set eingbereich = Range("c9:k1600")
eingbereich.Interior.ColorIndex = xlNone
If Application.Intersect(Selection, eingbereich) Is Nothing Then Exit Sub
End If
'#Exit Sub
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim schlNr
Dim Bezeich
Dim Ort
ActiveSheet.Unprotect ("")
Dim strDir As String
Cancel = True
If Target.Column  3 Then Exit Sub
If IsEmpty(Target) Then Exit Sub
schlNr = ActiveCell(3, 3)
Bezeich = ActiveCell(3, 4)
Ort = ActiveCell(3, 5)
'With ActiveWorkbook.Worksheets("drucken")
'With Sheets("drucken")
With drucken
Worksheets("drucken").Range("a13").Value = schlNr
Worksheets("drucken").Range("b13").Value = Bezeich
Worksheets("drucken").Range("c13").Value = Ort
End With
'End If
ActiveSheet.Protect ("")
Sheets("drucken").Select
'End With
End Sub