Thema Datum  Von Nutzer Rating
Antwort
Rot Hilfe bei Code Umschreiben
 01.02.2022 13:30:41 Alex
NotSolved
01.02.2022 18:51:52 AlterDresdner
NotSolved
01.02.2022 19:09:17 ralf_b
NotSolved
02.02.2022 03:13:27 Alex
NotSolved

Ansicht des Beitrags:
Von:
Alex		 Datum:
01.02.2022 13:30:41		 Views:
285		 Rating:
     
Antwort:
  Ja
Thema:
Hilfe bei Code Umschreiben

Hallo zusammen,

bisher war ich immer ein Stiller Leser in diesem Forum und es hat mir schon bei vielen Herausforderungen geholfen.

Aktuell bin ich aber an einem Punkt, wo ich euch Experten um Hilfe bitten muss.

Es geht um folgenden Code:
 

Sub Uhrzeit_Kommen()

Dim ilng As Long

For ilng = 7 To 37
    If ActiveSheet.Range("B" & CStr(ilng)).Value = Date Then Exit For
Next ilng
Debug.Print ilng

ActiveSheet.Unprotect ("***")

    With ActiveSheet
        .Range("D" & CStr(ilng)).Value = Format(Time, "hh:mm")
    End With

ActiveSheet.Protect ("***")

End Sub

Wie im Code zu sehen, wird dieser nur um jeweiligen aktiven Sheet ausgeführt.

Es gibt ein Übersicht-Sheet und dann 12 Monatsblätter.

Ich möchte gerne das der Code das Datum im in allen Sheets sucht und sein Time Stamp setzt, anstelle ich erst in den zugehörigen Monat gehen muss, also in das jeweilige Sheet.

Denn dann kann ich den Button in nur einem Blatt setzen, anstelle von allen Monatsblättern.

Ich hoffe das war erstmal so verständlich und das sich einer findet, der mit Behilflich sein kann.

Liebe Grüße aus dem Ruhrpott
Alex

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 Hilfe bei Code Umschreiben
 01.02.2022 13:30:41 Alex
NotSolved
01.02.2022 18:51:52 AlterDresdner
NotSolved
01.02.2022 19:09:17 ralf_b
NotSolved
02.02.2022 03:13:27 Alex
NotSolved