Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Makro, Uhrzeit, Zeit setzten

Forumthread: Makro, Uhrzeit, Zeit setzten

Makro, Uhrzeit, Zeit setzten
05.08.2016 12:57:19
Nicolai

Hallo zusammen,
ich versuche gerade eine Tabelle mit einem Makro zu erstellen, aber leider stoße ich hier an meine Grenzen, vielleicht kann mir jemand von euch weiter helfen.
Ich habe eine Tabelle in der bei A1 beginnend nach unten die Uhrzeiten i 15 Minuten Takt stehen:
A1= 00:00
A2= 00:15
A3= 00:30
Und so weiter bis 23:45.
Nun habe ich eine Userform in der man eine Anfangs- und Endzeit eingeben kann:
Textbox1(von): 00:30
Textbox2(bis): 01:45
Nun soll beim ok-Button(in der Userform) drücken, in der Spalte(B) neben der Uhrzeit der Wert immer um 1 erhöht werden, vorausgesetzt die Zeit in der Spalte A ist in der VON – BIS beinhaltet.
B3 = 1
B4 = 1
B5 = 1
B6 = 1
B7 = 1
Ich hoffe es ist einigermaßen verständlich.
Vielen Dank & Grüße,
Nicolai

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro, Uhrzeit, Zeit setzten
05.08.2016 13:28:31
RPP63
Moin!
Schreibe mal in eine freie Spalte =A1*24*4+1 und ziehe dies nach unten. (Format Standard)
Wie Du siehst, kann man mit dieser einfachen Rechnung die Zeile der Uhrzeit bestimmen.
Bei Excel gut hoffe ich, dass Du mit dieser Info bereits etwas anfangen kannst?
(ich lasse offen)
Gruß Ralf
Anzeige
AW: Makro, Uhrzeit, Zeit setzten
05.08.2016 14:31:33
Nicolai
Hallo Ralf,
Danke erstmal für die schnelle Antwort, aber leider kann ich mit der Formel nichts anfangen.
Ich benötige ein Makro welches hinter den entsprechenden Zeiten eine 1 schreibt. Hier nochmal ein Beispiel:
Uhrzeit 14:45 bis 15:30 die ich in der Userform eingebe
Spalte A | Spalte B
14:15 | 0
14:30 | 0
14:45 | 1
15:00 | 1
15:15 | 1
15:30 | 0
15:45 | 0
Vielen Dank & Grüße,
Nicolai
Anzeige
AW: Makro, Uhrzeit, Zeit setzten
05.08.2016 14:36:19
Daniel
Hi
probier mal diesen Code:
    Z1 = TimeValue(TextBox1.Text) / TimeValue("00:15") + 1
Z2 = TimeValue(TextBox2.Text) / TimeValue("00:15") + 1
For Z = Z1 To Z2
Cells(Z, 2).Value = Cells(Z, 2).Value + 1
Next
gruß Daniel
AW: Makro, Uhrzeit, Zeit setzten
05.08.2016 14:53:32
Nicolai
Hallo Daniel,
das ist fast perfekt :)
Wenn bei Z2 14:45 eingetragen wurde soll er allerdings nur bis 14:30 eine 1 machen, sozusagen immer die Endzeit minus 15 Minuten.
Vielen vielen Dank & Grüße,
Nicolai
Anzeige
AW: Makro, Uhrzeit, Zeit setzten
05.08.2016 15:16:12
Daniel
Hi
diese Änderung ist so einfach, dass du da eigentlich alleine daraufkommen solltest, was du dafür ändern musst.
Auch bei VBA-Bescheiden solltest du genügend Wissen haben, um das auszuführen.
Gruß Daniel
AW: Makro, Uhrzeit, Zeit setzten
05.08.2016 16:12:30
Nicolai
Ja, sorry, habe es hinbekommen. Hab einfach die +1 weggelassen
Eine Frage hätte ich noch.
Ich steh gerade etwas auf dem Schlauch, kann ich Das Z, also die Anfangszeile auch erst ab Zeile 200 bestimmen.
Vielen Dank & Grüße,
Nicolai
Anzeige
AW: Makro, Uhrzeit, Zeit setzten
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige