Jede Zeile abwechselnd eine 1 oder 2 schreiben
04.04.2014 09:05:16
Marc
Ich erstelle gerade ein Sheet zur Schichteinteilung, dazu hat meine Userform 2 Comboboxen. Combobox1 für die Namen, die zweite für die Schichteinteilung.
die zweite wird gefüllt mit
- nur Früh
- nur Spät
- Gerade KW Spät
- Ungerade KW Spät
nur Früh und Spät funktioniert soweit. Mein Problem liegt in Gerade und Ungerade :/
Der Code läuft zwar durch aber er braucht verdammt lange und er erkennt die Prüfung nicht, also ob 1 oder 2 in der .Range("E12:E70") steht.
Geht ihr da ne bessere Lösung? Danke schon mal und schönes WE
Gruß
Private Sub CommandButton1_Click()
Dim rngBer As Range, rngC As Range
With Sheets("Schichteinteilung")
For i = 12 To 70
If ComboBox2.Value = "nur Frühschicht" Then
.Cells(i, Rows(1).Find(ComboBox1).Column) = 1
Else
End If
If ComboBox2.Value = "nur Spätschicht" Then
.Cells(i, Rows(1).Find(ComboBox1).Column) = 2
Else
End If
If ComboBox2.Value = "Gerade KW Spät" Then
Set rngBer = .Range("E12:E70")
For Each rngC In rngBer
If rngC.Value = 2 Then
.Cells(i, Rows(1).Find(ComboBox1).Column) = 2
ElseIf rngC.Value = 1 Then
.Cells(i, Rows(1).Find(ComboBox1).Column) = 1
End If
Next
End If
Next
End With
End Sub