Thema Datum  Von Nutzer Rating
Antwort
Rot @xlKing - Es klappt nicht
01.04.2018 15:39:37 Holger
Solved
01.04.2018 23:34:23 Crazy Tom
NotSolved
03.04.2018 17:55:02 Gast81169
Solved
02.04.2018 00:14:34 xlKing
NotSolved
03.04.2018 17:51:13 Holger
NotSolved

Ansicht des Beitrags:
Von:
Holger
Datum:
01.04.2018 15:39:37
Views:
956
Rating: Antwort:
 Nein
Thema:
@xlKing - Es klappt nicht

Hallo xlKing, nochmals vielen Dank für deine Hilfe.

Kein Aprilscherz :) und ich wünsche angenehme Ostern.

Ich hatte voreilig gehandelt deine Antworten als "gelöst" zu markieren. Die Zicken, die mir der VBA-Editor präsentierte will ich gar nicht erst auflisten.
Kurz und gut. Ich habe NULL Ahnung VBA-Code zu schreiben. Meine betreffende Excel-Statistik-Mappe habe ich komplett mit dem Makrorecorder
entwickelt und funktioniert für meine Ansprüche hervorragend. Für das vorher genanntes Problem habe ich eine Lösung, die aber mangels
Eleganz verbessert werden soll, um dadurch eine mögliche Fehlerquelle in der Datenerfassung auszumerzen und unnötige manuelle Tätigkeiten
vermeiden soll.

Es folgt der Code, den mir der Makrorecorder präsentiert:

    Range("D5").Select
    Selection.Copy
    Sheets("003-Datenbank").Select
    Cells.Find(What:="01.04.18", After:=ActiveCell, LookIn:=xlValues, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate

Das gesamte Makro wird von dem Arbeitsblatt aus gestartet, auf dem die Zelle "D5" ausgewählt wurde. Diese Zelle erhält das manuell eingetragene
Datum des Tages, an dem man mit der Mappe arbeitet.  Dieses Datum wurde in dem -Sheet("003-Datenbank")- über den Menüpunkt
"Bearbeiten/Finden" gefunden und die Zelle wurde aktiviert.

Gebe ich testweise irgendein anderes Datum in meiner Referenzzelle "D5" ein und starte das Makro wird stets die Zelle mit dem Datum 01.04.18
markiert.

Worauf es also ankommt ist, dass das Makro fähig ist, jedes gesuchte Datum zu finden und die entsprechende Zelle zu markieren, ausgehend vom
dem Datum, das im Sheet("004-Heute"), Zelle "D5" eingetragen wurde.

Ich bin noch optimistisch, dass das gelöst werden kann. :)


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • 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
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • 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

Thema Datum  Von Nutzer Rating
Antwort
Rot @xlKing - Es klappt nicht
01.04.2018 15:39:37 Holger
Solved
01.04.2018 23:34:23 Crazy Tom
NotSolved
03.04.2018 17:55:02 Gast81169
Solved
02.04.2018 00:14:34 xlKing
NotSolved
03.04.2018 17:51:13 Holger
NotSolved