Verschiebend

[F3K Total]

issich nix anhan!
R

[Fabiii]

Sorry
da hat was net funktioniert

[F3K Total]

Hi,
verschiebend geht nicht, aber kopieren und einfügen. Makros müssen erlaubt sein.
Gehe mit dem Cursor auf eines der oberen bunten Felder und drücke den Knopf "kopieren/einfügen mit Doppelklick".
Gehe dann ins Schiff, Doppelklick, schwupps ist ein Container drin, machst Du noch einen Doppelklick ist noch einer drin.
Wähle eine andere Farbe, drücke den Knopf, dann wieder Doppelklick im Schiff.
Hast Du dich verklickt, wähle oben den Container "delete". Dann Doppelklick im Schiff auf den falschen Container, weg ist er.

Gruß und viel Spaß
R

[Fabiii]

Hallo,
Vieeeeeeeeelen Dank.
Es funktioniert nur nich wenn ich es machen will kommt die Meldung "Dokument ist nur zum lesen geöffnet."
Wenn ich es Kopier funktionieren die Makros nicht.
Wie mach ich des.
Hab des Problem öfter???
Bitte um schnelle Antwort
Danke
Fabi

[Fabiii]

Dann funktionieren aber die Makros nicht.
Und wenn ich ein Doppelklick macht bearbeitet er den Zellen Inhalt wie z.B"A".

Benötige schnelle Hilfe
Danke
Fabi

[F3K Total]

Hi,
was steht bei Dir unter Extras/Optionen/Sicherheit/Makrosicherheit Reiter Sicherheitsstufe? Hier solltest Du "Mittel" einstellen, und dann beim Öffnen der Datei Makros zulassen.

Gruß R

[F3K Total]

Per PN:

Hallo,
Könntet du mir erklären wie du das gemacht hast??
Danke
Fabi

Ja, kann ich:
Es gibt zwei Makros
1.)

Code: Alles auswählen

Sub getcontainer
osel=thiscomponent.currentselection 'ließt die gerade selektierte Zelle ein
nbackcolor = osel.CellBackColor' ließt die Hintergrundfarbe der Zelle in die Variable "nbackcolor" ein
sText = osel.string ' ließt den Text, der in der Zelle steht, in die Variable "sText" ein
End Sub

Dieses Makro wird ausgeführt, wenn Du auf den Button drückst. Es ermittelt also die Farbe und den Text der obigen Zellen. Um zu sehen wie man den Button dazu bringt ein Makro auszuführen, mußt Du in den Entwurfsmodus des Formulares gehen,

em.png (2.15 KiB) 578 mal betrachtet

und dann mit der rechten Maustaste auf den Button, Kontrollfeld .../ Ereignisse

2.)

Code: Alles auswählen

Sub insertcontainer
osel = thiscomponent.currentselection' ließt wieder die gerade selektierte Zelle ein, sollte jetzt eine "im Schiff" sein
if sText<>"delete" then 'Wenn der im ersten Makro eingelesene Text nicht "delete" ist,
osel.string=sText ' dann schreibe in die "Schiffszelle" den Text von oben (sText)
else 'anderfalls, also wenn der eingelesene Text "delete" ist
osel.string="" dann schreibe in die "Schiffszelle" nix
endif
osel.CellBackColor = nbackcolor 'setze die Hintergrundfarbe der "Schiffszelle" gleich der oben gewählten Farbe
end sub

Dieses Makro wird bei einem Doppelklick ausgeführt, kannst Du erkennen wenn Du auf den Tabellenreiter mit der rechten Maustaste klickst, und dann auf "Tabellenereignisse" schaust.

Te.png (5.88 KiB) 578 mal betrachtet

Gruß R

[Fabiii]

Hallo,
Vieeeeeeeelen Dank.
Hätte noch eine Frage.
Wie kann man Machen dass calc die zellen Zähl die alle eine gleiche Hintergrundfarbe haben?
Und es dann unten als Zahl da gibt.

Bitte um schnelle Antwort
Danke
Fabi

[F3K Total]

Ja,
geht auch per Makro, siehe Datei.
Wozu brauchst Du das eigentlich ???

Gruß R

[Fabiii]

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

[Fabiii]

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

[F3K Total]

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

IS für einen Freund habs ihm versprochen es zu machen.

Ich wollte wissen wofür, also für welchen Zweck die Datei benötigt wird. Ist der Freund ein Binnenschiffer?

Viel Erfolg
Gruß R

[Fabiii]

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: Alles auswählen

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

Bitte um schnelle Antwort.
Danke
Fabi

[Fabiii]

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

[F3K Total]

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