bei start zelle prüfen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
UserForm MsgBox


Excel-Version: 5.0/7.0
nach unten

Betrifft: bei start zelle prüfen
von: werner
Geschrieben am: 04.07.2002 - 15:24:40

Hallo zusammen,

Problembeschreibung:
Beim Aufrufen der Datei erfassen.xls (Erfassen von Fragebögen)soll im Blatt "aktuelle_Woche" die Zelle R2 daraufhin geprüft werden, ob sie einen Wert enthält. Sie enhält einen Wert (Zählt Anzahl an Karten bzw. wie oft wurde der Button "Nächste Karte" gedrückt) wenn der User die Datei über den Button "Nur Speichern und beenden" verläßt. Sie enthält keinen Wert wenn der User die Datei über den Button "Wocheneingabe beenden" verläßt. Bei diesem Makro wird in der Zell R2 " " eingetragen. Ziel der Aktion soll sein, dem User mit ein MsgBox zu sagen:"Die letzte Woche ist noch nicht abgeschlossen.
Frage 1: genügt es die Abfrage in ein auto_open Makro einzustellen? Bisher nicht. Das kann aber auch darn liegen, dass mir die If-Abfrage der Zelle nicht gelingt. Deshalb:
Frage 2: Wie frage ich die Zelle ab? Seit Stunden führen sämtliche Versuche die Zelle "aktuelle_Woche.Range("R2")" mit Variablen ala " " oder irgendwelche sonst leeren Zellen oder auch nur auf "If .. <> " " then MsgBox ...." abzufragen zu keinerlei Ergebniss.
Ein echt schon genervter (Vermutlich seh ich den Wald mal wieder nicht) Anfänger dankt bereits jetzt herzlichst für Codebeispiele.
PS. Es werden keine UserForms verwendet.

nach oben   nach unten

Re: bei start zelle prüfen
von: Martin Beck
Geschrieben am: 04.07.2002 - 16:02:41

Hallo Werner,

was wird in R2 eingetragen: "nichts" oder ein Leerzeichen.

Für letzteres unter Excel97:

Private Sub Workbook_Open()
If Worksheets("aktuelle_Woche").Range("R2").Value = " " Then
MsgBox "R2 ist leer"
Else
MsgBox "In R2 steht: " & Range("R2").Value
End If
End Sub

Für ersteres

Private Sub Workbook_Open()
If IsEmpty(Worksheets("aktuelle_Woche").Range("R2")) Then
MsgBox "R2 ist leer"
Else
MsgBox "In R2 steht: " & Range("R2").Value
End If
End Sub

Falls Deine Excel-Version Workbook_Open noch nicht unterstützt, packe den Code (2. bis vorletzte Zeile) in ein Auto_Open-Makro.

Gruß
Martin Beck

nach oben   nach unten

Re: bei start zelle prüfen
von: Werner
Geschrieben am: 05.07.2002 - 08:47:08

Hallo edler Tipgeber,

einfach genial, denn es klappt. (Version 2)

Allerherzlichsten Dank.

Selbstironie:
Das größte Problem das ein Computer hat sitzt ca. 60 cm vor seinem Bildschirm.

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "ersetzen eines wertes in einer textbox"