Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
580to584
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
580to584
580to584
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Schicht

Schicht
05.03.2005 08:13:26
jede029
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Schicht
05.03.2005 10:40:53
Herbert
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
Anzeige
AW: Schicht/Danke
05.03.2005 12:07:10
jede029
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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige