121129
Mar 31, 2015, updated at 08:32:24 (UTC)
1056
4
0
Excel kopier Problem
Hallo,
Ich muss euch schon wieder "nerven", weil ich ein Problem habe. Ich wäre euch für Hilfe sehr dankbar!
Ich habe ein Tabellenblatt "Rechnungen" dort werden mehrere Rechnungsnummern ink. mehreren anhängen reinkopiert. Desweiteren gibt es ein tabellenblatt "Drucken".
In "Rechnungen" werden Rechnungsnummern in die Spalte A reinkopiert. In der Spalte B steht "=Wenn(A2>1;A2;"")" Das ist dann bis zur Zeile 999 runterkopiert fals etwas in die Zeilen A2-A999 eingetragen wird. Das ganze wird dann per makro automatisch kopiert. Mit kopieren und Werte einfügen in das Tabellenblatt "Drucken" . Dort wird das Blatt automatisch gedruckt.
Mein Problem ist jetzt. dass obwohl in den Zeilen nicht steht denkt Excel das dort was ist und druckt mir lauter Leere Blätter mit aus. Kann mir jemand Helfen?
Ich hoffe ich konnte das Problem einigermaßen verständlich posten. Vielen Dank im Vorraus!
Ich muss euch schon wieder "nerven", weil ich ein Problem habe. Ich wäre euch für Hilfe sehr dankbar!
Ich habe ein Tabellenblatt "Rechnungen" dort werden mehrere Rechnungsnummern ink. mehreren anhängen reinkopiert. Desweiteren gibt es ein tabellenblatt "Drucken".
In "Rechnungen" werden Rechnungsnummern in die Spalte A reinkopiert. In der Spalte B steht "=Wenn(A2>1;A2;"")" Das ist dann bis zur Zeile 999 runterkopiert fals etwas in die Zeilen A2-A999 eingetragen wird. Das ganze wird dann per makro automatisch kopiert. Mit kopieren und Werte einfügen in das Tabellenblatt "Drucken" . Dort wird das Blatt automatisch gedruckt.
Mein Problem ist jetzt. dass obwohl in den Zeilen nicht steht denkt Excel das dort was ist und druckt mir lauter Leere Blätter mit aus. Kann mir jemand Helfen?
Ich hoffe ich konnte das Problem einigermaßen verständlich posten. Vielen Dank im Vorraus!
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 267900
Url: https://administrator.de/contentid/267900
Printed on: April 25, 2024 at 13:04 o'clock
4 Comments
Latest comment
Moin,
wieso dafür jetzt einen neuen Thread aufmachen ?
Hier weiß ja keiner worum es ging.
Ermittle die letzte Zeile einfach hiermit
Gruß jodel32
wieso dafür jetzt einen neuen Thread aufmachen ?
Hier weiß ja keiner worum es ging.
Ermittle die letzte Zeile einfach hiermit
Set f = .Range("B:B").Find("Ergebnis",LookIn:=xlValues,Lookat:=xlPart,SearchDirection:=xlPrevious)
lastUsedRow = f.Row
Entschuldigung! Ich dachte es wäre übersichtlicher 
Meinst du ich soll
.PageSetup.PrintArea = "A1:H" & .UsedRange.SpecialCells(xlCellTypeLastCell).Row
durch
Set f = .Range("B:B").Find("Ergebnis",LookIn:=xlValues,Lookat:=xlPart,SearchDirection:=xlPrevious)
lastUsedRow = f.Row
ersetzen?
Das klappt leider nicht : (
Meinst du ich soll
.PageSetup.PrintArea = "A1:H" & .UsedRange.SpecialCells(xlCellTypeLastCell).Row
durch
Set f = .Range("B:B").Find("Ergebnis",LookIn:=xlValues,Lookat:=xlPart,SearchDirection:=xlPrevious)
lastUsedRow = f.Row
ersetzen?
Das klappt leider nicht : (
Zitat von @121129:
Entschuldigung! Ich dachte es wäre übersichtlicher
Meinst du ich soll
.PageSetup.PrintArea = "A1:H" & .UsedRange.SpecialCells(xlCellTypeLastCell).Row
durch
Set f = .Range("B:B").Find("Ergebnis",LookIn:=xlValues,Lookat:=xlPart,SearchDirection:=xlPrevious)
lastUsedRow = f.Row
ersetzen?
Das klappt leider nicht : (
NeinnnnnnnEntschuldigung! Ich dachte es wäre übersichtlicher
Meinst du ich soll
.PageSetup.PrintArea = "A1:H" & .UsedRange.SpecialCells(xlCellTypeLastCell).Row
durch
Set f = .Range("B:B").Find("Ergebnis",LookIn:=xlValues,Lookat:=xlPart,SearchDirection:=xlPrevious)
lastUsedRow = f.Row
ersetzen?
Das klappt leider nicht : (
Och mönsch denk doch erst mal nach bevor du zur Tastatur greifst ....
Set f = .Range("B:B").Find("Ergebnis",LookIn:=xlValues,Lookat:=xlPart,SearchDirection:=xlPrevious)
.PageSetup.PrintArea = "A1:H" & f.Row
Hab ein wenig auf dem Schlauch gestanden ...Sorry
Aber jetzt funktioniert alles so wie es sollte! Es ist perfekt! 1000 Dank!
...SorryAber jetzt funktioniert alles so wie es sollte! Es ist perfekt! 1000 Dank!
