Hallo zusammen,
interne Handwerkeraufträge werden bei uns mit einer ausgefüllten, schreibgeschützten Excel-Datei versandt, bei der das Auftragsdatum mit HEUTE() hinterlegt ist.
Die Aufträge werden bei den Handwerkern gespeichert und bei Bedarf wieder aufgerufen.
Jetzt haut es natürlich bei dem Auftragsdatum und HEUTE() nicht mehr hin (weil das mal war und nicht mehr ist).
Gibts ne Möglichkeit, die Formel HEUTE() beim Speichern in ein normales Datum umzuwandeln?
Freundliche Grüße
Jorge
Hallo Jorge,
interne Handwerkeraufträge werden bei uns mit einer
ausgefüllten, schreibgeschützten Excel-Datei versandt, bei der
das Auftragsdatum mit HEUTE() hinterlegt ist.Die Aufträge werden bei den Handwerkern gespeichert und bei
Bedarf wieder aufgerufen.Jetzt haut es natürlich bei dem Auftragsdatum und HEUTE()
nicht mehr hin (weil das mal war und nicht mehr ist).Gibts ne Möglichkeit, die Formel HEUTE() beim Speichern in ein
normales Datum umzuwandeln?
Strg+. (Strg und die Taste für den Punkt) fügt das feste Datum in die aktuelle Zelle ein - meinst du das?
Gruß Marion
Hallo Marion,
Gibts ne Möglichkeit, die Formel HEUTE() beim Speichern in ein
normales Datum umzuwandeln?
Strg+. (Strg und die Taste für den Punkt) fügt das feste
Datum in die aktuelle Zelle ein - meinst du das?
Im Prinz:ip: Ja, sprach Radio Eriwan.
Aber mit Excel habens unsere lieben Handwerker nicht so (eher mit „Holz lebt“ und „reicht der Widerstand wirklich aus??“).
Besser wäre etwas automatisches (vba?), was ihnen diese gefährliche Tastenkombination abnimmt…
Da passieren ja ganz witzige Sachen, wenn man eine Kombination mit Strg und anderen Zeichen ausprobiert…
Ich guck morgen mal nach einer schönen Liste mit Shortcuts - oder hast du eine zu empfehlen?
Liebe Grüße
Jorge
Hallo Jorge.
Der folgende Code wandelt Deine „HEUTE()“-Funktion vor dem Speichern der Datei in ein festes Datum um. Der Code gehört in „DieseArbeitsmappe“
Private Sub Workbook\_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cells(1, 1) = Cells(1, 1).Value
End Sub
Der Code muß natürlich noch angepaßt werden, denn ich weiß ja nicht, in welcher Zelle bei Dir das Datum eingetragen wird.
Mit freundlichen Grüßen
Ein Handwerker
Hallo Jorge,
Ich bin zwar nicht Marion, hab aber deinen Artikel auch gelesen.
Besser wäre etwas automatisches (vba?), was ihnen diese
gefährliche Tastenkombination abnimmt…
Ich kenn mich mit VBA leider nicht so gut aus, wie Reinhard oder Marion, aber ich kann dir den Vorgang angeben, den du aufzeichnen musst. Wie du ein Makro aufzeichnest, findest du in den FAQs.
Es gibt natürlich Tricks, wie man alle Zellen auswählen kann, die Formeln enthalten. So gehts dann schneller.
Ich guck morgen mal nach einer schönen Liste mit Shortcuts -
oder hast du eine zu empfehlen?
Ja, es gibt eine in der Excel-Hilfe. Such mal unter Tastenkombinationen.
Gruß Alex
Gibts ne Möglichkeit, die Formel HEUTE() beim Speichern in ein
normales Datum umzuwandeln?
Aber mit Excel habens unsere lieben Handwerker nicht so (eher
mit „Holz lebt“ und „reicht der Widerstand wirklich aus??“).
Besser wäre etwas automatisches (vba?), was ihnen diese
gefährliche Tastenkombination abnimmt…
Hi Jorge,
Vba-Code könnte prinzipiell so wie nachfolgend gezeigt aussehen, Aufruf dann im wie von Carsten gesagt Dokumentmodul „DieseArbeitsmappe“ im Before_Close oder so Ereignis mit „Call tt“.
Problem ist ein anderes, wie willst du dafür sorgen, daß sie auch brav beim Öffnen der Datei die Makros aktivieren und nicht sich sagen/denken, „Makros, was’n das, kenn ich net, brauch ich net…“ ?
Okay, es gibt Vba-Lösungen um sie dazu zu zwingen. Sie haben dann nur die Wahl, in der Datei nur ein leeres Blatt zu sehen oder Makros zu aktivieren, Hajo hat dazu auf seiner Seite Codes gesammelt. Sag Bescheid wenn du den Link brauchst.
Vielleicht langt ja auch, daß bei deaktivierten Makros das Datumsfeld leer bleibt, oder ein Hinweis drin steht bitte diese Zelle markieren und Strg + Punkt drücken oder so.
Sind Makros aktiviert wird dort durch vba einmalig das Datum eingetragen, bei späteren nochmaligen Öffnungen der datie bleibt drer Eintrag unverändert.
Gruß
Reinhard
In Modul1:
Option Explicit
'
Sub tt()
Dim Formeln As Range, Zelle As Range
On Error Resume Next
Set Formeln = ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas)
If Err.Number = 0 Then
For Each Zelle In Formeln
If InStr(Zelle.FormulaLocal, "=HEUTE") = 1 Then Zelle.Value = Zelle.Value
Next Zelle
Else
MsgBox "keine Zellen gefunden"
End If
Err.Clear
On Error GoTo 0
' weiterer Code
End Sub
Da passieren ja ganz witzige Sachen, wenn man eine Kombination
mit Strg und anderen Zeichen ausprobiert…Ich guck morgen mal nach einer schönen Liste mit Shortcuts -
oder hast du eine zu empfehlen?Liebe Grüße
Jorge
Hallo zusammen,
um 2:20 Uhr passieren auch mir noch Anfängerfehler („hallo Marion und alle anderen www-ler“!!..
Alle Vorschläge funktionieren und ich werde sie übernächste Woche, wenn mein Urlaub vorbei ist, mal mit den lieben Kollegen Handwerkern besprechen.
Danke und liebe Grüße
Jorge