LibreOffice-Forum

Hallo @all !

Bin ganz neu bei der macro Programmierung und scheitere gleich an einer Kleinigkeit:
Ich möchte das in einer Tabelle nach eingabe eines Begriff's aus einer anderen Tabelle der Preis
Geholt wird. Funktioniert auch aber wenn der Begriff nicht vorhanden ist soll halt ein "--" eingfügt werden.
Genau da scheitert es schon if then else end if funktioniert einfach nicht.
Was habe ich denn übersehen?

Bild

http://www.myimg.de/?img=Tabellea6fd8.png

Übergeben der Werte mit: =MEINWERT(A12:B19;D12) im Ausgabefeld (wo der Preis erscheinen soll)

Mein Makro:

Code: Alles auswählen

REM  *****  BASIC  *****

Function MeinWert (Artikel, Verkauf)

REM Test if then else
	  if Verkauf = "Birne" then
	  	print "in Test if else then " + Verkauf 
	  else 
	  	print "nicht Birne sondern => " + Verkauf
	  endif
	  
	  
	  print Verkauf
	  Ausgabe = ""

	  For Zeile = LBound(Artikel, 1) To UBound(Artikel, 1)
	  
	    For Spalte = LBound(Artikel, 2) To UBound(Artikel, 2)
	      REM Ausgabe = Ausgabe + Str( Artikel(Zeile, Spalte) )
	      
			  IF Artikel(Zeile, Spalte) = Verkauf THEN
			    print Artikel(Zeile, Spalte+1)
		        Ausgabe = Artikel(Zeile, Spalte+1)
		      ELSE
		       Ausgabe = "--"				Rem if then else Fehler !!!!!
			  END IF
		  
	    Next
	    
	  Next

	    print Ausgabe
		MeinWert = Ausgabe
	
End Function

Der code durchläuft nach der if einfach in die else (Verstehe nicht warum!) obwohl er mir mit print einen Treffer ausgibt ;(.

Der Code ist sicher nicht die Glanzleistung und bin auch für andere Vorschläge offen, aber erstmal if Problem.

Vielen DANK im voraus
tsom

Hallo

Was habe ich denn übersehen?

Du hast übersehen daß es bereits SVERWEIS als Calcfunktion gibt.

Karolus

Moin,
dafür braucht man kein Makro, das kann Calc mit Menü Daten/Gültigkeit ... und der Funktion SVERWEIS().
Durch die Daten/Gültigkeit ... mit gültigem Inhalt Zellbereich kannst Du ausschliessen, dass der Begriff nicht vorhanden ist,
brauchst also keine --
Siehe Beispiel anbei.
Klicke in ein leeres Feld der Spalte Produkt, dann den schwarzen Pfeil, wähle das Produkt, fertig.
Gruß R

SVERWEIS schaue ich mir an. Danke !

Aber was ist mit der "if" ?

Warum geht das nicht ?

Danke euch Beiden !

Habe mir SVERWEIS angeschaut, ist aber nicht das was ich suche

Könnte mir einer weiter helfen mit der if Anweisung ?

bzw gibt es noch andere Lösungen oder Ansätze?

Vielen Dank
tsom

Ja,
du solltest die Suchschleife verlassen wenn du einen Treffer hast.
z.B. mit

Code: Alles auswählen

exit for

oder

Code: Alles auswählen

goto

sonst ist "Ausgabe" immer mit der letzte Wert.
Gruß R

LibreOffice-Forum

if then else end if

if then else end if

Re: if then else end if

Re: if then else end if

Re: if then else end if

Re: if then else end if

Re: if then else end if