[Gelöst]Inhalt von Spalte mit Wert vergleichen

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]Inhalt von Spalte mit Wert vergleichen

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

von Jörg » So, 04.02.2018 12:14

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.

Re: Inhalt von Spalte mit Wert vergleichen

von Jörg » Fr, 02.02.2018 16:24

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: Inhalt von Spalte mit Wert vergleichen

von lorbass » Fr, 02.02.2018 15:51

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

[Gelöst]Inhalt von Spalte mit Wert vergleichen

von Jörg » Fr, 02.02.2018 15:11

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 !!!!

Nach oben