Seite 1 von 1
(Gelöst)Sverweis liefert keinen Wert, dann msgbox
Verfasst: Mo, 12.01.2015 11:14
von 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
Re: Sverweis liefert keinen Wert, dann msgbox
Verfasst: Mo, 12.01.2015 11:49
von Karolus
sorge dafür das das Listenfeld nur passende Auswahlmöglichkeiten hat.
Re: Sverweis liefert keinen Wert, dann msgbox
Verfasst: Mo, 12.01.2015 12:32
von 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
Re: Sverweis liefert keinen Wert, dann msgbox
Verfasst: Mo, 12.01.2015 12:39
von 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
Re: Sverweis liefert keinen Wert, dann msgbox
Verfasst: Mo, 12.01.2015 12:49
von Jörg
Hallo nochmal,
Tabellenereignis"Formel geändert" is Quatsch.
Was ginge sonst?
Gruß
Jörg
Re: Sverweis liefert keinen Wert, dann msgbox
Verfasst: Mo, 12.01.2015 12:56
von 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
Re: Sverweis liefert keinen Wert, dann msgbox
Verfasst: Mo, 12.01.2015 12:57
von Karolus
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
Verfasst: Mo, 12.01.2015 13:17
von Jörg
Hallo Karolus,
Danke Dir für die Hilfe.
Habe Deinen Code übernommen.
So gehts. Tabellenereignis "Inhalt geändert"
Chic.
Gruß Jörg
Re: Sverweis liefert keinen Wert, dann msgbox
Verfasst: Di, 13.01.2015 10:20
von 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