Seite 1 von 1
Zelle Selektieren und die Eigenschaften ändern
Verfasst: Fr, 29.06.2007 10:02
von 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
Re: Zelle Selektieren und die Eigenschaften ändern
Verfasst: Fr, 29.06.2007 10:48
von komma4
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....
Re: Zelle Selektieren und die Eigenschaften ändern
Verfasst: Fr, 29.06.2007 11:12
von nusta88
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
Verfasst: Fr, 29.06.2007 12:24
von 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
Re: Zelle Selektieren und die Eigenschaften ändern
Verfasst: Fr, 29.06.2007 12:38
von komma4
Re: Zelle Selektieren und die Eigenschaften ändern
Verfasst: Fr, 29.06.2007 15:46
von nusta88
Alsooo ich hab doch jetzt alles hinbekommen, auser mit:
Wer könnte mit bei der Umschreibung helfen?
Re: Zelle Selektieren und die Eigenschaften ändern
Verfasst: So, 01.07.2007 11:00
von nusta88
Hallo,
warte immer noch auf Antworten. Bitte um Hilfe
Re: Zelle Selektieren und die Eigenschaften ändern
Verfasst: Mo, 02.07.2007 17:05
von 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
Re: Zelle Selektieren und die Eigenschaften ändern
Verfasst: Di, 03.07.2007 15:41
von nusta88
jo danke klaus. Funktioniert perfekt
Re: Zelle Selektieren und die Eigenschaften ändern
Verfasst: Mi, 04.07.2007 09:48
von kannenklaus
hallo nusta,
das einfärben geht besser mit der angabe des rgb-wertes. s.a. entsprechende coedzeile
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
Verfasst: Mi, 04.07.2007 12:33
von nusta88
Dankeschön Klaus. Dank dir hab ich echt ne Menge dazugelernt.