2 Private Sub Worksheet_Change zusammenführen
13.10.2015 22:09:49
Uwe
ich hoffe, Ihr könnt mir helfen. Ich verzweifele an der Zusammenführung zweier separat bereits funktionierender VBA-Codes.
Könnt Ihr mir hierbei helfen? Die Codes lauten:
Code 1:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
Set KeyCells = Range("N11")
If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then
Sheets("Tabelle2").PageSetup.PrintArea = Worksheets("Tabelle2").Range("A1")
End If
End Sub
Code 2:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim wks As Worksheet, wb As Workbook
Set wb = ThisWorkbook
If Target.Address = "$N$15" Then
If IsDate(Target) Then
For Each wks In wb.Worksheets
With wks.PageSetup
.CenterFooter = "Stand: " & Format(Target.Value, "DD.MM.YYYY")
End With
Next wks
Else
MsgBox "In Zelle N15 muss ein Datum eingegeben werden!"
End If
End If
End Sub
Vielen Dank schon jetzt.
Gruß
Uwe
Anzeige