Schichtplanerstellung
30.11.2005 14:15:27
Michael
ich habe ein Frage zur Schichtplanerstellung
Mein Kalenderblatt ist so konzipiert. 1 Spalte das Datum 2 Spalte leer und 3. Spalte die Schichtkürzel (Zahl) 4. Spalte wieder das Datum usw. Gibt es irgendeinen Code wenn in der 1. Spalte ein Datum steht und in der 3. Spalte ein Schichtkürzel, daß dann dazwischen (2.Spalte) die Zahl 10 geschrieben wird?
Ich habe versucht den unteren Code umzuschreiben, das klappt aber irgendwie nicht.
Sub test()
Dim ws As Worksheet, rg1 As Range, rg2 As Range, firstAdr As String, _
xRow As Long
Set ws = ActiveSheet
Set rg1 = ws.Cells
ActiveSheet.Range("A1").Activate
Set rg2 = rg1.Find("Montag", , xlValues, xlPart, xlByRows, xlNext, False)
If Not (rg2 Is Nothing) Then
firstAdr = rg2.Address
Do
If rg2.Offset(0, -2).Value = 4 Then
xRow = rg2.Row
rg2.Offset(0, -1).Value = "10"
End If
Set rg2 = rg1.FindNext(rg2)
Loop While (Not (rg2 Is Nothing)) And rg2.Address <> firstAdr
End If
Set rg1 = Nothing
Set rg2 = Nothing
Set ws = Nothing
End Sub
Dank für eure Hilfe
Michael