[Gelöst]Tabelleneintrag ändern: Makro
Verfasst: Fr, 08.03.2024 18:17
Hallo Fachleute,
schon vor einigen Jahren hatte mir Clag nachstehendes Makro gebaut.
Meine Versuche das auf zwei weitere Zellen zu erweitern, scheitern leider.
Nachfolgend mein Versuch.
Vielen Dank.
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