Sollte normalerweise kein Problem sein. Habe vor kurzem so was ähnliches schon mal geschrieben, z.B. nach bestimmten Kriterien aus einem Vorgabeblatt in einem zweiten Blatt zu suchen und zu buchen.Wenn ein einen Artikel verkaufe, gebe ich per Hand im Artikelblatt in der Spalte Verkauf die Menge ein (d.h. ich erhöhe die Menge, die schon drin steht) damit ich weiß, wieviel ich am Jahresende davon verkauft habe. Kann man sowas auch mit einem Makro machen? Ich weiß gar nicht, wie ich mit sowas anfangen soll, bin ein blutiger Anfänger in der Richtung!
Code: Alles auswählen
Sub Search_Engine
oDoc = ThisComponent
oSheetOut = oDoc.Sheets.getByName("output")
oCell = oSheetOut.getCellRangeByName("J5")
Customer_ID_1 = oCell.string
for i = 15 to 25
oCell = oSheetOut.getCellRangeByName("K" & i)
Order_ID_1 = oCell.string
Searching_for_1 = Customer_ID_1 & Order_ID_1
if Order_ID_1 = "" Then
msgbox "Searching ""output_sheet"" finish or no more ID´s found!", 64 , "Searching"
exit sub
end if
oCell = oSheetOut.getCellRangeByName("L" & i)
Order_Code = oCell.value
oCell = oSheetOut.getCellRangeByName("M" & i)
Order_Qty = oCell.value
oSheetData = oDoc.Sheets.getByName("database")
for j = 3 to 20' 20 is example for count rows
oCell = oSheetData.getCellRangeByName("B" & j)
Customer_ID_2 = oCell.value
oCell = oSheetData.getCellRangeByName("C" & j)
Order_ID_2 = oCell.value
if Searching_for_1 = Customer_ID_2 & Order_ID_2 Then
for k = 10 to 48 step 2
oCell1 = oSheetData.getCellByPosition(k , j - 1)
Data_ID_2 = oCell1.value
if Order_Code = Data_ID_2 then
oCell_1 = oSheetData.getCellByPosition( k + 1 , j -1 )
Quantity1 = oCell_1.value
new_Quantity = Quantity1 - Order_Qty
oCell_1.value = new_Quantity
end if
next k
end if
next j
next i
End Sub
Sollte auch keine grosse Sache sein.Und gibt es auch die Möglichkeit, ein Makro zu schreiben, damit er mir die Rechnungen, die als Pdf speichere, in eine List einträgt, mit Datum, Rechnungsnummer, Namen und Betrag?
Am besten mal eine Beispieldatei hochladen, dazu vorher hier im Forum anmelden (es lohnt sich, weil es ist echt ne tolle Truppe hier), um die Struktur Deines Dokumentes zu kennen.
Bis dann.
Jürgen
musste dort nur die Zeile ändern.