In allen Dateien gleiche Zelle aktivieren
12.09.2003 09:51:37
Lars Jungclaus
Danke für Eure Hilfe.
Sub gleichePosition()
Dim samecell, sameworksheet As Variant
Dim Worksheet As Variant
Application.ScreenUpdating = True
samecell = Selection.Address
sameworksheet = ActiveCell.Worksheet.Name
For Each Worksheet In Worksheets
Worksheet.Select
Range(samecell).Select
Next
Worksheets(sameworksheet).Activate
Application.ScreenUpdating = True
End Sub
Anzeige