bin auf der Suche nach einer Möglichkeit, das Selektieren von mehrerer Worksheets zu verhindern. Hat da jemand ein Idee?
Freundlichst
Dieter W. Kleist
Function checkSheets() As Boolean
Dim wks As Worksheet, i As Integer
For Each wks In ActiveWorkbook.Windows(1).SelectedSheets
i = i + 1
Next
checkSheets = i > 1
End Function
Sub tt()
If checkSheets = True Then
MsgBox "Fehler!"
Else
'tuwas
End If
End Sub
If ActiveWindow.SelectedSheets.Count > 1
kannst Du prüfen, ob mehrere Blätter selektiert sind.
Gruss Hansueli