erste Zeile von Zeilenumbruch kopieren
22.12.2017 15:12:59
Zeilenumbruch
ich möchte, dass beim Klick auf auf dem commundbutton tabelle1 als pdf gespeichert wird. als Speichername soll die Zelle J5 + E2 benutzt werden (Kundenname + Re Nummer) wenn ich nun in die Zelle J5 was schreibe (zB. Hallo) speichert es einwandfrei.
Allerding habe ich in zelle J5 einen Namen wie zB.
Max Mustermann
Musterstr.10
12345 Musterdorf.
Wenn das ganze durch ein " " getrennt ist, speichert es mir den namen nicht mehr.
Jetzt hab ich versucht nur die erste Zeile des Zeilenumbruchs von B6 (Ursprüngliches Feld für die Rechnungsanschrift) zu kopieren.
Leider bekomme ich nur das ganze ohne Umbruch hin.
Kann jemand helfen?
Hier mein Code
Worksheets("Rechnung").Range("B6").Copy Destination:=Worksheets("Rechnung").Range("J5")
Range("J5").Select
ActiveCell.Value = WorksheetFunction.Substitute(ActiveCell.Value, vbLf, " ")
Const DateiPfad = "C:\Users\MisterX\Desktop\Kundenrechnungen PDF\"
Dim DateiName As String
DateiName = DateiPfad & Range("J5") & Range("E2") & ".pdf" ' Kunde + Rechnungsnr
ThisWorkbook.Worksheets("Rechnung").ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=DateiName, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Anzeige