AW: dateiname in zelle
14.05.2006 18:34:16
Bernd
hi sepp,
ich habe mir gerade diesen code erarbeitet:
Sub Drucken()
Dim Pfad$, Filter$
Dim letzter_eintrag, Druckmenge As Long
Dim Pfadname, Dateiname As String
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Filter = "*.xls"
Pfad = "C:\Test\Druck\"
Application.Dialogs(xlDialogOpen).Show Pfad & Filter
Pfadname = ActiveWorkbook.Path
Dateiname = ActiveWorkbook.Name
Druckmenge = Cells(Rows.Count, 1).End(xlUp).Row - 1
ActiveWorkbook.Close
Windows("Drucken.xls").Activate
[A1] = Pfadname
[A2] = Dateiname
letzter_eintrag = Cells(Rows.Count, 1).End(xlUp).Row + 1
MsgBox "Es wird folgende Datei gedruckt!" _
& vbCrLf & "" _
& vbCrLf & "" & Dateiname, vbInformation, "Es wird gedruckt"
Range("A" & letzter_eintrag).Select
Name "" & Pfadname & "\" & Dateiname As "" & Pfadname & "\erledigt\" & Dateiname
Range("A" & letzter_eintrag).Select
ActiveCell = Pfadname & "\" & Dateiname
Range("G" & letzter_eintrag).Select
ActiveCell = Druckmenge
Range("H" & letzter_eintrag).Select
ActiveCell.FormulaR1C1 = "=SUM(R[-1]C+RC[-1])"
Range("I" & letzter_eintrag).Select
ActiveCell = "Zahlungen"
ActiveWorkbook.Save
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
werde jetzt mal deinen probieren.
kannst du mal über meinen code blicken und mir ne rückmeldung geben.
ob evtl alles kürzer geht und ob ich meinen code zu kompliziert gemacht habe.
vielen dank
gruss Bernd