OpenOffice.info

Hallo,
hast recht, ohne Beispieldatei war es sinnlos.
Habe es aber selbst hinbekommen.
Die Reihenfolge der Spalten mußte geändert werden.

Hallo

Daß das alles dein persönliches Eigentum ist, hast du ja deutlich gemacht… ausser vielleicht »oSheet« das solltest du unbedingt anders nennen:
»OhMySheet« ??

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

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.

[code]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[/code]

Vielen Dank.