Mit folgendem Code befülle ich eine Datenmaske im Arbeitsblatt "Drucken" und drucke diese entsprechend aus.
Wie kann ich nun diesen Code verändern, um auf eine ander Datei(Namen.xlsx) zugreifen zu können? (Das Tabellenblatt dort lautet 119)
Aus ActiveCell.Value = "=Datenblatt!R[" & z - 1 & "]C[0]" habe ich jetzt mal
ActiveCell.FormulaR1C1 = "='[Namen.xlsx]119'!R[" & z - 1 & "]C[6]" gemacht.
Als Ergebnis bekomme ich aber nun nicht den Zellinhalt aus Namen.xlsx sondern nur die Formel in die Zelle geschrieben... :-(
- So sieht der laufende gesamt Code aus... -
Sub Drucken()
Dim z As Long
For z = 1 To Worksheets("Datenblatt").Range("a65536").End(xlUp).Row
Worksheets("Vorbereitung").Select
Range("A1").Select 'Vorname
ActiveCell.Value = "=Datenblatt!R[" & z - 1 & "]C[0]"
Range("b1").Select 'Nachname
ActiveCell.Value = "=Datenblatt!R[" & z - 1 & "]C[0]"
Range("c1").Select 'Strasse
ActiveCell.Value = "=Datenblatt!R[" & z - 1 & "]C[1]"
Range("d1").Select 'PLZ
ActiveCell.Value = "=Datenblatt!R[" & z - 1 & "]C[5]"
Range("e1").Select 'Ort
ActiveCell.Value = "=Datenblatt!R[" & z - 1 & "]C[9]"
Worksheets("Druckbild").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Next z
End Sub
Vielen Dank