Top-Themen

Aktuelle Themen (A bis Z)

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

Excel VBA - Wie Sperre ich eine Zelle die per CommanButton ihre Werte bekommt?

Frage Microsoft Microsoft Office

Mitglied: Amiga500

Amiga500 (Level 1) - Jetzt verbinden

24.02.2012 um 14:15 Uhr, 6845 Aufrufe, 2 Kommentare

Moin,

ich habe leider keine Ahnung von VBA und habe mir jetzt die letzte Woche schon etwas selber angeeignet, aber mir fällt es immer noch schwer entsprechende Codes aus dem Netz für meine Zwecke anzupassen.

Jedenfalls habe ich in meiner Tabelle in der Zelle i30 ein Commandbutton. Wenn dieser geklickt wird, dann wird in der Zelle G30 der vorhande Wert um +1 erhöht.

Private Sub button1_Click()

With Range("G30")
.Value = .Value + 1
End With
End Sub
Soweit so gut... Ich möchte jetzt allerdings die Zelle G30 vor Veränderungen schützen. Die Zelle soll per Hand nicht zu löschen sein, damit die Vorgangsnummer für unsere Aufträge nicht verändert wird und mein CommandButton dann nicht wieder von 0 anfängt zu zählen.

Wie kann ich das mit VBA umsetzen?


Viele Grüße

Amiga500
Mitglied: bastla
24.02.2012 um 17:45 Uhr
Hallo Amiga500!

Wenn Du vorweg den Blattschutz aktivierst, könnte das so gehen:
01.
Private Sub button1_Click() 
02.
ActiveSheet.Unprotect 
03.
With Range("G30") 
04.
    .Locked = False 
05.
    .Value = .Value + 1 
06.
    .Locked = True 
07.
End With 
08.
ActiveSheet.Protect 
09.
End Sub
Grüße
bastla
Bitte warten ..
Mitglied: Amiga500
28.02.2012 um 12:23 Uhr
Danke Dir...


ohne .Locked = False und .Locked = True funktioniert es, allerdings möchte ich nur die eine Zelle gesperrt haben...
es gibt noch viele andere Zellen in der Tabelle wo Eintragungen notwendig sind...

Gibt es evtl. eine Möglichkeit die Sperrung auf die eine Zelle G30 zu beschränken?




Edit: Hat sich erledigt... Ich habe allen Buttons und checkboxes jetzt ActiveSheet.Unprotect + ActiveSheet.Protect hinzugefügt
Jetzt können alle relevanten Felder bearbeitet werden und alle anderen sind gesperrt...

Danke nochmal


Grüße

Amiga 500
Bitte warten ..
Ähnliche Inhalte
Microsoft Office
Excel VBA Letzte Zelle Suchen dann rechnen und Wert in Zelle Übertragen
gelöst Frage von Addi089Microsoft Office3 Kommentare

Hallo Admin Forum, jetzt muss ich leider auch mal eine Frage Posten sonst lese ich immer nur und habe ...

Microsoft Office
Excel VBA Wert hochzählen
gelöst Frage von Florian86Microsoft Office1 Kommentar

Hallo, ich habe im VBA Code folgendes stehen Range("E10") = Range("E10") + 1 Jetzt ist der Wert bei schon ...

VB for Applications
Excel VBA Eine oder mehrere Zellen Verschieben
gelöst Frage von batchnewbieVB for Applications2 Kommentare

Hallo, Ich habe in A1 eine Dropdown Liste mit den Werten 1, 2, 3. In A2, A3, A4 usw. ...

VB for Applications
EXCEL VBA Zellen verbinden. MERGE
gelöst Frage von AximandVB for Applications6 Kommentare

Hallo Mitglieder, ich verzweifel gerade an einem Problem, was mich schon 'Stunden' kostet. Ich habe in einem Tabellenblatt Daten ...

Neue Wissensbeiträge
Internet

Was nützt HTTPS, wenn es auch von Phishing Web-Seiten genutzt wird

Information von Penny.Cilin vor 2 TagenInternet17 Kommentare

HTTPS richtig einschätzen Ob man eine Webseite via HTTPS aufruft, zeigt ein Schloss neben der Adresse im Webbrowser an. ...

Webbrowser

Bugfix für Firefox Quantum released - Installation erfolgt teilweise nicht automatisch!

Erfahrungsbericht von Volchy vor 3 TagenWebbrowser7 Kommentare

Hallo zusammen, gem. dem Artike von heise online wurde mit VersionFirefox 57.0.1 sicherheitsrelevante Bugs behoben. Entgegen der aktuellen Veröffentlichung ...

Sicherheit

Teamviewer Sessions können gekapert werden - Update tw. verfügbar

Information von sabines vor 3 TagenSicherheit6 Kommentare

In bestimmten Konstellationen können Teamviewer Sessions gekapert werden, wahrscheinlich aber ein recht unwahrscheinliches Szenario. Da der Teamviewer gerne für ...

Digitiales Fernsehen

Apple TV: Amazon Prime App ist verfügbar

Information von Frank vor 4 TagenDigitiales Fernsehen4 Kommentare

Die Amazon Prime Video App kann ab sofort auf einem Apple TV ab der 3 Generation installiert werden. Einfach ...

Heiß diskutierte Inhalte
Vmware
Installation Windows 10 VMware
Frage von Ghost108Vmware17 Kommentare

Hallo zusammen, versuche gerade mit Hilfe des vshpere clients eine virtuelle Windows 10 maschine aufzusetzen. 1. virtuelle Maschine erstellt ...

Exchange Server
SBS 2011 E-Mails können gesendet werden, aber nicht von extern empfangen
Frage von andreas1234Exchange Server14 Kommentare

Hallo Community, ich habe das Problem, dass seit knapp zwei Wochen die E-Mails von meinem SBS 2011 einwandfrei gesendet ...

Voice over IP
Telefonstörung - Ortsrufnummern kein Verbindungsaufbau
Frage von Windows10GegnerVoice over IP10 Kommentare

Hallo, sowohl bei uns als auch beim Opa ist es über VoIP nicht möglich Ortsrufnummern anzurufen. Es kommt nach ...

Windows Server
Server 2012 über Eingabeaufforderung devmgmt.msc geht nicht
gelöst Frage von achim222Windows Server9 Kommentare

Hallo, ich habe hier einen Server 2012 der im Reparaturmodus startet. Es liegt an einem falschen VirtIO Treiber für ...