Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: 2 Private Sub Worksheet_Change zusammenführen

2 Private Sub Worksheet_Change zusammenführen
13.10.2015 22:09:49
Uwe
Hallo zusammen,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: 2 Private Sub Worksheet_Change zusammenführen
13.10.2015 23:21:58
Matthias
Hallo
Probiers mal so ...
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim wks As Worksheet, wb As Workbook
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
If Target.Address = "$N$15" Then
Set wb = ThisWorkbook
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
Gruß Matthias

Anzeige
AW: 2 Private Sub Worksheet_Change zusammenführen
14.10.2015 09:28:50
Uwe
Hallo,
genial, es funktioniert.
Vielen, vielen Dank.
Gruß
Uwe

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige