AW: Zellen drucken
30.09.2023 01:36:55
Oberschlumpf
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