Thema Datum  Von Nutzer Rating
Antwort
06.01.2020 09:40:33 Gast
*****
Solved
Blau VBA Programmierung drucken und zählen erweitern
 06.01.2020 09:59:47 Gast27463
*****
Solved
06.01.2020 10:19:20 Gast93812
NotSolved

Ansicht des Beitrags:
Von:
Gast27463		 Datum:
06.01.2020 09:59:47		 Views:
692		 Rating:
     
Antwort:
 Nein
Thema:
VBA Programmierung drucken und zählen erweitern

Hallo,

ich habe im Makro noch eine Prüfung eingebaut, ob in Zelle A3 auch ein "Produkt" ausgewählt wurde.

Die Codezeile zum Ausdrucken habe ich auskommentiert und stattdessen eine Messagebox eingebaut. Das ist nur zum Testen, damit du siehst, dass es funktioniert. Für den "Betrieb" einfach die Zeile mit der Messagebox löschen und den Druckbefehl wieder aktivieren.

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub DruckeUndZaehle()
Dim VarPrints As Variant, intI As Integer
 
'Inputbox mit Type 0 laesst nur Zahlen als Eingabe zu.
VarPrints = Application.InputBox("Anzahl der Ausdrucke", "Drucken", 0, Type:=1)
If VarPrints = False Then 'User selected cancel
    Exit Sub
ElseIf CInt(VarPrints) > 0 Then
    If Range("A3") <> "" Then
        For intI = 1 To CInt(VarPrints)
            MsgBox "Druck"
            'ActiveSheet.PrintOut
            If Range("A3") Like "gebacken*" Then
                Range("D2") = Range("D2") + 1
            ElseIf Range("A3") Like "geräuchert*" Then
                Range("E2") = Range("E2") + 1
            End If
        Next intI
    Else
        MsgBox "Fehler: Es ist kein Produkt ausgewählt."
    End If
End If
End Sub

 

Gruß Werner

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
06.01.2020 09:40:33 Gast
*****
Solved
Blau VBA Programmierung drucken und zählen erweitern
 06.01.2020 09:59:47 Gast27463
*****
Solved
06.01.2020 10:19:20 Gast93812
NotSolved