VBA per Schleife wiederholen bis leere Zelle

Sub Drucken_fortlaufend() ' Drucken_fortlaufend Makro ' Ein Makro, welches bei jedem starten, eine Rechnung druckt und die lfd Nummer um 1 erhöht ' Tastenkombination: Strg+y Application.Goto Reference:="Drucken_fortlaufend" Dim wert As String ActiveWindow.SelectedSheets.PrintOut 'Druckt den angegebenen Druckbereich wert = Range("H18").Value ' Bereich, wo Wert ist: H18 abändern Range("H18").Value = wert + 1 ' H18 abändern ActiveWorkbook.Save End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Drucken_fortlaufend() ' Drucken_fortlaufend Makro ' Ein Makro, welches bei jedem starten, eine Rechnung druckt und die lfd Nummer um 1 erhöht ' Tastenkombination: Strg+y do while worksheets("tabelle2").cells(zeile,5) "" 'solange in der Zelle was steht ausführen Application.Goto Reference:="Drucken_fortlaufend" Dim wert As String ActiveWindow.SelectedSheets.PrintOut 'Druckt den angegebenen Druckbereich wert = Range("H18").Value ' Bereich, wo Wert ist: H18 abändern Range("H18").Value = wert + 1 ' H18 abändern ActiveWorkbook.Save zeile = zeile + 1 loop End Sub

Sub Drucken_fortlaufend() ' Drucken_fortlaufend Makro ' Ein Makro, welches bei jedem starten, eine Rechnung druckt und die lfd Nummer um 1 erhöht ' Tastenkombination: Strg+y Dim Zeile As Double Const Spalte As Integer = 1 'Soll in Spalte A nachsehen Zeile = 1 'Startwert With Worksheets("Gesamt Einnahmen2015") Do While .Cells(Zeile, Spalte) "" 'solange in der Zelle was steht ausführen Application.Goto Reference:="Drucken_fortlaufend" ActiveWindow.SelectedSheets.PrintOut 'Druckt den angegebenen Druckbereich .Range("H18") = .Range("H18") + 1 ' H18 abändern Zeile = Zeile + 1 Loop End With ActiveWorkbook.Save End Sub

Hallo
Du arbeitest mit 2 unterschiedlichen TabellenBlättern.
Die müssen einzeln angesprochen werden.
Warum nur 2x gedruckt wurde, liegt an den Überschriften, bzw. den Leerzellen darunter.
Deine "Daten" fangen erst ab Zeile 5 an.

Gesamt Einnahmen2015

	A	B	C
1	1	2	3
2	lfd Nr.	Datum	Artikel
3
4
5	1	02.01.2015	Test Artikel 1
6	2	05.01.2015	Test Artikel 2
7	3	01.02.2015	Test Artikel 3

http://excel-inn.de/dateien/vba_beispiele/tabellenanzeige_in_html_addin.zip

http://Hajo-Excel.de/tools.htm

XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007

Add-In-Version 19.03 einschl. 64 Bit

Ich hab das Makro so abgeändert.

Sub Drucken_fortlaufend()
' Drucken_fortlaufend Makro
' Ein Makro, welches bei jedem starten, eine Rechnung druckt und die lfd Nummer um 1 erhöht
' Tastenkombination: Strg+y
Dim TB1, TB2
Dim Zeile As Double
Const StartZeile As Single = 5 'Startwert, Wegen der Überschriften
Const Spalte As Integer = 1 'Soll in Spalte A nachsehen
Set TB1 = Sheets("Gesamt Einnahmen2015")
Set TB2 = Sheets("Rechnung 2015")
Zeile = TB2.Range("J7") + StartZeile - 1
Do While TB1.Cells(Zeile, Spalte)  "" 'solange in der Zelle was steht ausführen
'Application.Goto Reference:="Drucken_fortlaufend"
TB2.PrintOut 'Druckt den angegebenen Druckbereich
TB2.Range("J7") = TB2.Range("J7") + 1 ' J7 abändern
Zeile = Zeile + 1
Loop
ActiveWorkbook.Save
End Sub

Meiner Meinung nach brauchst du die Zeile "Application.Goto Reference:="Drucken_fortlaufend"" nicht
Gruß UweD

Beliebteste Forumthreads (12 Monate)

VBA per Schleife wiederholen bis leere Zelle

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

41 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA per Schleife wiederholen bis leere Zelle

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

41 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread