Code erweitern
17.05.2004 19:01:37
André
mit nachfolgendem Code trge ich von meinem Schichtplan
in einen Kalender ein. Nun habe ich aber eine neue Datei,
wo in jedem Sheet ein Monat dargestellt ist.
Ich möchte jetzt, dass der Code so erweitert wird,
dass alle 12 Monate eingetragen werden.
Sub Gruppe_eintr()
Application.ScreenUpdating = False
Gruppe = [H1]
sp = 2
With Sheets("Grundplan").Columns(1)
Set G = .Find(Gruppe, LookIn:=xlValues, LookAt:=xlWhole)
z = G(1, 1).Row + 300
If z > 400 Then z = z - 399
m = 4
For i = 5 To 35
If Cells(i, m - 3) = "" Then Exit For
Cells(i, m) = .Cells(z, sp)
z = z + 1
If z = 401 Then z = 2
Next i
End With
Application.ScreenUpdating = True
End Sub
Anbei noch die Datei, zum Besseren Verständnis.( Geht nicht ?!! warum?)
Vielen Dank für Eure Hilfe
Gruss
AndréL.