Excel Macro zum automatischen einblenden von Zeile
05.04.2015 17:17:48
Zeile
ich möchte gerne von Open Office auf MS Office umsteigen, jedoch habe ich ein Problem mit einer _ Tabelle. Es handelt sich um eine Rechnung, bei der ich ein Dropdown Menü mit automatischer Preisausgabe implementiert habe. Ich möchte z.B. bei Zeile 23 etwas auswählen und es soll automatisch Zeile 24 eingeblendet werden. Bei Open Office ist das ganz gut gegangen, ich musste nur in der Zeile
=SHOW_NEXT_ROW(B23;ZEILE(B23))
function SHOW_NEXT_ROW(sBezeichnung,nRow)
on error goto errorhandler
osheet = thiscomponent.sheets.getbyname("Tabelle1")
oRow = osheet.Rows(nRow)
if sBezeichnung = 0 then
oRow.IsVisible = false
else
oRow.IsVisible = true
endif
errorhandler:
End function
Meine Frage ist, wie kann ich das in Excel lösen? Danke für eure Hilfe schon im voraus.
Gruß
Patrik