Office: Drucken nur wenn Zelle Wert hat / Automatisches Löschen der Zelle beim Start

Hallo Zusammen,

ich - VBA-Nullnummer - habe mal wieder etwas für die VBA-Profis.

Es soll nur gedruckt werden können, wenn in einer Zelle ein Wert ist. Die Zelle ist zusammengeführt, G2:H4.
Die Datei hat mehrere Tabellenblätter und ist zum Teil Schreibgeschützt. (die Entsprechende Zelle G2:H4 nicht). Die Zelle hat sonst keine weitere Funktion. Da kommt nur der Name des Benutzers rein.
Das Tabellenblatt heißt: "To-Do-Liste".
Ebenso soll die Zelle G2:H4 automatisch gelöscht werden, wenn die Datei geöffnet wird. So verhindere ich, dass ein falscher Nutzername von gestern drinsteht.
Ein Speicherverbot kommt nicht in Frage, da die Tabellen zum Teil geändert werden müssen, und somit auch gespeichert werden müssen.
Wenn jemand versucht die Datei zu Drucken, ohne dass Zelle G2:H4 einen Namen beinhaltet soll auch eine Meldung kommen "Es kann nicht gedruckt werden, da der Name fehlt".

Ich danke schonmal im Voraus und bin gespannt, was rauskommt! :)

Es kann sein, dass ich nicht sofort antworte, da ich dies während der Arbeit mache und natürlich auch "arbeiten" muss :D

MfG

 

Der Name kann dann also auch "Banane" lauten und es darf gedruckt werden ?
Irgendwie noch etwas unschlüssig das Ganze.

P.S. wie immer...eine Beispieldatei wäre hilfreich

 

vom Prinzip her etwa so (ungetestet)
Code in DieseArbeitsmappe

Code:

Private Sub Workbook_BeforePrint(Cancel As Boolean)

For Each xWs In Application.ActiveWorkbook.Windows(1).SelectedSheets
    If WorkSheet("To-Do-Liste").Range("G2").Value = "" Then
    MsgBox ("Es kann nicht gedruckt werden, der Name fehlt")
        Cancel = True
    End If
Next
End Sub

 

Hey Dirk,
danke für die Hilfe.
leider funktioniert es nicht.

Fehler beim Kompilieren:
Sub oder Function nicht definiert.

Wenn ich dann auf ok drücke markiert er mir die erste Zeile des Codes gelb. "Private Sub Wokbook_..."
Auch in einer anderen Datei funktioniert es nicht - um auszuschließen, dass eine meiner Formeln etwas macht.

Die Beispieldatei ist noch nicht vorhanden.
Diese befindet sich noch im Aufbau und schaut dementsprechend noch aus. Einträge, Zahlen, Formeln wild durcheinander.
Ich versuche die noch zu erstellen und werde eine Nachfügen, wenns daran scheitern sollte.

Es ist relativ "einfach". Hat die Zelle keinen Wert, darf nicht gedruckt werden. Wenn der Mitarbeiter meint "Banane" zu schreiben, ist das ein Problem zwischen "ihm und mir" :D , aber der Datei oder dem Code, darf das gerne egal sein.
Ich bin zwar ein Laie, aber kann es sein, dass die Zelle nicht gelöscht wird? Bzw, der Wert in der Zelle wird nicht beim Starten gelöscht? Ich kann VBA zwar nicht, aber es gibt in dem Code zumindest für mich keinen Anhaltspunkt, als wenn der Code dies macht. Wie oben beschrieben, benötige ich das auch...

Danke im Voraus. :)

 

hast Du dich an die Anweisung
"Code in DieseArbeitsmappe"
gehalten?

 

Hallo Hajo,

ja das habe ich.
Auch in der Testdatei.

 

mein EXcel beschwert sich nicht über die erste Zeile nur darüber das es den Nmen "To-Do-Liste" nicht geben kann. den konnte ich nicht anlegen. Es fehle auch ein "s" bei WorkSheet

