AW: Druckproblem
13.08.2008 17:25:00
Daniel
HI
wenn du keine Ahnung von VBA hast, dann solletst du es auch nicht verwenden, und wenn, dann nur fertige Programmmodule, die vollständig von Fachleuten programmiert und ausreichend getestet wurden, so daß du dich nicht mehr um den Code kümmern musst.
solange du solche handgestrickten sachen einsetzt, solltest du das nur machen, wenn du den Code auch verstehst und selbst pflegen und warten kannst, ansonsten lass es, du kannst ja nicht immer hier im Forum um Hilfe rufen, nur weil sich an deiner Datei ne kleinigkeit geändert hat.
warum kommt der Fehler?
da ist ein Zahlendreher in den Spalten drin, dh. es wird einfach der Wert aus einer falschen Spalte für die Suchfunktion verwendet, dieser kann dann natürlich nicht gefunden werden.
Sub Drucken()
Dim Zeile As Long
Zeile = Sheets("Ladeliste").Columns(3).Find(what:=Sheets("Eingabe").Cells(Rows.Count, 15 _
).End(xlUp).Text, lookat:=xlWhole, LookIn:=xlValues).Row + 1
Sheets("Ladeliste").PageSetup.PrintArea = "$A$1:$L$" & Zeile
Sheets("Ladeliste").PrintOut preview:=True
End Sub
im Code ist die fett-markierte 15 falsch und muss durch eine 5 ersetze werden.
der Code funktioniert so, daß der letzte Eintrag für die AB-Nr aus dem Blatt Eingabe genommen und im Blatt Ladeliste gesucht wird. Entsprechend müssen die Spalten-Nummern in dieser CodeZeile gewählt werden.
desweiteren sehe ich gerade, daß die "17 - " nicht zum Wert gehört, sondern nur durch Formatierung hinzu kommt, diese Formatierung ist aber unterschiedlich, dh. einmal "17-" und einmal "17 - "
daher muss das fett markierte .TEXT durch .VALUE ersetzt werden, sowie die Suchoption LOOKAT von xlWhole auf xlPart geändert werden
außerdem hast du inzwischen die verbundenen Zellen entfernt, daher kann das "+1" am ende auch entfallen.
korrekt sieht die Zeile dann so aus:
Zeile = Sheets("Ladeliste").Columns(3).Find(what:=Sheets("Eingabe").Cells(Rows.Count, 5). _
End(xlUp).Value, lookat:=xlPart, LookIn:=xlValues).Row
damit sollte es wieder funktionieren, aber du musst dir darüber im klaren sein, daß jede strukurelle Änderung der Datei (neue Zeilen, neue Spalten, Änderungne bei Verbundenen Zellen usw) immer auch eine Anpassung im Makro nach sich führen kann.
daher warne ich davor, Makros einzusetzen, die man nicht versteht und an denen man diese Pflegearbeiten nicht selbst ausführen kann.
Gruß, Daniel