Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Nur eine Zelle aktivieren erlaubt

Frage Microsoft Microsoft Office

Mitglied: xaumichi

xaumichi (Level 1) - Jetzt verbinden

24.08.2010 um 12:28 Uhr, 2516 Aufrufe, 3 Kommentare

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
Mitglied: atbs84
24.08.2010 um 12:47 Uhr
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)
Bitte warten ..
Mitglied: 76109
24.08.2010 um 13:04 Uhr
Hallo Mike!

Das läßt sich doch ganz einfach per 'Target.Count > 1' überprüfen.

Beispiel:
01.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
02.
    If Target.Count > 1 Then MsgBox "Es wurden mehr als eine Zelle ausgewählt!" 
03.
End Sub
Du könntest auch etwas in der Art machen:
01.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
02.
    If Target.Count > 1 Then Cells(Target.Row, Target.Column).Select 
03.
End Sub
Wobei die Selektierung mehrerer Zellen aufgehoben wird, und nur die erste Zelle selektiert wird.

Gruß Dieter
Bitte warten ..
Mitglied: xaumichi
24.08.2010 um 13:56 Uhr
@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!
Bitte warten ..
Ähnliche Inhalte
Batch & Shell
Powershell Mikrofon aktivieren und Pegel einstellen (1)

Frage von Marabunta zum Thema Batch & Shell ...

Windows 7
gelöst Dateien verschieben Sicheheitswarnung Aktivieren (1)

Frage von Krabbelfiechle zum Thema Windows 7 ...

Windows 7
gelöst Bildschirmschoner via GPO aktivieren (3)

Frage von Ghost108 zum Thema Windows 7 ...

Windows Server
gelöst NET Framework 3.5 auf Windows Server 2012 R2 aktivieren - 0x800F0906 (7)

Frage von timg93 zum Thema Windows Server ...

Neue Wissensbeiträge
RedHat, CentOS, Fedora

Fedora, RedHat, Centos: DNS-Search Domain setzen

(9)

Tipp von Frank zum Thema RedHat, CentOS, Fedora ...

Drucker und Scanner

Samsung SL-M4025ND, firmware update und (kompatible) Tonerkassetten

(1)

Erfahrungsbericht von markus-1969 zum Thema Drucker und Scanner ...

Router & Routing

PfSense auf Supermicro Intel Xeon D-15x8 SoC Bare Bone

Tipp von Dobby zum Thema Router & Routing ...

Heiß diskutierte Inhalte
Windows 10
Windows für Privatanwender "nicht mehr handhabbar" (26)

Frage von FA-jka zum Thema Windows 10 ...

LAN, WAN, Wireless
Brauche Hilfe: Mit (schnellem) WLAN Strecke überbrücken (23)

Frage von pierrehansen zum Thema LAN, WAN, Wireless ...

Basic
Programmierung von Windows Programmen (10)

Frage von Ghost108 zum Thema Basic ...