range auswählen - laufzeitfehler
18.09.2006 07:34:57
manuela
ich habe einen arbeitsplan. mit meinem makro lese ich die personalnummern aus dem aktiven monat, öffne damit das detailblatt der mitarbeiter und möchte dort die formeln des aktiven monats durch werte ersetzen. damit ich weiss, welchen bereich ich auf dem mitarbeiterplan selektieren muss, fülle ich rng ab. mit rng.select erhalte ich allerdings auf dem mitarbeitersheet einen laufzeitfehler. danke fürs feedback
manuela
Dim iAnz As Integer
Dim rng As Range
Dim Monat As String
Dim Mitarbeiter As String
Monat = ActiveSheet.Name
Application.DisplayAlerts = False
Application.ScreenUpdating = False
ActiveWorkbook.Unprotect PW
If Monat = "Aug" Then
Set rng = Range("A214:W244")
End If
If Monat = "Sep" Then
Set rng = Range("A245:W274")
End If
usw.
Sheets(Monat).Select
Range("A5").Select
For iAnz = 1 To 30
ActiveCell.Offset(1, 0).Select
If ActiveCell.Value >= 1 And ActiveCell.Value Mitarbeiter = ActiveCell.Offset(0, 3).Value
Sheets(Mitarbeiter).Select
rng.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets(Monat).Select
End If
Next iAnz