Seite 1 von 1

mal wieder ne Druckfrage

Verfasst: Do, 06.03.2008 23:11
von keksi1970
HI Leute,

ich habe per Makro ein Tabellenblatt ausgelesen und in einer neuen Tabelle bestimmte Daten zusammengefasst. Leider hat die ausgelesene Tabelle auch mehrere Leerzeilen dazwischen, die ich nicht alle in meiner neuen Tabelle ignoriert bekomme (es sei denn, ich krieg raus, wie ich diese Formel als IF Abfrage hinbekomme (if zelle a1="" UND zelle b1 = "" und ZELLE c1 = "" und zelle D1 = "" then zeile = zeile -1)

da mein Makro leider 3000 Zeilen durchsuchen muss, und nur ausgefüllte Zellen gedruckt werden sollen, frage ich mich, ob es eine Möglichkeit gibt, das ganze Zeilenweise zu Drucken.

sorryfürsnuschelnbeimproblem ;)

Gruß Andreas

Re: mal wieder ne Druckfrage

Verfasst: Do, 06.03.2008 23:59
von komma4
keksi1970 hat geschrieben:per Makro ein Tabellenblatt ausgelesen
...an dieser Stelle kannst Du doch feststellen, dass Deine Spalteninhalte leer sind. In diesem Fall den Index in der Speichertabelle nicht erhöhen.

Welche IF Anfrage hast Du denn wie probiert?

Re: mal wieder ne Druckfrage

Verfasst: Fr, 07.03.2008 09:06
von keksi1970
also die Schreibroutine sieht so aus

Code: Alles auswählen

Sub Schreiben
oDoc = ThisComponent
mysheet2 = oDoc.sheets(7)
if Lieferant3 <>"" then
zeile=zeile+1
end if


oZielzelle = oDoc.sheets(7).getCellByposition(0, zeile) 
oZielzelle.value = auftragsnummer
oZielzelle = oDoc.sheets(7).getCellByposition(2, zeile) 
oZielzelle.value = Abholungam
oZielzelle = oDoc.sheets(7).getCellByposition(1, zeile) 
oZielzelle.string = Anzahlpaletten
oZielzelle = oDoc.sheets(7).getCellByposition(3, zeile) 
oZielzelle.string = Ucase(Lieferant3)
oZielzelle = oDoc.sheets(7).getCellByposition(4, zeile) 
oZielzelle.value = val(code)
End Sub
aus irgendeinem Grund jedoch, fügt mir das Programm irgendwo mal eine Leerzeile ein, obwohl die Zellen leer zu sein scheinen

Re: mal wieder ne Druckfrage

Verfasst: Fr, 07.03.2008 09:22
von keksi1970
hi winfried,

habs gefunden, das "End IF" gehört nicht vor das eigentliche Ausfüllen der zellen, sondern dahinter.

Gruß Andreas