Zellen drucken

Carsten · 2023-09-29T22:18:40+00:00

Ich möchte gerne einzelne Zellen drucken und an bestimmte Positionen auf dem Ausdruck positionieren. z. B. Zellen B2 bis F2 soll auf dem Audruck so aussehen: B2 C2 D2 E2 F2 Dabei möchte ich die Positionen und Abstände selbst bestimmen.

Hi Carsten,

a) ich stimme dir zu, dass onur leider oft n bisschen am Thema vorbeidiskutiert und Freundlichkeit öfter bei ihm fehl am Platz ist
b) mir ist auch keine andere Lösung bekannt, als ein neues Blatt zu erstellen, im neuen Blatt an den Stellen, wo sie im Ausdruck sein sollen, die Werte einzufügen, die du ausdrucken willst, nach Ausdruck das zuvor neue Blatt wieder löschen, weil es ja nicht mehr gebraucht wird

1) ohne VBA
- erstell ein neues Blatt, nenn es z Bsp "Druck" und füg Formeln zu den Zellen aus deinem Datenblatt ein, die gedruckt werden sollen
=A1=Original!B2
=B1=Original!C2
=A3=Original!D2
=A5=Original!E2
=B5=Original!F2

(oder alles eben da platzieren, wo du es habn willst)

das Blatt "Druck" - nicht - wieder löschen!, weil du es ja bei Formelverwendung immer wieder benötigst

2) mit VBA (ungetestet)



Sub sbDrucken()



    Dim lshOrig As Worksheet

    

    Set lshOrig = Sheets("Original") 'wenn Blattname in Originaldatei anders, dann hier anpassen

    

    Sheets.Add after:=Sheets(Sheets.Count)

    

    Application.DisplayAlerts = False

    

        With ActiveSheet

            .Name = "Druck" 'is eigtl unnötig, weil Blatt ja nach Ausdruck wieder gelöscht wird

            .Range("A1").Value = lshOrig.Range("B2").Value

            .Range("B1").Value = lshOrig.Range("C2").Value

            .Range("A3").Value = lshOrig.Range("D2").Value

            .Range("A5").Value = lshOrig.Range("E2").Value

            .Range("B5").Value = lshOrig.Range("F2").Value

            ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False

            .Delete

        End With

    

    Application.DisplayAlerts = True

    

    Set lshOrig = Nothing

    

End Sub

Hilfts?

Ciao
Thorsten

HI Ralf,

ja, da magst du vllt recht haben

Das von dir Zitierte ist ziemlich allgemein formuliert, und könnte auch bedeuten: "Ich will - einmal - bestimmen, wo was hin soll"; und das müsste dann wirklich noch mit in den Code hinein; aber dann wäre Blatt wieder löschen auch kein Problem, denke ich.

Carsten zeigte leider keine Bsp-Datei, und da ich, wie erwähnt, nicht so ganz genau wusste, was er mit Positionen + Abständen meinte, hätte ich auch hier für meinen Code "erraten" müssen bzgl Zeilenhöhe, Spaltenbreite, Anzahl Leerzeilen usw...

Aber nun denn, VBA ist ja eh nicht erwünscht :-)...worauf Carsten ja hätte hinweisen können....aber ok, wir sind alle nur Menschen.

Ciao
Thorsten

Forumthread: Zellen drucken

24
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Zellen drucken

Forumthread: Zellen drucken

24 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

24
Beiträge zum Forumthread

Beiträge zu diesem Forumthread