Thema Datum  Von Nutzer Rating
Antwort
Rot Bedingung prüfen, drucken, hochzählen
30.05.2022 17:19:25 Matthias
NotSolved
31.05.2022 07:58:25 Gast16230
NotSolved
31.05.2022 11:56:54 Gast2120
NotSolved
31.05.2022 14:25:59 Gast16230
NotSolved
08.06.2022 18:38:51 Gast97590
NotSolved

Ansicht des Beitrags:
Von:
Matthias
Datum:
30.05.2022 17:19:25
Views:
150
Rating: Antwort:
  Ja
Thema:
Bedingung prüfen, drucken, hochzählen

Moin in die nette Runde!

 

Wollte ein Makro schreiben mit dem die Zelle "M2" auf Inhalt geprüft wird (j oder n).
Wenn "n", soll die Zelle "H1" um den Wert 1 erhöht werden.
Wenn "j" soll das Tabellenblatt gedruckt werden und dann die Zelle "H1" erhöht werden.

 

Das Ganze soll enden, wenn die Zelle "H1" genauso groß ist wie Zelle "H10".

Klappt logischerweise nicht, finde aber irgendwie den Fehler nicht:

 

_________________

Sub DruckFragebogenBildungsurlaub()


' zum Tabellenblatt wechseln
    Sheets("Fragebogen Bildungsurlaub").Select
    
With Worksheets("Fragebogen Bildungsurlaub")
    If .Range("M2") = "n" Then
        Do
            If .Range("H1") <= .Range("H10") Then

  
' DruckMagazinblanko

Dim strPrinter As String
Const cstrPrinter As String = "\\RDS Hannover auf Ne11:"
strPrinter = Application.ActivePrinter
ActiveSheet.PrintOut From:=1, To:=1, Copies:=1, Preview:=False, _
        ActivePrinter:=cstrPrinter, Collate:=True
Application.ActivePrinter = strPrinter


                .Range("H1") = .Range("H1") + 1
            Else
                Exit Do
            End If
        Loop
    End If
End With

' zum Tabellenblatt Zusammenfassung Bildungsurlaub wechseln

    Sheets("Zusammenfassung Bildungsurlaub").Select
   
' DruckMagazinblanko


ActiveSheet.PrintOut From:=1, To:=1, Copies:=1, Preview:=False, _
        ActivePrinter:=cstrPrinter, Collate:=True

 

End Sub
 

___

 

Weiß jemand, wie ich das Makro verändern muss?

 

Liebe Grüße

Matthias

 


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:

 
 

  • 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
Rot Bedingung prüfen, drucken, hochzählen
30.05.2022 17:19:25 Matthias
NotSolved
31.05.2022 07:58:25 Gast16230
NotSolved
31.05.2022 11:56:54 Gast2120
NotSolved
31.05.2022 14:25:59 Gast16230
NotSolved
08.06.2022 18:38:51 Gast97590
NotSolved