Schicht

Bild

Betrifft: Schicht von: jede029
Geschrieben am: 05.03.2005 08:13:26

Hallo Experten

Ich habe eine schichttabelle (tab.blatt1) da sind die jeweiligen schichten A;B;C;D;E mit dem beginn enthalten. nun soll mit der systemzeit und datum die jeweilige schicht A;B;C;D;E in tab.blatt2 in B2 automatisch eingetragen werden.
https://www.herber.de/bbs/user/19114.xls
es gibt da auch bestimmt probleme mit der nachtschicht?

es wäre sehr hilfreich in VBA da ich nur daraus lernen kann

ich freue mich über jede antwort

Grüße
Jens

Bild


Betrifft: AW: Schicht von: Herbert H.
Geschrieben am: 05.03.2005 10:40:53

hallo Jens,
probier das einmal:



Public Sub schicht()
Dim shZ As Worksheet, shN As Worksheet, shS As Worksheet
Dim i%, s As Byte, r%
Set shZ = Sheets("schichtzeiten")
Set shN = Sheets("Name")
Set shS = Sheets("schicht")

For i = 3 To 367
  If shZ.Cells(i, 1) = Date Then
    r = shZ.Cells(i, 1).Row
      Exit For
  End If
Next


If Time >= #6:00:00 AM# And Time <= #2:00:00 PM# Then
    For s = 2 To 6
      If shZ.Cells(r, s) = 6 Then
         shS.Cells(2, 2) = shZ.Cells(1, s)
      End If
    Next
End If


If Time >= #2:00:00 PM# And Time <= #10:00:00 PM# Then
    For s = 2 To 6
      If shZ.Cells(r, s) = 14 Then
         shS.Cells(2, 2) = shZ.Cells(1, s)
      End If
    Next
End If


If Time >= #10:00:00 PM# Then
    For s = 2 To 6
      If shZ.Cells(r, s) = 22 Then
         shS.Cells(2, 2) = shZ.Cells(1, s)
      End If
    Next
End If


If Time < #6:00:00 AM# Then
    For s = 2 To 6
      If shZ.Cells(r - 1, s) = 22 Then
         shS.Cells(2, 2) = shZ.Cells(1, s)
      End If
    Next
End If


For i = 1 To 5
  If shN.Cells(i, 1) = shS.Cells(2, 2) Then
     shS.Cells(4, 2) = shN.Cells(i, 2)
  End If
Next

End Sub


     gruß Herbert


Bild


Betrifft: AW: Schicht/Danke von: jede029
Geschrieben am: 05.03.2005 12:07:10

Hallo Herbert

Ich danke Dir für deine Antwort.

Ich kann es erst leider heute oder morgen prob.

werde mich dann nocheinmaldeswegen zurück melden.

Danke und Grüße

jens


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Schicht"