Office: (Office 2010) Musseingabe wenn Nachbarzelle <>leer

Hallo zusammen,

ich habe eine Tabelle bei der in den Spalten B+C über die Datenüberprüfung Werte ausgewählt werden können.
Jetzt möchte ich, wenn in B3 ein Wert ausgewählt wird auch in C3 eine Auswahl getroffen werden muss, und andersrum. Das soll aber für alle Zellen der Spalten B+C angewendet werden.
Die Tabelle hat einen Countdown von 2 Min., danach speichert sie und schließt automatisch.

Hat jemand einen Lösungsansatz für mich?
Das wäre Irre *wink.gif*

:)

 

Hallo Thomas,

deine Beschreibung ist etwa knapp geraten, daher spekuliere ich mal.
- du hast ein Makro
- der Countdown wird gestartet nach Eingabe in Bx bzw Cx

Dann könntest du nach Ablauf des Countdowns (und bevor du speicherst) prüfen, ob eine Eingabe in der Nachbarzelle Cx bzw Bx erfolgt ist. Wenn nicht, dann kannst du die Eingabe ja vorher noch löschen.

Gruß
Aloys

 

Hallo Aloys,

der Contdown wird durch ein Makro beim öffnen der Tabelle gestartet und wird, wenn eine Eingabe erfolgt neu gestartet.

So sieht der Code aus:

Public Const ciIntervall As Integer = 1
Public Const dsMacro As String = "AutoClose"
Public gdNextTime As Double
Private iWait As Integer
Const cMax = 120 ' -> 2*60sek Minuten
Dim Zeit As Date

Sub AutoClose()
iWait = iWait + 1
If cMax - iWait > 0 Then
Application.StatusBar = Format(Zeit - TimeSerial(0, 0, iWait), "hh:mm:ss")
gdNextTime = Now + TimeSerial(0, 0, ciIntervall)
Application.OnTime gdNextTime, dsMacro
Else
ThisWorkbook.Save
ThisWorkbook.Close
End If
End Sub

Sub AutoCloseStart()
iWait = 0
Zeit = TimeSerial(0, 0, cMax)
Application.StatusBar = Zeit
Call AutoClose
End Sub

Sub AutoCloseStop()
On Error Resume Next
Application.StatusBar = ""
Application.OnTime earliesttime:=gdNextTime, _
procedure:=dsMacro, schedule:=False
End Sub

 

Hallo Thomas,

Und der Code hierfür wäre für die Helfer im Forum auch noch von Interesse.

Gruß
Aloys

 

Hey,

der Code steht in meiner Antwort von 10:05

 

Hallo Thomas,

Das ist Code aus einem Modul und nicht der Code, den ich meine.

Es gibt sicherlich beim Tabellenblatt noch mehr Code (dsMacro, Sheet-Activate und /oder Sheet_Change).

Am einfachsten wäre es, wenn du die Excel-Mappe, ggf mit anonymisierten Daten, hier zur Verfügung stellen könntest.

Gruß
Aloys

 

Hi,

die Mappe habe ich hochgeladen.
Schau mal ob Du damit etwas anfangen kannst.

 

Hallo Thomas,

Welche der beiden Tabellen meinst du ?

Wie stellst du dir das konkret vor ?
Die einfachste Möglichkeit ist mE, vor dem Close zu prüfen, ob in einer Spalte ein Wert eingegeben wurde, in der Nachbarspalte auf gleicher Zeile aber nicht, und dann diese einseitige Eingabe zu löschen.

Gruß
Aloys

 

Hallo Aloys,

 

Hallo Thomas,

nachstehend mein Code-Vorschlag. Bitte damit die Prozedur AutoClose im Modul2 voll ersetzen.

Was aus meiner Sicht noch fehlt: eigentlich müsste während der 2 Minuten auch ein Sichern und Sichern unter durch den User abgeblockt werden.

Code:

Gruß
Aloys

 

Hallo Aloys,

erst einmal danke für den Lösungsvorschlag, funktioniert.

Aber:
- Ja, du hast Recht, man sollte das manuelle Speichern blocken.
- Es wäre super wenn dem User über eine MsgBox das löschen der eingegebenen Daten mitgeteilt wird.
- Die Mappe enthält mehrere Tabellenblätter auf die der Code angewendet werden sollte. Aktuell wird "nur" Tabelle LW50 berücksichtigt.

Ich habe schon selbst rumprobiert, bekomme es aber nicht hin.

 

Hallo Thomas,

d.h. Speichern und Speichern unter werden unterdrückt, der User erhält eine entsprechende Nachricht.

Reicht dazu eine allgemeine Nachricht wie zB "Ihre Dateneingabe in LW50 war unvollständig und wurde deshalb wieder gelöscht !" aus ?

Dazu muss man die betroffenen Tabellenblätter kennen (die alle den gleichen Aufbau wie LW50 haben ?)
Es gibt 2 Möglichkeiten:
- diese Blätter gezielt benennen, zB LW50, LW51,...
- oder die Blätter benennen, auf die das Verfahren nicht anzuwenden ist.

Gruß
Aloys

 

Hi Aloys,

 

Hallo Thomas,

Ja, das ist aber kein Problem. Das Verfahren wird dann auf alle Tabellenblätter angewandt, deren Namen mit "LW" beginnt.

Ich gehe mal davon aus, dass ich die Änderungen heute Abend einbauen kann.

Gruß
Aloys

 

Das wäre grandios *Smilie