Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1340to1344
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VBA Druckmakro

VBA Druckmakro
03.12.2013 14:51:20
WalterK
Hallo,
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

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

Betreff
Datum
Anwender
Anzeige
AW: VBA Druckmakro
03.12.2013 15:03:49
EtoPHG
Hallo Walter,
Nimm statt eines Formularsteuerelements ein ActiveX-Drehfeld.
In den Eigenschaften setze die LinkedCell N1.
Die Max und Min ebenfalls anpassen.
Ersetze deinen _Change-Ereignis-Code durch:
Private Sub SpinButton1_Change()
If Range("N15") = 1 Then
PrintOut From:=1, To:=1
End If
End Sub
Gruess Hansueli

Perfekt, danke Hansueli. Servus, Walter
03.12.2013 15:33:47
WalterK
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige