(Gelöst)Sverweis liefert keinen Wert, dann msgbox

[Jörg]

Hallo Fachleute,

In Zelle A1 wird per Listenfeld das Suchkriterium eingetragen. Die Formel steht in B1(Zelle als Text formatiert).
Wenn nun das falsche Suchkriterium eingetragen ist, kann die Formel keinen Wert zurückgeben.
Nun hätte ich gern, dass für diesen Fall ein Makro läuft (Tabellenereignis, welches ?), das "feststellt", dass eine richtige Eingabe in A1 erforderlich ist.
Den Meldungsdialog krieg ich dann schon hin.

Vielen Dank für Eure Hinweise.

Gruß Jörg

[Karolus]

sorge dafür das das Listenfeld nur passende Auswahlmöglichkeiten hat.

[Jörg]

Hallo Karolus,
danke für den Hinweis, jedoch wäre der Aufwand insgesamt zu groß, da Die Werte in "A1" selbst Ergebnis einer Zählenwenn-Formel sind.

Habe jetzt folgendenden Code, der Direkt auf "A1" zugreift.

Code: Alles auswählen

sub A1_changed
myDoc = thisComponent
mySheet = myDoc.sheets(2)
mycell = mysheet.getCellRangebyName("A1")
myString=mycell.string
if mycell.string="Barmer" then
msgbox "Falsche kasse"
end if
end sub

Tabellenereignis "Formelm geändert"

Funktioniert.
Gruß Jörg

[Jörg]

Hallo,

hab doch noch ein Problem.

zum im Code genannten einen "Begriff" müssen noch weitere hinzukommen,
Wie füge ich die ein?

Versuch: = ("Begriff","2.Begiff") kommt-> Fehler in der Klammerung

Gruß Jörg

[Jörg]

Hallo nochmal,
Tabellenereignis"Formel geändert" is Quatsch.
Was ginge sonst?
Gruß
Jörg

[Karolus]

Hallo

Code: Alles auswählen

   select case mystring
       case "Barmer" ,"Aok", "LKK"
           mach dies
       case "Hoppla" , "Quark", "Spam"
           mach jenes
       case else
           mach was anderes
    end select

[Karolus]

Hallo nochmal,
Tabellenereignis"Formel geändert" is Quatsch.
Was ginge sonst?
Gruß
Jörg

Siehe meine erste Antwort!

[Jörg]

Hallo Karolus,
Danke Dir für die Hilfe.
Habe Deinen Code übernommen.
So gehts. Tabellenereignis "Inhalt geändert"

Chic.
Gruß Jörg

[Jörg]

Hallo,

mit diesem Code braucht man keine msgbox.

Code: Alles auswählen

sub E12_changed
    
    myDoc = thisComponent
    mySheet = myDoc.sheets(2)
    mycell = mysheet.getCellRangebyName("E12")
    myString=mycell.string
    select case mystring
       case "Barmer" ,"DAK", "TKK", "KKH", "HKK" , "GEK" 
        mycell.string = "VdeK"
      
    end select
     
end sub

Dank nochmal an Karolus