Zelle Selektieren und die Eigenschaften ändern

[nusta88]

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

[komma4]

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

[nusta88]

Oder: tauschen wir zwei den Arbeitsplatz....

kein Problem wenn du für 6,5 € die Stunde arbeiten willst.

[nusta88]

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

[komma4]

Passwortabfrage bei Makro ausführung abschalten

[nusta88]

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?

[nusta88]

Hallo,

warte immer noch auf Antworten. Bitte um Hilfe

[kannenklaus]

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

[nusta88]

jo danke klaus. Funktioniert perfekt

[kannenklaus]

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

[nusta88]

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