Zelle auf Beschriftung überprüfen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:


Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Zelle auf Beschriftung überprüfen
von: Michael Gfrerer
Geschrieben am: 16.07.2002 - 09:02:59

Hallo, ich muss beim Öffnen einer Excel-Datei überprüfen ob bestimmte Zellen (G402 - I402) einen Wert enthalten oder nicht. Dies soll bereits beim Öffnen der Datei automatisch überprüft werden und dann - falls die Zelle/n einen Wert enthalten, eine Messagebox den User darüber informieren. Wenn die Zelle/n keinen Wert enthalten, soll nichts passieren.
Ich habe da mal so angefangen, aber weiss nicht weiter.
if activecell.value=""
then (exit sub oder msgbox ....)
Weiss jemand wie`s geht? Vielen Dank im Voraus
Michael

nach oben   nach unten

Re: Zelle auf Beschriftung überprüfen
von: sam
Geschrieben am: 16.07.2002 - 09:14:52

hi,

viel spaß damit,
sam


Private Sub Workbook_Open()
  If Range("G402") <> "" Then MsgBox "Zelle G402 hat folgenden Wert: " & Range("G402")
  If Range("H402") <> "" Then MsgBox "Zelle H402 hat folgenden Wert: " & Range("H402")
  If Range("I402") <> "" Then MsgBox "Zelle I402 hat folgenden Wert: " & Range("I402")
  
  'oder wenn du nur eine Meldung erhalten willst, wenn in einen von den 3en ein Wert steht
  If Application.WorksheetFunction.Count(Range("G402:I402")) <> 0 Then
    MsgBox "In den Zellen G402-I402 sind Werte eingetragen!", vbInformation
  End If
  
End Sub

nach oben   nach unten

Re: Zelle auf Beschriftung überprüfen
von: L.Vira
Geschrieben am: 16.07.2002 - 09:49:59

if Not worksheetfunction.counta(g402:i402)=0 then
Msgbox "was da!"
end if
nach oben   nach unten

Re: Zelle auf Beschriftung überprüfen
von: Michael Gfrerer
Geschrieben am: 16.07.2002 - 09:50:12

Hi Sam,
fettes merci, funzt einwandfrei ....
Michael

nach oben   nach unten

Re: Zelle auf Beschriftung überprüfen
von: Michael Gfrerer
Geschrieben am: 16.07.2002 - 10:04:22

Vielen Dank L.Vira, habe den Code ein bisschen früher von Sam erhalten. Trotzdem vielen Dank für deine Mühe.
Michael

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Zelle auf Beschriftung überprüfen "