Seite 1 von 1
[Gelöst]Inhalt von Spalte mit Wert vergleichen
Verfasst: Fr, 02.02.2018 15:11
von Jörg
Hallo Fachleute,
Ausgangslage:
Zelle A1: Formel =HEUTE() Spalte M2:M9: unterschiedliche Datumsangaben(1.2.18) nicht sortiert Spalte O2:O9: AOK, BKK usw.(nicht sortiert)
Ich suche eine Formel(n), die mir als Ergebnis (irgendeinen Text->(...Formel) ;"Text";"") liefert,
wenn ein Wert in Spalte M >= A1 ist und eine, die mir den betreffenden Eintrag aus Spalte O liefert.
Folgendes funktioniert:
Code: Alles auswählen
=WENN(SUMMENPRODUKT(O2:O9=$E$12;M2:M9>=$A$1);"Text";"")
Gibt es eine Lösung OHNE "E12"?
Welche Funktion käme in Betracht?
(Beide Ergebnisse(in den Formelzellen) will ich später per Makro auslesen und in einer Msgbox unterbringen.)
Vielen Dank schon mal !!!!
Re: Inhalt von Spalte mit Wert vergleichen
Verfasst: Fr, 02.02.2018 15:51
von lorbass
Jörg hat geschrieben: ↑Fr, 02.02.2018 15:11
Gibt es eine Lösung OHNE "E12"?
Für 'ne Antwort wäre es ganz toll, wenn man erst mal wüsste, wofür E12 steht.
Gruß
lorbass
Re: Inhalt von Spalte mit Wert vergleichen
Verfasst: Fr, 02.02.2018 16:24
von Jörg
Hallo Lorbass,
Hatte mit schon gedacht, dass die Frage kommt.
Da war der Post aber schon weg.
In E12 wird per Listenfeld die Kasse eingetragen.
Mein geplantes Makro wollte ich aber unter Programmstart (Extras->Anpassen) laufen lassen, wenn ein Datum(oder auch mehre) in Spalte M das Kriterium >=A1 erfüllt.
Beim Programmstart ist E12 aber leer.
Unter Tabellenereignis möchte ich nicht, da mir die Meldung dann jedesmal, wenn die betroffene Kasse drin steht, angezeigt wird.
Bsp. Dokument
Tabelle: Eingabemaske Abr_Rechnung
download/file.php?id=15694
Hab ich jetzt an alles gedacht?
Re: [Gelöst]Inhalt von Spalte mit Wert vergleichen
Verfasst: So, 04.02.2018 12:14
von Jörg
Hallo,
hab das mit Makro gemacht, ohne Formel.
Code: Alles auswählen
sub Termin_kuenftige_Preise
Dim zelle(1 to 7) as Date, Datum (1 to 7) as Date, Hinweistext (1 to 7) as String
Dim oSheet as Object, mysheet as Object
Dim Datum1 as Date, wert as Date,wertb as Date
oSheet = thisComponent.Sheets.getbyname("Eingabemaske Abr_Rechnung")
mysheet = thisComponent.sheets.getByName("Zuzahlung alle KK")
HinweisText(1) = ("Achtung!! AOK neue Preise ab" )
HinweisText(2) = ("Achtung!! VdeK neue Preise ab")
HinweisText(3) = ("Achtung!! BKK neue Preise ab")
HinweisText(4) = ("Achtung!! BKN neue Preise ab" )
HinweisText(5) = ("Achtung!! Ikk neue Preise ab" )
HinweisText(6) = ("Achtung!! LKK neue Preise ab" )
HinweisText(7) = ("Achtung!! BG neue Preise ab" )
'aktuell gültige Preislisten
zelle(1) = mysheet.getCellRangeByName("K1").Value 'aok
zelle(2) = mysheet.getCellRangeByName("Q1").value'vdek
zelle(3) = mysheet.GetCellRangeByname("I1").value'bkk
zelle(4) = mysheet.getCellRangebyName("O1").value'bkn
zelle(5) = mysheet.getCellRangeByName("M1").Value 'ikk
zelle(6) = mysheet.getCellRangebyName ("S1").value'LKK
zelle(7) = mysheet.getCellRangeByName ("U1").value 'BG
'angekündigte Preislisten
Datum1 = osheet.getCellRangeByName ("A1").Value'Vergleichswert
Datum(1) = osheet.getCellRangeByName ("M3").Value 'aok
Datum(2) = osheet.getCellRangeByName ("M2").Value 'vdek
Datum(3) = osheet.getCellRangeByName ("M4").Value 'bkk
Datum(4) = osheet.getCellRangeByName ("M5").Value 'bkn
Datum(5) = osheet.getCellRangeByName ("M6").Value 'ikk
Datum(6) = osheet.getCellRangeByName ("M7").Value 'lkk
Datum(7) = osheet.getCellRangeByName ("M8").Value 'bg
wert = Datum1+48
' msgbox wert
for i = 1 to 7
wertb = Datum(i) -7
'msgbox wertb
if Datum(i)<> 0 and Datum(i) <> zelle(i) and wert > wertb then
antwort = msgbox(HinweisText(i)& CHR(13) & Datum(i),64,"Preisliste")
end if
next i
end sub
Dennoch, Danke.