nur wenige schauen auf Deinen Rechner und sehen die Datei.
Ich möchte gerne den Fehler im Original sehen.

Ich baue keine Datei nach. Die Zeit hat schon jemand investiert.

Ein Nachbau sieht meist anders aus als das Original. <B>Darum sollte das Original verlinkt werden.</b>

Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten
Hinweis - Anonymisierung und Pseudonymisierung von Beispielmappen - MS-Office-Forum
änderrn.
Der Name einer hochgeladenen Mappe wird im Beitrag automatisch angezeigt, sodass es bei Verwendung von aussagekräftigen Namen leichter fällt, sie später im Ablageordner wiederzufinden und sie gedanklich einem bestimmten Thema zuzuordnen. Namen wie Muster*, Test*, Mappe*, Beispiel*, Fehler*, Kalender* usw. sind so allgemein, dass eine Zuordnung zu einem Thema unmöglich gemacht wird.
Es sollte ein aussagekräftiger Name sein.

Benutze hier im Forum die Funktion zum hochladen. Falls Du die nicht benutzen möchtest beachte, von unsicheren Servern wie z.B. www.file-upload.net lade ich keine Datei runter. (lt. Einschätzung meines Virenprogramms)3

Bilder lade ich mir nicht runter, da Excel damit nichts anfangen kann.

Bilder statt Datei | Excel ist sexy!

Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.

Das ist nur meine Meinung zu dem Thema.

Gruß Hajo

 

Hallo Hajo,

danke für die Hinweise und Links.
Ich lade mal die Testdatei hoch die ja den gleichen Fehler verursacht.
Wahrscheinlich hab ich nur etwas vergessen oder übersehen.
Wie gesagt, ich bin ein Laie, und weiß nicht wie man einen VBA Code anfängt oder abschließt. Da könnte der Fehler sein. :D

 

ich bin dann raus, da meine Beitrag nicht komplett gelesen wurde.
Das wird schon seinen Grund haben.
Ich schreibe nicht für den Papierkorb.
Ich bin dann raus.
Viel Erfolg noch.

Gruß Hajo

 

Wie bitte?
Eine Datei, die den Fehler verursacht wurde gefordert. Check
Kein Bild. Check
Kein Name "Fehler", "Test"... Check
Obs die Originaldatei ist, auf die der Fehler verursacht wird, oder irgendeine andere macht keinen Unterschied. Der Fehler, der mir angezeigt wird ist der absolut gleiche.

Ich sehe jetzt nicht, was ich falsch verstanden haben soll...

 

Hallo Mirisla,

habs gerade probiert und es funktioniert.
Hab das Löschen gleich noch mit reingenommen.
Grüße

P.S. weiterhin die Frage des Sinnes, weil man ja irgendetwas in die Zelle schreiben kann und der Druck ausgelöst wird.
Sinnvoller wäre zumindest ein Prüfen von "erlaubten" Namen.

 

Hey Dirk,

vielen Dank! Funktioniert auch bei mir jetzt einwandfrei!
Auch nach dem Übertragen in meine Datei!
Ich weiß nicht, wo das Problem beim letzten Mal war. Der Code scheint identisch zu sein.

Was den Sinn angeht: ich bin der Prüfer dieser Ausdrucke. So muss ich nicht dauernd schauen, welcher Mitarbeiter dies gemacht hat, sondern kann den Namen einfach ablesen. In der Regel kenne ich die Dienstpläne auswendig und weiß, wer da ist. Wir sind kein Großkonzern. Es soll mir nur etwas die Arbeit erleichtern, nicht die Mitarbeiter verpflichten mit Blut zu unterschreiben, oder für etwas zu "haften"... :D

Ich danke nochmal und wünsche eine gute Zeit!

 

Hi Mirisla,
freut mich wenn´s passt.
Danke für die Rückmeldung.