Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
856to860
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
856to860
856to860
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Drucken

Drucken
01.04.2007 12:06:09
Heiko
Hi Leute
ich hab da so ne Mappe mit einem Listenfeld und einer Formel. Im Listenfeld stehen jede menge Buchstaben und wenn ich dort einen Buchstaben auswähle kommt in die andere Zelle wo die Formel ist die dazugehörende Nr. Nun möchte ich das ganze Drucken aber ich will nicht jeden Buchstaben einzeln auswählen. Da sitz ich ja ewig dran. Gibt es eine möglichkeit alle Buchstaben mit den dazugehörigen NR. auszudrucken. Das heißt Buchstabe & Nr. mit der Seite und das mit allen die im Listenfeld drin sind. Ist das möglich. Bitte um hilfe !!!
Gruß Heiko
Hier ein Beispiel:
https://www.herber.de/bbs/user/41476.xls

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Drucken
01.04.2007 16:21:58
Josef
Hallo Heiko,
als Formel in "A1" genügt übrigens das.

=INDEX(J:J;VERGLEICH(B1;I:I;0))
Das Drucken geht dann z.b. so.
Sub DruckenAlle()
Dim rng As Range
Dim objSh As Worksheet

Set objSh = ThisWorkbook.Sheets("Tabelle1") 'Tabellenname anpassen

With objSh
    For Each rng In .Range("I1:I67")
        .Range("B1") = rng
        .PrintOut 'zum testen .PrintPreview
    Next
End With

Set objSh = Nothing

End Sub


Gruß Sepp
Anzeige
AW: Drucken
02.04.2007 19:31:00
Heiko
Danke für deine schnell und super hilfe klappt alles super.
Gruß Heiko

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige