diff options
| author | Behrend Cornelius <bc@openoffice.org> | 2002-01-11 12:30:59 +0000 |
|---|---|---|
| committer | Behrend Cornelius <bc@openoffice.org> | 2002-01-11 12:30:59 +0000 |
| commit | ddebda6fbcd0442b3384ea1485ff5095dbfc9859 (patch) | |
| tree | 961b31dc5db36facb8dd8ae21e5027797b65807d /wizards/source/euro/Hard.xba | |
| parent | 4735fb3bce17ceba16b697c4ea44f2bc2120fe4c (diff) | |
#96420# RangeList Array now one dimensional
Diffstat (limited to 'wizards/source/euro/Hard.xba')
| -rw-r--r-- | wizards/source/euro/Hard.xba | 22 |
1 files changed, 10 insertions, 12 deletions
diff --git a/wizards/source/euro/Hard.xba b/wizards/source/euro/Hard.xba index 16e0d0e084bd..0d99a26d4043 100644 --- a/wizards/source/euro/Hard.xba +++ b/wizards/source/euro/Hard.xba @@ -1,8 +1,7 @@ <?xml version="1.0" encoding="UTF-8"?> <!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> - <script:module xmlns:script="http://openoffice.org/2000/script" script:name="Hard" script:language="StarBasic">REM ***** BASIC ***** +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Hard" script:language="StarBasic">REM ***** BASIC ***** Option Explicit -'ToDo: Währung wechseln und dann sehen, ob die Listbox mit den neuen Ranges aufgefrischt wird Sub CreateRangeList() @@ -20,7 +19,7 @@ Dim MaxIndex as Integer oRanges = osheet.CellFormatRanges.createEnumeration() MaxIndex = AddSheetRanges(oRanges, MaxIndex, oSheet, False) If MaxIndex > -1 Then - ReDim Preserve RangeList(MaxIndex,1) + ReDim Preserve RangeList(MaxIndex) End If Else CreateRangeEnumeration(False) @@ -55,17 +54,17 @@ Dim sStatustext as String If Not bAutoPilot Then oStatusline.SetText(sStsRELRANGES) '"Erfassung der relevanten Bereiche..." ' Die Ranges sind schon definiert - For i = 0 To Ubound(RangeList(),1) - If RangeList(i,0) <> "" AND Rangelist(i,1) = True Then + For i = 0 To Ubound(RangeList()) + If RangeList(i) <> "" Then AddSingleItemToListBox(DialogModel.lstSelection, RangeList(i)) End If Next End If End If If MaxIndex > -1 Then - ReDim Preserve RangeList(MaxIndex,1) -' Else -' ReDim RangeList(,1) + ReDim Preserve RangeList(MaxIndex) + Else + ReDim RangeList() End If Rangeindex = MaxIndex End Sub @@ -88,14 +87,13 @@ Dim MaxIndex as Integer End If ' The Ranges are only passed to an Array when the whole Document is the basis ' Redimension the RangeList Array if necessary - MaxIndex = Ubound(RangeList(),1) + MaxIndex = Ubound(RangeList()) r = r + 1 If r > MaxIndex Then MaxIndex = MaxIndex + SBRANGEUBOUND - ReDim Preserve RangeList(MaxIndex,1) + ReDim Preserve RangeList(MaxIndex) End If - RangeList(r,0) = RangeName - RangeList(r,1) = True + RangeList(r) = RangeName End If Wend AddSheetRanges = r |