Hallo
ich will eine Tabelle im Querformat ausdrucken lassen.
In der Tabelle ist zwischen jeder Zeile eine leere Zeile.
Ich will jetzt den Tabelleninhalt per Makro ausdrucken,
wobei es auf den letzten Zelleninhalt in Spalte B ankommt.
In Spalte B sind Namen eingegeben, als Orientierung.
In Spalte A sind auch nach dem letzten Eintrag in
Spalte B Zahlen vorhanden.
Würde mich über Hilfe freuen
MfG
Klaus
bitte nochmal…
Moin Klaus,
könntest Du Dein Anliegen bitte nochmal neu formulieren? Ich hab’ -ganz ehrlich- nämlich nicht verstanden, worauf Du hinaus willst.
Geht es darum, die Leerzeilen wegzubekommen oder zu erstellen? Oder willst Du nur bestimmte Spalten drucken?
Gruß
(Woly)
Hallo Woly
Ich habe täglich eine Tabelle zu erstellen. Zur besseren Übersicht
ist eine Zeile beschrieben und die nächste Zeile frei usw.
Am abend sind dann 50 oder 100 oder mehr Zeilen gefüllt. I n der
Spalte B (worauf es ankommt) sind Namen eingetragen. Nach
dem letzten Nameneintrag will ich die Tabelle ausdrucken . In
der Spalte A sind Zahlen/Nummern angegeben, die aber nur
dann interessant sind, wenn auch Namen daneben stehen
Also suchen letzten Eintrag in Spalte B. Dann Ausdruck
dieser gesamten Tabelle von Spalte A-S.
Gruß Klaus
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo Klaus,
wenn ich es richtig verstanden habe, müsstest Du also ein Makro programmieren, welches die Spalte B von oben nach unten durchläuft. Wenn nacheinander mehr als eine leere Zelle gefunden wird, hat das Makro also das Ende des gewünschten Druckbereiches gefunden. Dann muß also nur noch der Druckbereich (Zeile 1 bis n; Spalte A bis S) festgelegt und der Druck gestartet werden.
Gruß
(Woly)
Hallo Woly,
richtig verstanden, natürlich auch die Spalten A - S sollen mit
ausgedruckt werden.
Danke vorweg.
Gruß Klaus
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo Klaus,
mein Makro sieht so aus:
Option Explicit
Public Sub AutomatischDrucken()
Dim Zeile As Long
Dim LetzteZeile As Long
'erstmal die letzte Zeile finden (also, wo 2 Zeilen nacheinander leer sind)
Zeile = 1
Do Until Cells(Zeile, 2) = "" And Cells(Zeile + 1, 2) = ""
Zeile = Zeile + 1
Loop
LetzteZeile = Zeile - 1
'Zellen markieren, Druckbereich definieren, drucken, Druckbereichsdefinition wieder löschen
Range(Cells(1, 1), Cells(Zeile, 6)).Select
With ActiveSheet
.PageSetup.PrintArea = Selection.Address
.PrintOut Copies:=1
.PageSetup.PrintArea = ""
End With
'Zelle A1 markieren
Range("A1").Select
End Sub
Ich schick’s Dir aber auch noch per eMail…
Gruß
(Woly)>/i>
Klappt Prima
Hallo Woly,
vielen Dank klappt prima.
Gruß Klaus
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]