Hallo Zusammen,
in meiner Tabelle befinden sich in Spalte X Namen von Mitarbeitern, in den Spalten F bis L (in meiner Tabelle stellt das Montag bis Sonntag dar) werden diese in einen Schichtplan eingeteilt.
Ich würde mir nun gerne mit VBA in den Zeilen Y bis AE (auch Montag bis Sonntag) ein X einfügen lassen, wenn der Mitarbeiter aus Spalte X in den Spalten F bis L eingeplant ist.
Mein Code sieht aktuell folgendermaßen aus:
Dim BereichA As Range, ZelleA As Range
Dim BereichB As Range, ZelleB As Range
Dim Wert, AlleWerte
Dim Vergleich As Boolean
Dim i As Long
Dim j As Long
Set BereichA = Sheets("KW34").Range("X9:X400")
Set BereichB = Sheets("KW34").Range("F9:L263")
'Zähler
i = 0
'Zeile im MA Pool
j = 8
For Each ZelleA In BereichA
Wert = ZelleA.Value
For Each ZelleB In BereichB
Vergleich = False
If ZelleB.Value = Wert Then
Vergleich = True
Exit For
End If
Next
j = j + 1
i = i + 1
End If
Next
End Sub
dieser Code prüft aktuell ob der Name bereits verplant ist oder nicht. Ich weiß nur noch nicht wie ich mir jetzt in den Spalten Y bis AE mit einem X anzeigen kann, dass dieser Mitarbeiter an diesem Tag verplant ist.
Ich hoffe ihr könnt mir einen Tipp geben.
Vielen Dank für eure Hilfe.
Viele Grüße
Marina