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

VBA Excel Pflichtfelder

Mitglied: Exceluserin

Exceluserin (Level 1) - Jetzt verbinden

13.08.2014 um 13:46 Uhr, 3813 Aufrufe, 1 Kommentar

Hallo zusammen,

ich arbeite gerade an einer Tabelle, bei der ich folgendes versuche :

Es soll, sobald die Zellen D5 bis D35 und I5 bis I35 ausgefüllt sind und der Benutzer versucht, die Tabelle so zu schliessen, verhindert werden, dass es abgespeichert werden kann und eine Meldung erscheint, dass man z.B. die Zellen B5 bis P5 ausfüllen muss.

Leider kenne ich mich überhaupt nicht mit VBA aus... ich hoffe, ihr könnt mir helfen

Liebe Grüsse

Lou
Mitglied: colinardo
13.08.2014, aktualisiert um 18:19 Uhr
Hallo Lou, Willkommen auf Administrator.de!
Kannst folgendermaßen machen, wenn du den Bereich B5:P5 auf Inhalt prüfen willst. Hierbei ist es bei diesem Code wichtig das bevor du den Code in das Workbook einfügst die Datei vorher abspeicherst und dann im Explorer die Eigenschaft Inhaltsstatus auf dem Tab Details auf Entwurf festlegst bzw. eingibst (Dokument natürlich vorher schließen).

cd6e22ce143767612ddcc3389257a93d - Klicke auf das Bild, um es zu vergrößern

Der Hintergrund dafür ist, das das BeforeSave-Event auch anspricht während du das Dokument im Entwurf bearbeitest und es so bei leeren Zellen im Bereich B5:P5 das Dokument nicht speichern würde. Deswegen legst du die Eigenschaft während des Entwurfs auf diesen Wert, und wenn du fertig zum Verteilen der Datei bist, löschst du den Wert nach dem Schließen der Datei im Explorer raus. Damit wird dann das Makro quasi "scharf" geschaltet, das Makro prüft nämlich auf diesen Wert.
01.
'Event wird vor jedem Speichern ausgeführt 
02.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 
03.
    ' Nur wenn die Dokumenteigenschaft nicht auf 'Entwurf' steht führe die Abfrage-Routine aus 
04.
    If Not ActiveWorkbook.BuiltinDocumentProperties.Item("Content Status") = "Entwurf" Then 
05.
        'Prüfe jede Zelle im Bereich B5:P5 auf Inhalt 
06.
        For Each cell In Worksheets(1).Range("B5:P5") 
07.
            ' wenn die Zelle leer ist gebe eine Warnung aus, und breche den Speichervorgang ab 
08.
            If cell.Value = "" Then 
09.
                MsgBox "Es wurden nicht alle Pflichtfelder ausgefüllt!", vbCritical 
10.
                ' Speichervorgang abbrechen 
11.
                Cancel = True 
12.
                Exit For 
13.
            End If 
14.
        Next 
15.
    End If 
16.
End Sub
Hinweis: Der Code muss im VBA-Editor (ALT-F11) im Abschnitt DieseArbeitsmappe eingefügt werden, sonst wird der Event-Handler nicht ausgeführt.

Grüße Uwe
Bitte warten ..
Ähnliche Inhalte
VB for Applications

Optionsfeld als Pflichtfeld - Excel - VBA

gelöst Frage von Sylvia123VB for Applications9 Kommentare

Hallo zusammen, ich bin gerade dabei meinen ersten Makro zu schreiben und komme leider nicht weiter. Die Aufgabe ist, ...

Microsoft Office

Excel: Pflichtfeld erstellen

gelöst Frage von 116408Microsoft Office4 Kommentare

Hallo Habe in einem Anfrageblatt einige Felder, die unbedingt ausgefüllt werden müssen, also Pflichtfelder sind. Wie bringe ich das ...

Microsoft

Excel-Datei mit VBA speichern

gelöst Frage von 116408Microsoft6 Kommentare

Guten Tag Ich habe eine Excel-Datei, in der in D4 der Kundenname und in D11 das Projekt benennt wird. ...

Basic

Excel VBA enthält

Frage von AngelsBasic

Guten Tag Ich bin ganz neu in diesem Forum und hätte eine Frage. Wie kann ich bei diesem bestehenden ...

Neue Wissensbeiträge
Vmware
VMware Update für den ESXi 5.5 verfügbar
Information von sabines vor 14 StundenVmware

Nach dem ganzen Hickhack um Update mit Microcode Anpassungen und Rückzug, gibt es nun für den ESXi 5.5 ein ...

CPU, RAM, Mainboards

Meltdown und Spectre: Intel zieht Microcode-Updates für Prozessoren zurück

Information von keine-ahnung vor 18 StundenCPU, RAM, Mainboards5 Kommentare

Moin, extrem lutztig. Nur gut, dass ich noch nicht beim Probanden-Bingo mitgemacht habe :-) LG, Thomas

Router & Routing
PfSense als Addon auf QNAP
Information von magicteddy vor 1 TagRouter & Routing7 Kommentare

Moin, für Spielereien eine ganz nette Idee aber ich fürchte das soetwas auch als echte Firewall genutzt wird: In ...

Datenschutz

Teamviewer kommt für IoT-Geräte wie den Raspberry Pi

Information von magicteddy vor 1 TagDatenschutz1 Kommentar

Moin, jetzt werden IoT Geräte endgültig zur Wanze? Anscheinend kann man auf einem Dashboard seine Geräte visualisieren Ich stelle ...

Heiß diskutierte Inhalte
Netzwerkmanagement
Preis für Wartungsvertrag ok?
gelöst Frage von a-za-zNetzwerkmanagement26 Kommentare

Hallo! Mal ne Frage, weil ich mich mit dem akzeptablen Preis für einen Reaktionszeitvertrag nicht auskenne. Meine Firma hat ...

Windows Server
TEMP-Profile
gelöst Frage von Forseti2003Windows Server21 Kommentare

Guten Morgen, wer kennt sie nicht, die lieben Temporären Benutzerprofile, vorallem immer dann, wenn man sie am wenigsten braucht. ...

Multimedia & Zubehör
Welches Tablet für die Verkäufer?
Frage von Hendrik2586Multimedia & Zubehör15 Kommentare

Guten Morgen meine Lieben, vielleicht könnt ihr mir ja helfen. Es geht um unsere Außendienstmitarbeiter /Verkäufer. Sie sollen demnächst ...

Ubuntu
Ubuntu - Routing mit 2 Netzwerkkarten?
Frage von gabrixlUbuntu13 Kommentare

Hei Folgende Situation: Ich habe zwei virtuelle Maschinen: 1 - Server für DHCP, DNS und Routing - Netzwerkkarte 1: ...