OpenOffice.info

Hallo mikeleb,

danke Dir!

Funktioniert wie gewünscht !

Gruß Jörg

temp=oDialog4.getControl("TextField24").text
If temp="" then
...
Else
...
end if

Hallo,

eigentlich hast du doch alles schon alles Nötige:
[code]temp=oDialog4.getControl("TextField24").text
If temp="" then
...
Else
...
end if[/code]

sub bezahltam_schreiben
bezahltam.formulalocal = oDialog4.getControl("TextField24").text 

myDoc = thisComponent
	mySheet = myDoc.sheets(). getByName ("Tabelle12")
	myData = myDoc.sheets().getByName ("Rechnungen")     
	myPid = mysheet.getCellByPosition(1,7).value
		search = "~"
		do until search = myPid
			y=y+1
			search = myData.getCellByPosition(0,y).value
		loop
 
 		for i=0 to 0
			ReplaceData = mysheet.getCellByPosition(7,23).value 'H24
			if ReplaceData <> "" then  
			
			myData.getCellByPosition(57+i,y).value = ReplaceData 				
	
	end if
	next
   mycell = mySheet.getCellRangeByName("H24")
     mycell.FormulaLocal  = "=bezahltam"
     	
    Rechnungsdaten_lesen
end sub

dim aFliste() 'Fehlerliste
dim aFelder() 'Bezeichner der Felder
aFelder = array("Name", "Vorname", "Namenskürzel", "Abteilung", "Telefonnummer", "E-Mail",
"Adresse", "Straße", "Postleitzahl", "Ort") 'hier käme ja wohl bei mir "TextField24" rein
REM Eingabekontrolle
n = 0 'Vorgabe Fehlerzähler
for i = 0 to uBound(aFelder())
oCtl = oDlg.getControl("txt_eing“ & i+1) 'bei mir oDialog4.getControl
if trim(oCtl.getText()) = "" then 'keine Eingabe – Fehler! 'was ist trim??
redim preserve aFListe(n) 'Fehlerliste um einen Eintrag erweitern
 'Fehlerliste bräuchte ich eigentlich nicht, da es ja nur ein feld ist, msgbox reicht, aber man weiß ja nie 
aFListe(n) = " - das Feld """ & aFelder(i) & """ muss ausgefüllt werden“
'Feldbezeichnung
n = n + 1 'Fehlerzähler um eins erhöhen
end if
next i 'nächstes

Hallo Fachleute,
ich versuche mal wieder vergeblich:
Das unten stehende Makro ist an ein anderes angehängt.
Um sicher zu stellen, dass vor Ausführen des Makros das "TextField24"
nicht leer ist, hätte ich gern eine Fehlermeldung, etwa

if "TextField24" = "" then
z.Bsp. msgbox ("Eingabe notwendig")
sonst weiter
[code]sub bezahltam_schreiben
bezahltam.formulalocal = oDialog4.getControl("TextField24").text

myDoc = thisComponent
mySheet = myDoc.sheets(). getByName ("Tabelle12")
myData = myDoc.sheets().getByName ("Rechnungen")
myPid = mysheet.getCellByPosition(1,7).value
search = "~"
do until search = myPid
y=y+1
search = myData.getCellByPosition(0,y).value
loop

for i=0 to 0
ReplaceData = mysheet.getCellByPosition(7,23).value 'H24
if ReplaceData <> "" then

myData.getCellByPosition(57+i,y).value = ReplaceData

end if
next
mycell = mySheet.getCellRangeByName("H24")
mycell.FormulaLocal = "=bezahltam"

Rechnungsdaten_lesen
end sub[/code]

Im Makrokochbuch hab ich dazu dies gefunden:
[code]dim aFliste() 'Fehlerliste
dim aFelder() 'Bezeichner der Felder
aFelder = array("Name", "Vorname", "Namenskürzel", "Abteilung", "Telefonnummer", "E-Mail",
"Adresse", "Straße", "Postleitzahl", "Ort") 'hier käme ja wohl bei mir "TextField24" rein
REM Eingabekontrolle
n = 0 'Vorgabe Fehlerzähler
for i = 0 to uBound(aFelder())
oCtl = oDlg.getControl("txt_eing“ & i+1) 'bei mir oDialog4.getControl
if trim(oCtl.getText()) = "" then 'keine Eingabe – Fehler! 'was ist trim??
redim preserve aFListe(n) 'Fehlerliste um einen Eintrag erweitern
'Fehlerliste bräuchte ich eigentlich nicht, da es ja nur ein feld ist, msgbox reicht, aber man weiß ja nie
aFListe(n) = " - das Feld """ & aFelder(i) & """ muss ausgefüllt werden“
'Feldbezeichnung
n = n + 1 'Fehlerzähler um eins erhöhen
end if
next i 'nächstes[/code]

Würd mich freuen, wenn jemand Zeit dafür fände. :wink:

Gruß Jörg