VBA Druckmakro
03.12.2013 14:51:20
WalterK
folgendes Druckmakro funktioniert wenn ich die Zelle N1 durch eine direkte Eingabe ändere. Das Makro sollte aber auch funktionieren, wenn N1 durch das Formulasteuerelement Drehfeld geändert wird.
Was muss ich ändern für mein Vorhaben.
Hier der derzeitige Code:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
With ActiveSheet
If .Range("N1") = Target And .Range("N15") = 1 Then
.PrintOut From:=1, To:=1
End If
End With
End Sub
und hier noch eine Beispielmappe:https://www.herber.de/bbs/user/88360.xls
Besten Dank für die Hilfe und Servus, Walter