Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Ich brauch einfach nur eine Zeitanzeige
#11
Hallo Andre,

wenn ich dir mal antworten darf und nicht Elex.
Das Makro kannst du dir mit [Alt]+[F11] ansehen bzw. wenn du einen Rechtsklick unten auf den Tabellenreiter machst und dort "Code anzeigen" auswählst.
Allerdings wird dir das nicht viel helfen, denn wenn man nichts von VBA versteht, ist der Makro-Code ein undefinierbares Gebilde - außerdem kann man bei Unachtsamkeit die ganze Funktionalität zustören. Wenn du also reinschauen willst, dann zu deiner Sicherheit bitte an einer Kopie!
Viel Spaß beim Studieren.
[Bild: attachment-190.gif]
Gruß Günter
aus der Helden-, Messe-, Musik-, Buch-, Universitäts- und Autostadt Leipzig
[-] Folgende(r) 1 Nutzer sagt Danke an Glausius für diesen Beitrag:
  • Elex
Antworten Top
#12
Hi

Wie es Günter schon schreibt wird es ohne jegliche Kenntnisse schwer mit Verstehen und eigenen Anpassungen.

Um auch Zeiten großer 24h Gesamt und arbeiten über Mitternacht richtig zu erfassen, sind folgende Anpassungen nötig.

1. Den alten Code durch diesen ersetzen.
2. Die Zellen für letzte Zeit und Gesamt mit dem Zellformat formatieren.
    Benutzerdefiniert:      [hh]:mm:ss
Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If (Target.Row + 2) Mod 4 = 0 And Not Application.Intersect(Range("C6:F37"), Target) Is Nothing Then
   If Target = "Start" Then
      Target = "Stopp"
      Target.Interior.ColorIndex = 3
      Target.Offset(1) = Now
   Else
      Target = "Start"
      Target.Interior.ColorIndex = 4
      Target.Offset(2) = Now - Target.Offset(1)
      Target.Offset(3) = Target.Offset(2) + Target.Offset(3)
      Target.Offset(1) = ""
   End If
Cancel = True
End If
End Sub

Gruß Elex
Antworten Top
#13
Ich Danke Euch allen !!! :98:

Ich habe das Makro mir angesehen, aber ich glaube das werde ich ohne das es mir jemand bei bringt nicht lernen.  :22:
Da sind ja die Makro`s auf der CNC fast ein Kinderspiel. Mich ärgert es nur, wenn ich dann irgend wann an meine Grenzen komme. Und ich von selbst nicht weiter komm.

MfG
Andre
Antworten Top
#14
Hallöchen,

das werden aber große Teile mit drehen und fräsen > 24h Smile Ich hab anbei mal eine alte naive Version Smile aber ohne die Formatänderung.
Ich hab da auch die Zeilenanzahl reduziert und statt der Buttons einfach die Zellen genommen. Sobald Du in so eine "Buttonzelle" klickst, erfolgt der Start oder der Stop.
Ein kleiner Haken ist noch dabei - wenn Du eine Zeit genommen hast und drückst nochmal Stop, dann wird die Zeit wieder geändert. Man müsste da etwas anders vorgehen, kann ich bei Bedarf noch einarbeiten. Z.B. statt einer Startzeit was anderes reinschreiben und erst bei Ende die Zeit. Dann würde ich bei Ende die Zeit nur neu berechnen, wenn Start in der Zeitzelle steht Smile Oder man tut die Zele einfärben und die Farbe prüfen. Oder was auch immer …

Der Code wirkt dann in jeder zweiten Spalte ab D und weiter eingegrenzt, siehe auch die Kommentare im Code.


Angehängte Dateien
.xlsm   Projektname Test1.xlsm (Größe: 19,18 KB / Downloads: 6)
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Antworten Top
#15
Also ich würde bei Elex seiner Variante bleiben. Habe den alten Code gegen den neuen ausgetauscht und in einer separaten Datei abgespeichert. Also sollten jetzt alle 2 Codes in 2 verschiedenen Dateien sein.

Danke noch mal. Sollte ich noch fragen haben, würde ich mich noch mal melden. Wenn ich darf ? :19:

MfG 
Andre
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste