3
Nur eine Zelle aktivieren erlaubt
Hallo!
Ist es möglich, mit VBA einen Code zu schreiben, dass verhindert wird, dass in einem Worksheet mehr als eine Zelle aktiviert/selektiert wird?
Hintergrund: is gibt im vorhanden Code einige Passagen, mit "...Target.Row...." usw. und diese funktionierten natürlich nicht mehr, wenn nun zB 2 Zellen markiert werden und dann der Inhalt davon gelöscht wird.
Lg Mike
Ist es möglich, mit VBA einen Code zu schreiben, dass verhindert wird, dass in einem Worksheet mehr als eine Zelle aktiviert/selektiert wird?
Hintergrund: is gibt im vorhanden Code einige Passagen, mit "...Target.Row...." usw. und diese funktionierten natürlich nicht mehr, wenn nun zB 2 Zellen markiert werden und dann der Inhalt davon gelöscht wird.
Lg Mike
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 149601
Url: https://administrator.de/contentid/149601
Printed on: April 20, 2024 at 05:04 o'clock
3 Comments
Latest comment
Moin,
frag doch im Code vor diesen Passagen ab wieviele Zellen markiert sind und führe die entsprechende Aktion dann bei mehreren Zellen einfach nicht aus..., bzw. mach diese Abfrage vor dem Funktionsaufruf (also z.B. wenn der Benutzer dann den Button benutzt, der deine Aktionen da auslöst)
frag doch im Code vor diesen Passagen ab wieviele Zellen markiert sind und führe die entsprechende Aktion dann bei mehreren Zellen einfach nicht aus..., bzw. mach diese Abfrage vor dem Funktionsaufruf (also z.B. wenn der Benutzer dann den Button benutzt, der deine Aktionen da auslöst)
Hallo Mike!
Das läßt sich doch ganz einfach per 'Target.Count > 1' überprüfen.
Beispiel:
Du könntest auch etwas in der Art machen:
Wobei die Selektierung mehrerer Zellen aufgehoben wird, und nur die erste Zelle selektiert wird.
Gruß Dieter
Das läßt sich doch ganz einfach per 'Target.Count > 1' überprüfen.
Beispiel:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then MsgBox "Es wurden mehr als eine Zelle ausgewählt!"
End SubDu könntest auch etwas in der Art machen:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Cells(Target.Row, Target.Column).Select
End SubGruß Dieter
@atbs84: Danke für die Gedankenstütze!
@ didi1954:
Hui....das ist aber ne coole sache!
Genau so hab ich mir das vorgestellt
Danke schön!
@ didi1954:
Hui....das ist aber ne coole sache!
Genau so hab ich mir das vorgestellt
Danke schön!
