Thema Datum  Von Nutzer Rating
Antwort
Rot Übername von Werten vom Vortag
08.01.2019 17:47:51 Uli
NotSolved
08.01.2019 18:15:13 Gast7777
NotSolved
08.01.2019 18:59:32 Uli
NotSolved
08.01.2019 19:06:08 Gast7777
NotSolved
08.01.2019 20:20:00 Uli
NotSolved
08.01.2019 20:22:41 Gast7777
NotSolved
08.01.2019 20:27:06 Gast7777
NotSolved
08.01.2019 20:28:54 Uli
NotSolved
08.01.2019 20:31:32 Gast7777
NotSolved
08.01.2019 20:27:58 Gast7777
NotSolved
08.01.2019 20:29:58 Uli
NotSolved
08.01.2019 20:36:46 uli
NotSolved
08.01.2019 20:41:24 Uli
NotSolved
09.01.2019 10:35:43 Uli
NotSolved

Ansicht des Beitrags:
Von:
Uli
Datum:
08.01.2019 17:47:51
Views:
57
Rating: Antwort:
  Ja
Thema:
Übername von Werten vom Vortag

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



 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Übername von Werten vom Vortag
08.01.2019 17:47:51 Uli
NotSolved
08.01.2019 18:15:13 Gast7777
NotSolved
08.01.2019 18:59:32 Uli
NotSolved
08.01.2019 19:06:08 Gast7777
NotSolved
08.01.2019 20:20:00 Uli
NotSolved
08.01.2019 20:22:41 Gast7777
NotSolved
08.01.2019 20:27:06 Gast7777
NotSolved
08.01.2019 20:28:54 Uli
NotSolved
08.01.2019 20:31:32 Gast7777
NotSolved
08.01.2019 20:27:58 Gast7777
NotSolved
08.01.2019 20:29:58 Uli
NotSolved
08.01.2019 20:36:46 uli
NotSolved
08.01.2019 20:41:24 Uli
NotSolved
09.01.2019 10:35:43 Uli
NotSolved