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

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: (Gelöst)Sverweis liefert keinen Wert, dann msgbox

Re: Sverweis liefert keinen Wert, dann msgbox

von Jörg » Di, 13.01.2015 10:20

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

Re: Sverweis liefert keinen Wert, dann msgbox

von Jörg » Mo, 12.01.2015 13:17

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

Chic. :D
Gruß Jörg

Re: Sverweis liefert keinen Wert, dann msgbox

von Karolus » Mo, 12.01.2015 12:57

Jörg hat geschrieben:Hallo nochmal,
Tabellenereignis"Formel geändert" is Quatsch.
Was ginge sonst?
Gruß
Jörg
Siehe meine erste Antwort!

Re: Sverweis liefert keinen Wert, dann msgbox

von Karolus » Mo, 12.01.2015 12:56

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

Re: Sverweis liefert keinen Wert, dann msgbox

von Jörg » Mo, 12.01.2015 12:49

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

Re: Sverweis liefert keinen Wert, dann msgbox

von Jörg » Mo, 12.01.2015 12:39

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

Re: Sverweis liefert keinen Wert, dann msgbox

von Jörg » Mo, 12.01.2015 12:32

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

Re: Sverweis liefert keinen Wert, dann msgbox

von Karolus » Mo, 12.01.2015 11:49

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

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

von Jörg » Mo, 12.01.2015 11:14

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

Nach oben