[Gelöst]Tabelleneintrag ändern: Makro

[Jörg]

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: 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

Vielen Dank.

[Karolus]

Hallo

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

[Jörg]

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