Kopieren mit bestimmten Inhalt

[conairemor]

Hallo,

habe folgende Tabelle1:
__A________________B_______________C____________D
Text____________Art/Dim./t._____Länge / BX H_____Anzahl
Verbindungseisen____Ø 8_____________2100_________38______Stck.
Verbindungseisen____Ø 8_____________2000_________________Stck.
Verbindungseisen____Ø 8_____________1900_________16______Stck.
Verbindungseisen____Ø 8_____________1800_________________Stck.
Verbindungseisen____Ø 8_____________1700_________________Stck.




Nun sollen alle Zeilen übernommen werden, welche in Spalte D einen Wert besitzen. Somit soll Tabelle 2 folgendermaßen nach berechnung aussehen.

__A________________B_______________C____________D
Text____________Art/Dim./t._____Länge / BX H_____Anzahl
Verbindungseisen____Ø 8_____________2100_________38______Stck.
Verbindungseisen____Ø 8_____________1900_________16______Stck.


Ich weiß das es mit den Standartfilter funktioniert, jedoch habe ich noch nicht herrausgefunden wie ich diese Wertübernahme in einem Makro realisieren kann.
Habt ihr eine Idee?

Danke im Vorraus für eure Hilfe.

[Karolus]

Hallo

Code: Alles auswählen

 Sub KopierenWennSpalteD
odoc = thisComponent
quellTabelle = odoc.sheets(0) '1.Tabellenblatt
zielTabelle = odoc.sheets(1)
dim s 'Spaltenindex
dim z 'Zeilenindex quellTabelle
dim zz 'Zeilenindex Zieltabelle
z = 1 : zz = 1
do
		if quellTabelle.getcellbyposition(3,z).value > 0 then
		for s = 0 to 4
			zielTabelle.getcellbyposition(s,zz).formula = quellTabelle.getcellbyposition(s,z).formula
		next s
		zz = zz +1
		end if
		z = z + 1 
loop until quellTabelle.getcellbyposition(0,z).string = ""
End Sub

Gruß Karo

[conairemor]

Recht herzlichen Dank für deine Schnelle hilfe.

Vielen Dank Karolus.
Funktioniert