Zeiten kopieren klappt nicht immer!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub test() Dim I As Long Dim K As Long Dim zHilf(22, 7) As Double For I = 1 To 22 For K = 1 To 7 zHilf(I, K) = Sheets("Tabelle1").Cells(11 + I, 2 + K).Value Next K Next I Application.EnableEvents = False For I = 1 To 22 For K = 1 To 7 If zHilf(I, K) > 0 Then Sheets("Tabelle2").Cells(11 + I, 2 + K).Value = zHilf(I, K) End If Sheets("Tabelle2").Cells(11 + I, 2 + K).NumberFormat = "hh:mm" Next K Next I Application.EnableEvents = True End Sub

…Albrecht;
erst Set raBereich = Range("C11:Z33, C35:Z57, C59:Z81, C83:Z105, C107:Z129, C131:Z153") und dann Set raBereich = Intersect(raBereich, Range(Target.Address))?
Target repräsentiert in dieser EventProc immer die Zelle, in der die Änderung erfolgt, und zwar als Range-Objekt!

Private Sub Worksheet_Change(ByVal Target As Range)
Const adRelBer$ = "C11:Z33, C35:Z57, C59:Z81, C83:Z105, C107:Z129, C131:Z153"
Dim relBereich As Range
Set relBereich = Range(adRelBer)
If Not Intersect(Target, relBereich) Is Nothing Then MakeTime Target
Set relBereich = Nothing
End Sub

So dürfte es auch von M.Schwimmer gemeint gewesen sein → Einstellung des richtigen (Zeit-)Formats sofort bei Eingabe, denn darum geht's ja wohl schließlich! Da im Nachhinein etwas korrigieren zu wollen, dürfte nicht im Sinne des Erfinders sein. Dazu würdest du auch kein Ereignis benötigen, denn das wäre etwas Anderes. Folglich hast du dir selbst das berühmte Bein gestellt. ;-]
Ich hatte so etwas auch mal entwickelt, allerdings für einen ganz spezifischen Zweck, wobei nicht die Zeit, sondern der Tag des jeweiligen Monats angegeben wird, um zu einem echten Datum vervollständigt zu wdn.
Ansonsten gibt's ja noch die Möglichkeit, das über die Zehnertastatur zu machen (mit Komma statt Doppelpkt). Dazu findest du sicher etliches im Archiv, denn wir hatten das Thema schon mal diskutiert.
Außerdem ist es immer nützlich, auch mal HWHs Angebot auf den Forumsseiten zu studieren. Viell ist da auch etwas dabei.
Gruß + schöDrAdWE, Luc :-?

…Albrecht,
als du versucht hast den Schwimmer ins „Schwimmen“ zu bringen, indem du den Doppelpkt, dessen Eingabe diese Routine ja vermeiden soll, doch eingegeben hast. ;-)
Die Zeile strHilf = String(4 - Len(strHilf), Asc("0")) & strHilf im Schwimmer-Pgm ist Blödsinn, denn String(4 - Len(strHilf), Asc("0")) liefert immer "0" weil die vbFkt String falsch angewendet wird → Arg1 ist die Anzahl der Wiederholungen von Arg2, aber Arg2 muss ein einzelnes Zeichen sein; Asc("0") liefert aber kein Zeichen, sondern den ASCII-Code von "0", also 48! So einen trivialen Fehler sollte man einem Sachbuchautor zwar nicht zutrauen (oder hast du das etwa verschlimmbessert?!), aber, wenn man berücksichtigt, dass so einer mit Vielschreiberei (und dem dadurch erworbenen Bekanntheitsgrad) Geld verdient, ist doch eigentl schon alles klar! So ein Pgmmchen ist doch nur Zugabe und erhebt keinen Anspruch auf universelle Fktionalität!
Wer viel schreibt, hat idR nicht so viel Zeit, auch noch viel zu testen! Allerdings würde ich so etwas nicht in ein Buch geschweige denn auf meine Homepage setzen. Aber auf letzteren kann man ja wirklich nicht nur haufenweise Trivialitäten finden, sondern auch etlichen Unsinn lesen — brauche da nur an die Site eines Chemie/Office-Coaches zu denken, der kaufmännisches mit wissenschaftl-technischem Runden verwechselt; oder die Site einer Wiener IT- und Office-Schulungsfirma, die in ihren Materialien beweist, dass sie wenig Ahnung von For Each-Zyklen hat. Diese Leute müssen Geld verdienen — sie können (und wollen) sich nicht auch noch mit Forschung befassen!
Gruß & schöVierAdWE, Luc :-?

Beliebteste Forumthreads (12 Monate)

Zeiten kopieren klappt nicht immer!

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread