Activate or NO Activate
ing.grohn
man liest allenthalben man möge auf Select und Activate verzichtet.
Ich halte mich so gut es geht daran.
Wenn ich aber testen will ob ein Workbook geöffnet ist oder nicht gehe ich so vor:
On Error Resume Next
Workbooks("Personal-" & Jahr & ".xls").Activate
If Err.Number = 9 Then
Workbooks.Open Filename:=Pfad
End If
Workbooks("Personal-" & Jahr - 1 & ".xls").Activate
For Each ws In Workbooks("Personal-" & Jahr - 1 & ".xls").Worksheets
If Left(ws.Name, 2) = "PN" Then
'Sheets(ws.Name).Select
Tabelle = ws.Name
With Sheets(ws.Name)
.Unprotect
If Not SheetExist(Tabelle, Workbooks("Personal-" & Jahr & ".xls")) Then
MsgBox ("Mitarbeiter " & Tabelle & " ist nicht vorhanden!! (" & Pfad & ")")
Else
Workbooks("Personal-" & Jahr & ".xls").Sheets(Tabelle).Unprotect
Workbooks("Personal-" & Jahr & ".xls").Sheets(Tabelle). _
Cells(4, 22).Value = .Cells(9, 22).Value
Workbooks("Personal-" & Jahr & ".xls").Sheets(Tabelle). _
Cells(3, 22).Value = .Cells(5, 22).Value
Workbooks("Personal-" & Jahr & ".xls").Sheets(Tabelle).Protect
End If
.Protect
End With
End If
Next
(Der Pfad wurde vorher bestimmt)
Das Ding funktioniert aber nur dann richtig, wenn ich nach dem Testen/Öffnen der "neuen" Personal-2012-Datei die "alte" Personal-2011-Datei "Activiere"
wie kann ich hier auf Activate verzichten?
Bedankt für die Hilfe!
mit freundlichen Grüßen
Albrecht