[Gelöst]Inhalt von Spalte mit Wert vergleichen

Das Tabellenkalkulationsprogramm

Moderator: Moderatoren

Jörg
*****
Beiträge: 392
Registriert: Mo, 21.10.2013 12:05

[Gelöst]Inhalt von Spalte mit Wert vergleichen

Beitrag 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 !!!!
Zuletzt geändert von Jörg am So, 04.02.2018 12:13, insgesamt 1-mal geändert.
Gruß Jörg

Win 10 Pro AOO 4.1.15
Benutzeravatar
lorbass
********
Beiträge: 4116
Registriert: Mo, 01.05.2006 21:29
Wohnort: Bonn

Re: Inhalt von Spalte mit Wert vergleichen

Beitrag 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
Jörg
*****
Beiträge: 392
Registriert: Mo, 21.10.2013 12:05

Re: Inhalt von Spalte mit Wert vergleichen

Beitrag 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?
Gruß Jörg

Win 10 Pro AOO 4.1.15
Jörg
*****
Beiträge: 392
Registriert: Mo, 21.10.2013 12:05

Re: [Gelöst]Inhalt von Spalte mit Wert vergleichen

Beitrag 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.
Gruß Jörg

Win 10 Pro AOO 4.1.15
Antworten