automatisches Druckbereich einrichten und drucken

Tag zusammen,

und erstmal Danke für den super Support hier, die Seite hat mir schon oft geholfen

habe jetzt schon alles durchgesucht und finde zu diesem Thema nichts

bin dabei eine Datenpunkt-Liste (Anlagenname in spalte A) zu erstellen und möchte diese nach Anlagen ausdrucken

Bsp.

KL01
KL01
KL01
KL01
KL01
KL01
WM01
WM01
HZ02
HZ02

usw.

nun möchte Ich die Zeilen KL01, WM01, HZ02 jeweils als gesonderten Ausdruck

wäre um Hilfe echt dankbar da 1x Pro woche 2000-3000 Zeilen von Hand zu Markieren echt zeitaufwändig ist

Vielen Dank im vorraus
greez Holger

 

Darf ich mal raten - wir reden von Excel?

In dem Falle könne ich mir ein Makro vorstellen das die Liste abläuft und damit die Bereiche gleichen Namens erfasst, darüber den Druckbereich wirft und das losschickt.

Sind noch weitere Anforderungen angedacht oder soll das so splitternackt aufs Papier?

Eric March

 

natürlich, Excel

sorry

soll nur in Spalte A gleiche Einträge (zB. KL01)erfassen und diese als eigenes Blatt
drucken

anschl. nachstes Paket suchen, Druckbereich drucken

usw.

wäre echt klasse wenn sowas geht

 

Bitte gerne:

Code:

Sub EinzelnDrucken()
Dim Oben As Integer
Dim Unten As Integer
Const Links As Integer = 1 'Spalte A
Const Rechts As Integer = 13 'Spalte B
Dim Inhalt As String
 Oben = 1 'Wenn wir in Zeile 1 beginnen
 Do
  Inhalt = Cells(Oben, Links)
  Unten = Oben
  While Cells(Unten, Links) = Inhalt
   Unten = Unten + 1
  Wend
  ActiveSheet.PageSetup.PrintArea = _
   Range(Cells(Oben, Links), Cells(Unten - 1, Rechts)).Address
  ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
  Oben = Unten
 Loop Until Cells(Oben, Links) = ""
End Sub

Es wäre nun an dir festzulegen ab wo es Richtung unten losgeht und welches der linke und rechte Rand sein wird. (Ich ziehe zählbare Zahlen die 5|12 den Angaben "L5" vor.)
Gedruckt wird mit dem Standarddrucker. Falls das mehr als ein Blatt umfasst müsste geprüft werden ob es da extra Kennungen braucht.

Ach ja - das ganze muss lückenlos sein..!

Eric March

 

Danke werd es aber erst am WE testen können

kann sein das Ich mich nnochmal melden muss

aber schon mal super nett von dir

Greez Holger

 

Hätte da doch noch ein kleines Problem,

Der Text in Spalte A nach dem Ich sortieren möchte sieht so aus:

ML04HH01ML0408_M01H72JC03
ML04HH01ML0408_M01H73JC03
ML04HH01ML0408_P01H10JC03
ML04HH01ML0408_P01H72JC03
ML04HH02ML0408_V01H17JC03
ML04HH02ML0408_Z01H83JC03
ML04HH03ML0408_A01H32JC03
ML04HH03ML0408_B01H32JC03
ML04HH03ML0408_B01H83JC03

das Tool soll aber nur die ersten 8 Zeichen berücksichtigen da der Rest der jeweilige Datenpunkt ist und immer nur 1 mal vorkommt

 

Sortieren war nie mein Lieblingsfach. Aber ich sehe da erst mal keine Probleme da von vorne nach hinten sortiert wird.

Spontan käme die gute alte handwerkliche Methode in den Sinn: Hilfsspalte anlegen mit Formeln =LINKS(A1;8) und dann alles samt dieser Spalte markieren und nach ihr sortieren.
Ich sehe aber immer noch keinen Grund warum nicht direktes Sortieren gehen sollte.

Eric March