brauche dringend hilfe

hallo an alle
ich sitze an meiner diplomarbeit und komme nicht weiter
habe hier mal eine beispielmappe hochgeladen um es verständlich zu machen https://www.herber.de/bbs/user/33425.xls
ich habe in einem tabellenblatt namens "Stammdaten" eine auflistung der Personen mit auflistung welchem team sie angehören sowie ein eine sp gruppenzuweisung wie oben links in der mappe.diese liste der personen ist dynamisch es kommen welche hinzu und andere werden gelöscht.von einer anderen tabelle namens SP habe ich den Einsatz also wie die sp's anwesend sind.
Nun habe ich ein Tabellenblatt in welchem ich ab spalte b4 das datum herunterlaufen lasse jeweils immer für ein bestimmtes jahr.
weil es bei den daten die ich bekomme immer um aktualisierungen handelt und ich einige zellen löschen muß und aus einigen anderen gründen muß ich mittels vba arbeiten.
nun denn ich muß ab spalte h so etwas wie das gelb unterlegte machen.
1.also muß immer jeweils zum team der teamangehörige aufgelistet werden
2.es muß verglichen werden in welcher sp gruppe sich die person befindet und hiernach eingetragen werden ob er an dem Tag anwesend ist.
wenn irgendjemand mir helfen könnte wäre ich sehr dankbar denn ich weiß nicht wie ich das machen soll, und mir die zeit im nacken steht.
gruß an alle helfenden
selo

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

hallo selo,

Option Explicit
Public Sub x()
Dim i&, s As Byte, d As Byte, z&
Dim t As Byte, wt As Byte, wtZ As Byte
On Error GoTo errEnde
Application.ScreenUpdating = False
For i = 2 To 11
  For s = 5 To 14
      If Cells(i, 1) = Cells(13, s) Then
          For d = 4 To 7
              If Cells(d, 4) = Cells(i, 3) Then
                  For z = 14 To 300
                     For t = 5 To 11
                        wt = Weekday(Cells(z, 4))
                        wtZ = Weekday(Cells(3, t))
                        If wt = wtZ And Cells(d, t) = 1 Then
                          Cells(z, s) = 1
                        End If
                         If wt = wtZ And Cells(d, t) = 0 Then
                          Cells(z, s) = 0
                        End If
                     Next
                  Next
               End If
           Next
        End If
     Next
Next

errEnde:
Application.ScreenUpdating = True
End Sub

das könnte die Lösung sein,wenn du in deiner Tabelle eine
kleine Veränderung machst...
vollautomatisiert für variable Anzahl Zeilen ist es auch nicht...
gruß Herbert

Sub x() Dim i&, s As Byte, d As Byte, z& Dim t As Byte, wt As Byte, wtZ As Byte On Error GoTo errEnde Application.ScreenUpdating = False Dim l As Byte For i = 2 To Cells(65536, 1).End(xlUp).Row For s = 5 To 14 If Cells(i, 1) = Cells(13, s) Then For d = 4 To 7 If Cells(d, 4) = Cells(i, 3) Then For z = 14 To Cells(14, 6) For t = 5 To 11 wt = Weekday(Cells(z, 4)) wtZ = Weekday(Cells(3, t)) If wt = wtZ And Cells(d, t) = 1 Then Cells(z, s) = 1 End If If wt = wtZ And Cells(d, t) = 0 Then Cells(z, s) = 0 End If Next Next End If Next End If Next Next errEnde: Application.ScreenUpdating = True End Sub

Beliebteste Forumthreads (12 Monate)

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread