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
Hallo Leute,
ich hab wieder mal paar Probleme bei der Selektierung der aktiven Zellen. Ein Codebeispiel dafür ist:
[code]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
[/code]
Da der Code ganz kurz ist würde ich mich freuen wenn es auf OOoBasic umgeschrieben wird.
bis dann