von F3K Total » So, 16.06.2019 17:54
Hallo Tim,
keine Ahnung, ob du das per Aufzeichnung hinbekommen kannst, aber ich habe mal was geschrieben:
Code: Alles auswählen
Sub Wechseln_DatenGueltigkeit_Liste_selbst_geschrieben
dim sRange(1) as string
sRange(0) = "$Tabelle1.$B$2:$B$21"
sRange(1) = "$Tabelle1.$C$2:$C$21"
oSheet = ThisComponent.Sheets.getbyname("Tabelle1")
oCell = oSheet.getCellbyPosition(7,3)'H4
aValidation = oCell.Validation
if aValidation.Formula1 = sRange(0) then
aValidation.Formula1 = sRange(1)
else
aValidation.Formula1 = sRange(0)
endif
oCell.Validation = aValidation
end sub
Wenn dein Zelle die Zelle H4 auf Tabelle1 ist, und du zwei mögliche Listen auf Tebelle 1, $B$2:$B$21 und $C$2:$C$21 hast, dann wird die gerade aktuelle Liste durch das Ausführen des o.a. Makros auf die andere gesetzt.
Beispiel anbei.
HTH Gruß R
- Dateianhänge
-
- Gültigkeitsliste_per_Makroi.ods
- (12.77 KiB) 120-mal heruntergeladen
Hallo Tim,
keine Ahnung, ob du das per Aufzeichnung hinbekommen kannst, aber ich habe mal was geschrieben:
[code]Sub Wechseln_DatenGueltigkeit_Liste_selbst_geschrieben
dim sRange(1) as string
sRange(0) = "$Tabelle1.$B$2:$B$21"
sRange(1) = "$Tabelle1.$C$2:$C$21"
oSheet = ThisComponent.Sheets.getbyname("Tabelle1")
oCell = oSheet.getCellbyPosition(7,3)'H4
aValidation = oCell.Validation
if aValidation.Formula1 = sRange(0) then
aValidation.Formula1 = sRange(1)
else
aValidation.Formula1 = sRange(0)
endif
oCell.Validation = aValidation
end sub[/code]
Wenn dein Zelle die Zelle H4 auf Tabelle1 ist, und du zwei mögliche Listen auf Tebelle 1, $B$2:$B$21 und $C$2:$C$21 hast, dann wird die gerade aktuelle Liste durch das Ausführen des o.a. Makros auf die andere gesetzt.
Beispiel anbei.
HTH Gruß R