Office: farbige Zellen mittels Makro berücksichtigen

Hallo Zusammen

Ich bin in meinem Unternehmen für die Einsatzplanung der Mitarbeiter zuständig, d.h. ich muss ihnen ihr Einsatzgebiet wöchentlich zuweisen. (Siehe Bsp, die gelb markierten Zellen beschreiben die freien Tage). Da dieser Prozess der Einsatzplanung bei knapp 100 Mitarbeitern sehr zeitaufwendig ist, würde ich diese Routineaufgabe mittels (Kopier-)Makros gerne beschleunigen. Ich würde gerne mit Schaltflächen das Einsatzgebiet dem Mitarbeiter gleich für eine ganze Zeile (und nicht Zelle für Zelle) zuweisen und dabei (und das ist für mich entscheidend) sollen die freien Tage bzw. die farbigen Zellen berücksichtigt und nicht überschrieben werden. Ich habe schon etwas mit dem Makrorekorder experimentiert, aber irgendwie komme ich da als Excel Newbie nicht weiter. Ich hoffe, dass ich mein Problem einigermaßen verständlich beschrieben habe und Ihr mir helfen könnt. Vielen Dank für euere Unterstützung.

 

Hallo,

das folgende Makro "Makro1" anstelle des bisherigen Makros speichern in einem allgemeinen Codemodul (zB. Modul1):

Code:

Option Explicit

Sub Makro1()
   Dim Zeile As Long, Spalte As Long
    
   Zeile = ActiveCell.Row
   For Spalte = 2 To 7
     With Cells(Zeile, Spalte)
       If .Interior.Color = vbWhite Then
          .Value = 1                'Zellwert, der in den Zellen gespeichert wird
       End If
     End With
   Next Spalte
End Sub

Es zeigt folgendes Verhalten:
1) Die aktive Zelle in eine bestimmte Zeile stellen.
2) In dieser Zeile werden dann die Zellen im Spaltenbereich B:G mit einer 1 ausgefüllt, aber nur dann, wenn es es sich um eine weiße Zelle handelt.

 

Klasse. Vielen Dank.