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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen