eine Farbe erweitern, sehe Lösung nicht
Anpassung nehme ich an in Zeile if Dat
Auszug aus Makro
Cells(s + b, 1) = pers(u, s) ' Personalnummer in Tabelle schreiben
Cells(s + b, 2) = nam(u, s) ' Namen in Tabelle schreiben
Cells(s + b, 3) = vonam(u, s) ' Vornamen in Tabelle schreiben
For sp = 4 To 255
If dat(u, s, sp) < 3 Or dat(u, s, sp) > 4 Then GoTo sprung ' wenn Farbe rot oder grün...
Cells(s + b, sp).Interior.ColorIndex = dat(u, s, sp) ' ...Farben übertragen
sprung:
Next sp
Next s
Next u
DANKE
geri