Hallo Zusammen,
ich hoffe ihr könnt mir weiterhelfen. Ich bin absolut neu im VBA gebiet. Wir haben bei uns im Betrieb eine Software für die Zeiterfassung wo man auch den Schichtplan erstellen kann.
Diesen Schichtplan kann man nach Excel exportieren allerdings sieht er dort nicht schön aus und man muss ihn mit gefühlten tausend Klicks optimieren.
Erster Schritt wäre folgender:
Sub Dienstplan()
If Range("B6").Value > 0 Then Range("I6:N6").ClearContents
End Sub
Erklärung hierzu, wenn in Zelle B6 was drin steht dann leere den Inhalt der Zellen I6 bis N6. Das Ganze habe ich manuell bis Zeile 100 ausgefüllt. Es funktioniert aber es ist verdammt viel tipperei. Gibt es nicht die Möglichkeit zu sagen prüfe ob in den Zellen "B6:B100" etwas drin steht dann gehe in die jeweilge Zeile wo was in B drin steht und leere den Zellinhalt der Zellen I bis N ? Vielleicht mit einer Schleife oder so?
Zweiter Schritt wäre:
Prüfe ob in dem Zellbereich "I6:N100" ein "A" oder "B" oder "C" oder "D" oder "E" oder "F" oder "G" steht dann leere den Zellinhalt wo die jeweiligen Buchstaben stehen.
Ist das irgendwie realisierbar ?
Tausen Dank schonmal für Eure Hilfe im Voraus!
|