von turtle47 » Fr, 02.02.2007 05:36
Hallo Bernd,
ich denke so etwas kann man mit einem Macro lösen.
Mit diesem wird zuerst die Zahl in A1 ausgelesen und dann die
vordefinierten Werte in einen Zellbereich eingetragen der wiederum
den Zellen A2, A3 usw. über die Gültigkeit "Zellbereich" zugeordnet wird.
Der Zellbereich für die Gültigkeit ist in diesem Falle B1:B2.
Hier der Code dafür:
Code: Alles auswählen
Sub Auslesen
myDoc = thisComponent
mySheet = myDoc.sheets(0)
mycell = mysheet.getCellByPosition(0,0)
myvalue=mycell.value
if myvalue = 1 then
Auswahlliste1
end if
if myvalue = 2 then
Auswahlliste2
end if
if myvalue = 3 then
Auswahlliste3
end if
End Sub
Sub Auswahlliste1
myDoc = thisComponent
mySheet = myDoc.sheets(0)
mycell = mysheet.getCellByPosition(1,0) 'Zelle B1
mycell.string="A"
mycell = mysheet.getCellByPosition(1,1) 'Zelle B2
mycell.string="C"
End Sub
Sub Auswahlliste2
myDoc = thisComponent
mySheet = myDoc.sheets(0)
mycell = mysheet.getCellByPosition(1,0) 'Zelle B1
mycell.string="B"
mycell = mysheet.getCellByPosition(1,1) 'Zelle B2
mycell.string="D"
End Sub
Sub Auswahlliste3
myDoc = thisComponent
mySheet = myDoc.sheets(0)
mycell = mysheet.getCellByPosition(1,0) 'Zelle B1
mycell.string="E"
End Sub
Viel Erfolg
Jürgen
Hallo Bernd,
ich denke so etwas kann man mit einem Macro lösen.
Mit diesem wird zuerst die Zahl in A1 ausgelesen und dann die
vordefinierten Werte in einen Zellbereich eingetragen der wiederum
den Zellen A2, A3 usw. über die Gültigkeit "Zellbereich" zugeordnet wird.
Der Zellbereich für die Gültigkeit ist in diesem Falle B1:B2.
Hier der Code dafür:
[code]Sub Auslesen
myDoc = thisComponent
mySheet = myDoc.sheets(0)
mycell = mysheet.getCellByPosition(0,0)
myvalue=mycell.value
if myvalue = 1 then
Auswahlliste1
end if
if myvalue = 2 then
Auswahlliste2
end if
if myvalue = 3 then
Auswahlliste3
end if
End Sub
Sub Auswahlliste1
myDoc = thisComponent
mySheet = myDoc.sheets(0)
mycell = mysheet.getCellByPosition(1,0) 'Zelle B1
mycell.string="A"
mycell = mysheet.getCellByPosition(1,1) 'Zelle B2
mycell.string="C"
End Sub
Sub Auswahlliste2
myDoc = thisComponent
mySheet = myDoc.sheets(0)
mycell = mysheet.getCellByPosition(1,0) 'Zelle B1
mycell.string="B"
mycell = mysheet.getCellByPosition(1,1) 'Zelle B2
mycell.string="D"
End Sub
Sub Auswahlliste3
myDoc = thisComponent
mySheet = myDoc.sheets(0)
mycell = mysheet.getCellByPosition(1,0) 'Zelle B1
mycell.string="E"
End Sub
[/code]
Viel Erfolg
Jürgen