Thema Datum  Von Nutzer Rating
Antwort
08.12.2014 12:17:34 Thorsten
NotSolved
Blau Bitte um Hilfe bei Schleife
 09.12.2014 14:22:40 Thorsten
NotSolved
09.12.2014 16:27:20 Gast96294
NotSolved
09.12.2014 17:06:14 Thorsten
Solved
09.12.2014 16:25:46 Gast96294
NotSolved

Ansicht des Beitrags:
Von:
Thorsten		 Datum:
09.12.2014 14:22:40		 Views:
738		 Rating:
     
Antwort:
  Ja
Thema:
Bitte um Hilfe bei Schleife

Hi nochmal.

Ich habe mal weitergemacht und das Thema (hoffentlich) auf ein Minimum reduziert. Das folgende Makro kopiert aus den Zelle H6 (erste Zeile der Urkunden) die entsprechende NUmmer der zu druckenden Urkunde in das Feld I3 Dann werde alle Felerder befüllt und die Urkunde gedruckt.

Mir fehlt jetzt "nur noch" die Schleife, die die Spalte ab H6 nach unten solange durchläuft bis alle Urkunden gemäß dem o. g. Weg ausgedruckt sind. Also nächster Schritt wäre, dei Prüfung ob ein Wert <> "" in H7 steht, falls ja den Wert in I3 kopiert und wieder drucket usw. Kann mir keiner bei der Schleife helfen??

 

Ich wäre echt sehr dankbar. 

 

Danke und viele Grüße Thorsten

 

Sub Urkundendrucken()
'
' Urkundendrucken Makro
'
 
'
    Range("H6").Select
    Selection.Copy
    Range("I3").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
End Sub

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
08.12.2014 12:17:34 Thorsten
NotSolved
Blau Bitte um Hilfe bei Schleife
 09.12.2014 14:22:40 Thorsten
NotSolved
09.12.2014 16:27:20 Gast96294
NotSolved
09.12.2014 17:06:14 Thorsten
Solved
09.12.2014 16:25:46 Gast96294
NotSolved