|
Mag mir mal bitte jemand helfen, ich komme nicht weiter.
Wir müssen für unser Geschäft ein händisches Kassenzählprotokoll (jedenTag) erstellen.
Jetzt hatte ich die Idee, dass Rechnen dem Computer zu überlassen.
Daziu habe ich ein Excel-Tabellenblatt erstellt.
Hier werden die Werte eingetragen.
Der Rechner ermittelt aus "A95" das Tagesdatum und erstellt damit einen Tabellennamen und Dateinamen
08.01.2019 und 08.01.2019.xls
Jetzt hätte ich gerne, dass der laufende Bestand aus Feld J37 des Vortages in das Feld F4 des laufenden Tages übernommen wird.
Das funktioniter aber irgendwie nicht.
Mag mir mal bitte jemand helfen.
Bei Bedarf kann ich die Dateien natürlich schicken
Herzlichen Danke
Uli
Sub TabellennamenSetzen()
Dim Zelle As String
Dim lw_pfad As String
Zelle = "a95"
ActiveSheet.Name = ActiveSheet.Range(Zelle).Text
'Sub DruckenSpeichern()
lw_pfad = ActiveSheet.Range("a95").Value
ActiveWorkbook.SaveAs lw_pfad & ".xls"
End Sub
________________________
sub uebertrag
With Range("F4")
.FormulaLocal = "='[" & ActiveWorkbook.Path & "\" & Format(Range("A95") - 1, "DD.MM.YYYY") & ".xls]" & _
Format(Range("A95") - 1, "DD.MM.YYYY") & "'!J37"
.Value = .Value
End With
End Sub
|