Supportnet / Forum / Tabellenkalkulation
schließen Datenmaske
Frage
hallo,
ich habe folgendes auto_open Makro, das eine Datenmaske öffnet:
Sub auto_open()
Columns("A:I").Select
ActiveSheet.ShowDataForm
End Sub
gibt es eine Möglichkeit, das Schließen der Maske über das x rechts oben zu verhindern ? Außerdem möchte ich gern eine Messagebox anzeigen lassen, wenn die Maske über "Schließen" geschlossen wird.
bitte um eure Hilfe.
Mfg
temu1
Antwort 1 von coros
Hi Temu1,
ich glaube nicht, dass das zu lösen geht, was Du vorhast. Da es sich bei der Maske um eine Exceleigene handelt, kann man meines Wissens, da nicht eingreifen. Du müsstest Dir mit einer UserForm und den entsprechenden VBA Codes eine Datenmaske selber bauen. Da hat man die Möglichlichkeit das Schließenkreuz usw. anzusprechen.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
ich glaube nicht, dass das zu lösen geht, was Du vorhast. Da es sich bei der Maske um eine Exceleigene handelt, kann man meines Wissens, da nicht eingreifen. Du müsstest Dir mit einer UserForm und den entsprechenden VBA Codes eine Datenmaske selber bauen. Da hat man die Möglichlichkeit das Schließenkreuz usw. anzusprechen.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
Antwort 2 von temu1
Hallo oliver,
muß ich mir was anderes einfallen lassen. Trotzdem vielen Dank für deine Antwort.
ich habe noch eine frage: ich möchte, daß beim Anklicken einer Zelle in einem bestimmten bereich z. B.: tabelle1 bis tabelle25 Bereich von A2 bis H250 eine Messagebox ( mit einer Warnmeldung) angezeigt wird. (In dem Bereich sollen keine manuellen Eingaben erfolgen.)
Wer kann mir da helfen ?
Mfg
temu1
muß ich mir was anderes einfallen lassen. Trotzdem vielen Dank für deine Antwort.
ich habe noch eine frage: ich möchte, daß beim Anklicken einer Zelle in einem bestimmten bereich z. B.: tabelle1 bis tabelle25 Bereich von A2 bis H250 eine Messagebox ( mit einer Warnmeldung) angezeigt wird. (In dem Bereich sollen keine manuellen Eingaben erfolgen.)
Wer kann mir da helfen ?
Mfg
temu1
Antwort 3 von coros
Moin Temu1,
nachfolgenden Code kopiere in das VBA Projekt, in der beim Anklicken der Zellen in dem Bereich A1:H250 eine Warnmeldung am Bildschirm ausgegeben werden soll.
Ih hoffe, Du hast das so gemeint. Wenn nicht oder bei Änderungswünschen melde Dich.
Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf meiner HP in der Rubrik Anleitungen und dort dann in der Anleitungsnummer 2 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
nachfolgenden Code kopiere in das VBA Projekt, in der beim Anklicken der Zellen in dem Bereich A1:H250 eine Warnmeldung am Bildschirm ausgegeben werden soll.
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Bereich
Set Bereich = Range("A1:H250")
If Intersect(Target, Bereich) Is Nothing Then
Else
MsgBox "In diesem Bereich dürfen keine Eingaben erfolgen!", vbExclamation, "Warnung!"
End If
End SubIh hoffe, Du hast das so gemeint. Wenn nicht oder bei Änderungswünschen melde Dich.
Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf meiner HP in der Rubrik Anleitungen und dort dann in der Anleitungsnummer 2 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
Antwort 4 von Temu1
Hi Oliver,
...genial. Genauso sollte es aussehen.
Vielen Dank und schöne Woche noch.
Mfg
Temu1
...genial. Genauso sollte es aussehen.
Vielen Dank und schöne Woche noch.
Mfg
Temu1
Antwort 5 von coros
Moin Temu1,
danke Dir für Deine Rückmeldung. Freut mich, wenn´s dass gewesen ist, was Du wolltest.
MfG,
coros
Jeder macht was er will, keiner macht was er soll, aber alle machen mit.
danke Dir für Deine Rückmeldung. Freut mich, wenn´s dass gewesen ist, was Du wolltest.
MfG,
coros
Jeder macht was er will, keiner macht was er soll, aber alle machen mit.