von Jörg » Do, 09.07.2015 21:33
Hallo Fachleute,
danke für die angeregte Diskusion.
Da ich zunächst nur ein Datum eintragen will, habe ich den Code so geändert.
Code: Alles auswählen
sub Neues_Mahnungsdatum
myDoc = thisComponent
mySheet = myDoc.sheets(). getByName ("Tabelle12")
myData = myDoc.sheets().getByName ("Rechnungen")
myPid = mysheet.getCellByPosition(1,7).value
search = "~"
do until search = myPid
y=y+1
search = myData.getCellByPosition(0,y).value
loop
for i=0 to 0
ReplaceData = mysheet.getCellByPosition(7,24).value
if ReplaceData <> "" then
myData.getCellByPosition(35+i,y).value = ReplaceData
end if
next
end sub
Zur Ausgangssituation (Originalcode)kann ich nur sagen, daß ich die betreffenden Zellen (Datum und Zahlen)
nicht als Text formatiert habe.
Obwohl es ein Widerspruch zu sein scheint, funktioniert es aber so.

Wenn Ihr gestattet, würd ich gern ein anderes Problem einstellen.
Ähnlicher Code:
Code: Alles auswählen
sub status_aendern
myDoc = thisComponent
mySheet = myDoc.sheets(). getByName ("Tabelle12")
myData = myDoc.sheets().getByName ("Rechnungen")
myPid = mysheet.getCellByPosition(1,7).string
search = "~"
do until search = myPid
y=y+1
search = myData.getCellByPosition(0,y).string
loop
for i=0 to 0
ReplaceData = mysheet.getCellByPosition(6,23).string 'ZielZelle ist G24 Wird aber in H25 geschrieben
if ReplaceData <> "" then
myData.getCellByPosition(7+i,y).string = ReplaceData
end if
next
end sub
Das Problem: Anstatt in G23 schreibt mir der Code in H25.
Wie kommt denn das ???
Gruß Jörg
Hallo Fachleute,
danke für die angeregte Diskusion.
Da ich zunächst nur ein Datum eintragen will, habe ich den Code so geändert.
[code]sub Neues_Mahnungsdatum
myDoc = thisComponent
mySheet = myDoc.sheets(). getByName ("Tabelle12")
myData = myDoc.sheets().getByName ("Rechnungen")
myPid = mysheet.getCellByPosition(1,7).value
search = "~"
do until search = myPid
y=y+1
search = myData.getCellByPosition(0,y).value
loop
for i=0 to 0
ReplaceData = mysheet.getCellByPosition(7,24).value
if ReplaceData <> "" then
myData.getCellByPosition(35+i,y).value = ReplaceData
end if
next
end sub[/code]
Zur Ausgangssituation (Originalcode)kann ich nur sagen, daß ich die betreffenden Zellen (Datum und Zahlen) [u]nicht [/u]als Text formatiert habe.
Obwohl es ein Widerspruch zu sein scheint, funktioniert es aber so. :shock:
Wenn Ihr gestattet, würd ich gern ein anderes Problem einstellen.
Ähnlicher Code:
[code]sub status_aendern
myDoc = thisComponent
mySheet = myDoc.sheets(). getByName ("Tabelle12")
myData = myDoc.sheets().getByName ("Rechnungen")
myPid = mysheet.getCellByPosition(1,7).string
search = "~"
do until search = myPid
y=y+1
search = myData.getCellByPosition(0,y).string
loop
for i=0 to 0
ReplaceData = mysheet.getCellByPosition(6,23).string 'ZielZelle ist G24 Wird aber in H25 geschrieben
if ReplaceData <> "" then
myData.getCellByPosition(7+i,y).string = ReplaceData
end if
next
end sub[/code]
Das Problem: Anstatt in G23 schreibt mir der Code in H25. :(
Wie kommt denn das ???
Gruß Jörg