121129
31.03.2015, aktualisiert um 10:32:24 Uhr
1159
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!
Kommentieren
Teilen
Auf Facebook teilen
Auf X (Twitter) teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 267900
Url: https://administrator.de/forum/excel-kopier-problem-267900.html
Ausgedruckt am: 08.05.2025 um 22:05 Uhr
4 Kommentare
Neuester Kommentar
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!
