Kopieren mit bestimmten Inhalt

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: Kopieren mit bestimmten Inhalt

Re: Kopieren mit bestimmten Inhalt

von conairemor » Do, 28.06.2007 13:53

Recht herzlichen Dank für deine Schnelle hilfe.

Vielen Dank Karolus.
Funktioniert

Re: Kopieren mit bestimmten Inhalt

von Karolus » Do, 28.06.2007 08:54

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

Kopieren mit bestimmten Inhalt

von conairemor » Do, 28.06.2007 07:27

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.

Nach oben