mal wieder ne Druckfrage

[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

[komma4]

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?

[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

[keksi1970]

hi winfried,

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

Gruß Andreas