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"