OpenOffice.info

keine Ahnung.

Irgendwas mit Schiffsbeladung

Fabi

... und was möchte er berechnen?

hab ich schon beantwortet!!!!
Er will damit was berechnen.

Ich weis was ein Fragezeichen ist!!!!
Ich bin nich blöd !!!

Fabi

[quote="F3K Total"]Ohne Kekse keine Fische!
Wozu brauchst Du/Dein Kumpel die Tabelle?
[/quote]
Am Ende steht ein Fragezeichen, das bedeutet: Es handelt sich um einen Frage!

welche Frage ?????

Fabi

[quote="Fabiii"]biitttte[/quote]
Willste auf'n Arm? — Oh Mann, wir sind doch hier nicht im Kindergarten! Fehlt nur noch mit den Füßen stampfen…

Du hattest zwölf Tage, um [i]F3K Total[/i]'s Frage zu klären. Also – wo ist die Antwort?

Gruß
lorbass

[quote="F3K Total"]Ohne Kekse keine Fische![/quote]

biitttte

Fabi

keine Ahnung der will irgenwie damit was berechnen.
Ich bracuh nur noch des.
Bitte.
Bitte beantworte mir nur noch die Fragen
Bitte

Danke
Danke
Fabi

Ohne Kekse keine Fische!
Wozu brauchst Du/Dein Kumpel die Tabelle?
Gruß R

Hallo,
noch eine Frage will diese Tabelle die ich erstellt habe mit Makro kopieren und mehrere Tabellen daraus machen.
Wie geht das.
Funktioniert nicht.
Kannst du ja mal ausprobiren einfach die Tabelle kopieren und in Tabelle 2 einfügen.
dann funktioniert der kopier vorgang von den Containeren nicht mehr.
wie mach ich das.

Bitte um schnelle Antwort.
Danke Fabi

P.S:Danke für deine rieeeeeeeeeeeeeeeesiege Hilfe !!!!!!!!!!!!!!!!!!!

REM  *****  BASIC  *****
global nbackcolor as long
global sText as String

Sub getcontainer(event)
osel=thiscomponent.currentselection
nbackcolor = osel.CellBackColor
ncharcolor = osel.Charcolor
event.source.model.backgroundcolor = nbackcolor
event.source.model.TextColor = ncharcolor
sText = osel.string
End Sub

Sub insertcontainer
osel = thiscomponent.currentselection
if sText<>"leer" then
osel.string=sText
else
osel.string=""
endif
osel.CellBackColor = nbackcolor
count_colors
end sub

sub count_colors
osheet = thiscomponent.currentcontroller.activesheet
qrange = osheet.getcellrangebyname("B1:Q2")
trange = osheet.getcellrangebyname("B5:AU14")
for i=0 to qrange.columns.count-1
ncolorcount=0
ncountbackcolor = qrange.getcellbyposition(i,0).CellBackColor
 for j=0 to trange.columns.count-1
  for k=0 to trange.rows.count-1
   ocell = trange.getcellbyposition(j,k)
   if ocell.CellBackColor = ncountbackcolor then ncolorcount=ncolorcount+1
  next k
 next j
 qrange.getcellbyposition(i,1).value = ncolorcount
next i
end sub

sub clear_ship(event)
ocmdCopy=event.source.model.parent.cmdCopy
ocmdCopy.Textcolor = -1
ocmdCopy.backgroundcolor = -1
osheet = thiscomponent.currentcontroller.activesheet
qrange = osheet.getcellrangebyname("B1:Q2")
trange = osheet.getcellrangebyname("B5:AU14")
qrange.clearContents(1)
trange.clearContents(36)

end sub

keine Ahnung warum er des haben will.

so hab des jetzt abgeändert auf ein größeres "Schiff"
aber wenn ich auf "Schiff entleeren" klicke geht auch meine Umrandung weg was ist da falsch.
Probiers einfach selber aus.

Hier das ist das Makro was ich geändert hab nochmal zum lesen[code]REM ***** BASIC *****
global nbackcolor as long
global sText as String

Sub getcontainer(event)
osel=thiscomponent.currentselection
nbackcolor = osel.CellBackColor
ncharcolor = osel.Charcolor
event.source.model.backgroundcolor = nbackcolor
event.source.model.TextColor = ncharcolor
sText = osel.string
End Sub

Sub insertcontainer
osel = thiscomponent.currentselection
if sText<>"leer" then
osel.string=sText
else
osel.string=""
endif
osel.CellBackColor = nbackcolor
count_colors
end sub

sub count_colors
osheet = thiscomponent.currentcontroller.activesheet
qrange = osheet.getcellrangebyname("B1:Q2")
trange = osheet.getcellrangebyname("B5:AU14")
for i=0 to qrange.columns.count-1
ncolorcount=0
ncountbackcolor = qrange.getcellbyposition(i,0).CellBackColor
for j=0 to trange.columns.count-1
for k=0 to trange.rows.count-1
ocell = trange.getcellbyposition(j,k)
if ocell.CellBackColor = ncountbackcolor then ncolorcount=ncolorcount+1
next k
next j
qrange.getcellbyposition(i,1).value = ncolorcount
next i
end sub

sub clear_ship(event)
ocmdCopy=event.source.model.parent.cmdCopy
ocmdCopy.Textcolor = -1
ocmdCopy.backgroundcolor = -1
osheet = thiscomponent.currentcontroller.activesheet
qrange = osheet.getcellrangebyname("B1:Q2")
trange = osheet.getcellrangebyname("B5:AU14")
qrange.clearContents(1)
trange.clearContents(36)

end sub[/code]

Bitte um schnelle Antwort.
Danke
Fabi

... schreibe ich selber ...
hier ein erster Einstieg:
[url]http://www.starbasicfaq.de/[/url]
oder hier:
[url]http://de.openoffice.info/viewtopic.php?f=18&t=1553[/url]

[quote="Fabiii"]IS für einen Freund habs ihm versprochen es zu machen.[/quote]
Ich wollte wissen wofür, also für welchen Zweck die Datei benötigt wird. Ist der Freund ein Binnenschiffer?

Viel Erfolg
Gruß R

wie machst du des will meine Tabelle noch etwas abändern???

Hallo,
vieeeeeeeeeeeeeeeeeelen Dank.
IS für einen Freund habs ihm versprochen es zu machen.

Danke Fabi

woher weist du des mit den Makros schreibst du die selber oder downloadest du die.
Wenn ja wo??