Per VBA eine Excel-Datei speichern
30.11.2015 17:34:24
Robin
Hier der Code txt_lfsnr,txt_nachname und txt_ort stehen dort noch nicht drin sollen aber auch ü _ bergeben werden, vielen Dank für eure Unterstützung im Voraus!:
Private Sub btn_exportsaveprint_Click()
Dim wkbVORLAGE_LFS As Workbook
Set wkbVORLAGE_LFS = Workbooks.Open("*:\*****\*****\ _
KK_PatientenDVliste_2015-16\Vorlagen_LFS\LFSRECH_Vorlage2016.xlsx")
wkbVORLAGE_LFS.Sheets("Packliste").Range("A11").Value = Me.txt_vorname.Value
wkbVORLAGE_LFS.Sheets("Packliste").Range("B11").Value = Me.txt_nachname.Value
wkbVORLAGE_LFS.Sheets("Packliste").Range("H7").Value = Me.txt_KK.Value
wkbVORLAGE_LFS.Sheets("Packliste").Range("H8").Value = Me.txt_gebuehr.Value
wkbVORLAGE_LFS.Sheets("Packliste").Range("B35").Value = Me.txt_art1.Value
wkbVORLAGE_LFS.Sheets("Packliste").Range("B36").Value = Me.txt_art2.Value
wkbVORLAGE_LFS.Sheets("Packliste").Range("B37").Value = Me.txt_art3.Value
wkbVORLAGE_LFS.Sheets("Packliste").Range("B38").Value = Me.txt_art4.Value
wkbVORLAGE_LFS.Sheets("Packliste").Range("B39").Value = Me.txt_art5.Value
wkbVORLAGE_LFS.Sheets("Packliste").Range("B40").Value = Me.txt_art6.Value
wkbVORLAGE_LFS.Sheets("Packliste").Range("C35").Value = Me.txt_artnr1.Value
wkbVORLAGE_LFS.Sheets("Packliste").Range("C36").Value = Me.txt_artnr2.Value
wkbVORLAGE_LFS.Sheets("Packliste").Range("C37").Value = Me.txt_artnr3.Value
wkbVORLAGE_LFS.Sheets("Packliste").Range("C38").Value = Me.txt_artnr4.Value
wkbVORLAGE_LFS.Sheets("Packliste").Range("C39").Value = Me.txt_artnr5.Value
wkbVORLAGE_LFS.Sheets("Packliste").Range("C40").Value = Me.txt_artnr6.Value
wkbVORLAGE_LFS.Sheets("Packliste").Range("F35").Value = Me.txt_menge1.Value
wkbVORLAGE_LFS.Sheets("Packliste").Range("F36").Value = Me.txt_menge2.Value
wkbVORLAGE_LFS.Sheets("Packliste").Range("F37").Value = Me.txt_menge3.Value
wkbVORLAGE_LFS.Sheets("Packliste").Range("F38").Value = Me.txt_menge4.Value
wkbVORLAGE_LFS.Sheets("Packliste").Range("F39").Value = Me.txt_menge5.Value
wkbVORLAGE_LFS.Sheets("Packliste").Range("F40").Value = Me.txt_menge6.Value
wkbVORLAGE_LFS.Sheets("Packliste").Range("G35").Value = Me.txt_lot1.Value
wkbVORLAGE_LFS.Sheets("Packliste").Range("G36").Value = Me.txt_lot2.Value
wkbVORLAGE_LFS.Sheets("Packliste").Range("G37").Value = Me.txt_lot3.Value
wkbVORLAGE_LFS.Sheets("Packliste").Range("G38").Value = Me.txt_lot4.Value
wkbVORLAGE_LFS.Sheets("Packliste").Range("G39").Value = Me.txt_lot5.Value
wkbVORLAGE_LFS.Sheets("Packliste").Range("G40").Value = Me.txt_lot6.Value
Set wkbVORLAGE_LFS = Nothing
End Sub