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.
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