schon vor einigen Jahren hatte mir Clag nachstehendes Makro gebaut.
Meine Versuche das auf zwei weitere Zellen zu erweitern, scheitern leider.
Nachfolgend mein Versuch.
Code: Alles auswählen
sub ChangeCustomerData 'Änderungen speichern
myDoc =thisComponent
osheet = myDoc.sheets(2)
Vorname = osheet.GetCellRangeByName ("F8").string
Nachname = osheet.GetCellRangeByName ("E8"). string
antwort = msgbox("Änderungen" & Chr(13) & Nachname & "," & " " & Vorname & Chr(13)& "speichern?",36,"Stammdaten")
if antwort = 7 Then
exit sub
end if
myDoc = thisComponent
mySheet = myDoc.sheets(1)
myData = myDoc.sheets(0)
check = mysheet.getCellByPosition(5,6).string 'F7
myPid = mysheet.getCellByPosition(4,7).string 'E8
if check = "1" then
search = "~"
do until search = myPid
y=y+1
search = myData.getCellByPosition(0,y).string
loop
for i=0 to 11 'vorher stand for i=0 to 9
ReplaceData = mysheet.getCellByPosition(5,8+i).string 'F9 bis F19
if ReplaceData <> "" then
myData.getCellByPosition(1+i,y).string = ReplaceData
end if
next
else
print "Pat.Nr nicht im Bestand"
exit sub
end if
call clearColumnF
rem---------------------------------------------------------------------------------
'oCellRange = mysheet.getCellRangeByName("$F$8")
'ocellRange.clearContents(com.sun.star.sheet.CellFlags.FORMULA)
myView = myDoc.CurrentController
mySheet = myDoc.Sheets(2)
myView.setActiveSheet(mySheet)
end sub