AW: Unzulässige Verwendung von Null
11.09.2010 14:58:03
Null
Hallo BoskoBiati
Wenn ich dieses Makro aufrufe.
Bin gerade noch dabei.eine Mappe hochzuladen, ist momentan noch zu groß
Danke
Heinz
Sub Neuer_Schichtplan()
Application.ScreenUpdating = False
If MsgBox("Wollen Sie die Schichten einfügen ? Die alten Schichtpläne werden gelöscht.", _
vbQuestion + vbYesNo, _
" Nachfrage Schichten einfügen !") = vbNo Then Exit Sub
Sheets("Jänner").Unprotect
Sheets("Februar").Unprotect
Sheets("März").Unprotect
Sheets("April").Unprotect
Sheets("Mai").Unprotect
Sheets("Juni").Unprotect
Sheets("Juli").Unprotect
Sheets("August").Unprotect
Sheets("September").Unprotect
Sheets("Oktober").Unprotect
Sheets("November").Unprotect
Sheets("Dezember").Unprotect
Sheets("Schichtplan").Range("Y42:AG71").Copy
Sheets("September").Range("C500").PasteSpecial Paste:=xlPasteValues, Transpose:=True
Sheets("September").Range("C500:AG508").ClearComments
Sheets("September").Range("C500:AG508").Replace What:="0", Replacement:=""
Sheets("September").Range("C3:AG156").Interior.ColorIndex = xlNone
Sheets("September").Range("C3:AG156").Font.ColorIndex = 0
'Vorarbeiter
Sheets("Schichtplan VA").Range("Q42:U71").Copy
Sheets("September").Range("C509").PasteSpecial Paste:=xlPasteValues, Transpose:=True
Sheets("September").Range("C509:AG513").ClearComments
Sheets("September").Range("C509:AG513").Replace What:="0", Replacement:=""
'Sheets("September").Range("C3:AG156").Interior.ColorIndex = xlNone
'Sheets("September").Range("C3:AG156").Font.ColorIndex = 0
'Schrumpfer
Sheets("Schichtplan Schrumpfer").Range("Q42:U71").Copy
Sheets("September").Range("C514").PasteSpecial Paste:=xlPasteValues, Transpose:=True
Sheets("September").Range("C514:AG518").ClearComments
Sheets("September").Range("C514:AF518").Replace What:="0", Replacement:=""
'Sheets("September").Range("C3:AG156").Interior.ColorIndex = xlNone
'Sheets("September").Range("C3:AG156").Font.ColorIndex = 0
'Qualitätssicherung
Sheets("Schichtplan QS").Range("Q42:U71").Copy
Sheets("September").Range("C519").PasteSpecial Paste:=xlPasteValues, Transpose:=True
Sheets("September").Range("C519:AG523").ClearComments
Sheets("September").Range("C519:AF523").Replace What:="0", Replacement:=""
'Sheets("September").Range("C3:AG156").Interior.ColorIndex = xlNone
'Sheets("September").Range("C3:AG156").Font.ColorIndex = 0
Dim i As Integer
Dim j As Integer
For i = 1 To 12
For j = 3 To 156
If Sheets(i).Cells(j, 1) "" Then
Workbook_SheetChange Sheets(i), Cells(j, 2)
End If
Next j
Next i
Sheets("Jänner").Protect
Sheets("Februar").Protect
Sheets("März").Protect
Sheets("April").Protect
Sheets("Mai").Protect
Sheets("Juni").Protect
Sheets("Juli").Protect
Sheets("August").Protect
Sheets("September").Protect
Sheets("Oktober").Protect
Sheets("November").Protect
Sheets("Dezember").Protect
Application.ScreenUpdating = True