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, 2509 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
Microsoft Office
gelöst Excel: Einzelne Zeilen einer mehrzeiligen Zelle auslesen (3)

Frage von Booster07 zum Thema Microsoft Office ...

Windows Server
gelöst Win Server Evaluation (180 days) Lizenz vermieten erlaubt?? (8)

Frage von Enivois zum Thema Windows Server ...

Windows Installation
Administratorkonto aktivieren oder nicht? (6)

Frage von markaurel zum Thema Windows Installation ...

Heiß diskutierte Inhalte
Exchange Server
gelöst Email in Exchange an 2ten Empfänger senden (18)

Frage von MultiStorm zum Thema Exchange Server ...

Weiterbildung
Gehaltsvorstellungen (14)

Frage von SYS64738 zum Thema Weiterbildung ...

Windows Server
gelöst Microsoft-Lizenz CALs und passendes Server-Betriebssystem (13)

Frage von planetIT2016 zum Thema Windows Server ...

Verschlüsselung & Zertifikate
gelöst Festplattenverschlüsselung im Ausland (13)

Frage von Nicolaas zum Thema Verschlüsselung & Zertifikate ...