Zelle Selektieren und die Eigenschaften ändern

Antwort erstellen


BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet

Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: Zelle Selektieren und die Eigenschaften ändern

Re: Zelle Selektieren und die Eigenschaften ändern

von nusta88 » Mi, 04.07.2007 12:33

Dankeschön Klaus. Dank dir hab ich echt ne Menge dazugelernt.

Re: Zelle Selektieren und die Eigenschaften ändern

von kannenklaus » Mi, 04.07.2007 09:48

hallo nusta,

das einfärben geht besser mit der angabe des rgb-wertes. s.a. entsprechende coedzeile

Code: Alles auswählen

oZelle.CharColor=rgb(255, 240, 0)
mit dem xray tool kannst du dir viele eigenschaften, methoden und services des jeweiligen objektes anzeigen lassen. du findest das tool unter:

http://live.prooo-box.org/html/develop2.html

grüße

klaus

Re: Zelle Selektieren und die Eigenschaften ändern

von nusta88 » Di, 03.07.2007 15:41

jo danke klaus. Funktioniert perfekt

Re: Zelle Selektieren und die Eigenschaften ändern

von kannenklaus » Mo, 02.07.2007 17:05

hallo,

damit müsste es klappen:

Code: Alles auswählen

Sub Main
dim oDoc as Object, aktBlatt as Object, oZelle as Object
oDoc=thisComponent
aktBlatt=oDoc.CurrentController.getActiveSheet
oZelle=aktBlatt.getCellByPosition(3,26)
oZelle.string="wer" 'trägt wer in die Zelle ein
oZelle.CharColor=000'RGB-Wert als Dreierketter
End Sub
grüße

klaus

Re: Zelle Selektieren und die Eigenschaften ändern

von nusta88 » So, 01.07.2007 11:00

Hallo,

warte immer noch auf Antworten. Bitte um Hilfe

Re: Zelle Selektieren und die Eigenschaften ändern

von nusta88 » Fr, 29.06.2007 15:46

Alsooo ich hab doch jetzt alles hinbekommen, auser mit:

Code: Alles auswählen

'Cells(27, 4).Font.ColorIndex = 1
Wer könnte mit bei der Umschreibung helfen?

Re: Zelle Selektieren und die Eigenschaften ändern

von komma4 » Fr, 29.06.2007 12:38

Re: Zelle Selektieren und die Eigenschaften ändern

von nusta88 » Fr, 29.06.2007 12:24

Kann mir zumindest jemand sagen wie man das hier umschreiben könnte:

Code: Alles auswählen

Dim isProtected As Boolean
' *** Merken, ob das Blatt beim Aufruf geschützt war ***
isProtected = Excel.ActiveSheet.ProtectContents

Re: Zelle Selektieren und die Eigenschaften ändern

von nusta88 » Fr, 29.06.2007 11:12

Oder: tauschen wir zwei den Arbeitsplatz....
kein Problem wenn du für 6,5 € die Stunde arbeiten willst.

Re: Zelle Selektieren und die Eigenschaften ändern

von komma4 » Fr, 29.06.2007 10:48

nusta88 hat geschrieben:Da der Code ganz kurz ist würde ich mich freuen wenn es auf OOoBasic umgeschrieben wird.
Wir helfen gerne - aber wir sind kein Übersetzungsbüro.
Wie wäre es, wenn Du Dich selbst einarbeitest? Oder: tauschen wir zwei den Arbeitsplatz....

Zelle Selektieren und die Eigenschaften ändern

von nusta88 » Fr, 29.06.2007 10:02

Hallo Leute,

ich hab wieder mal paar Probleme bei der Selektierung der aktiven Zellen. Ein Codebeispiel dafür ist:

Code: Alles auswählen

Dim isProtected As Boolean
' *** Merken, ob das Blatt beim Aufruf geschützt war ***
isProtected = Excel.ActiveSheet.ProtectContents

If (Excel.ActiveCell.Locked) Then
   If (ActiveCell.Column >= 6) Then
Cells(27, 4).Font.ColorIndex = 3
      Cells(ActiveCell.Row + 1, 1).Select
   ElseIf (ActiveCell.Row >= 30) Then
      Cells(32, 1).Select
   Else
      Cells(ActiveCell.Row, ActiveCell.Column + 1).Select
   End If
End If
Da der Code ganz kurz ist würde ich mich freuen wenn es auf OOoBasic umgeschrieben wird.

bis dann

Nach oben