OpenOffice.info

Code: Alles auswählen

    Option Explicit
   
    Sub Kombinationen()
       Dim a, b, c, zeile
       zeile = 1
       For a = 0 To 9
          For b = 0 To 9
             For c = 0 To 9
                Cells(zeile, 1).Value = Str(a) & Str(b) & Str(c)
                zeile = zeile + 1
             Next c
          Next b
       Next a
    End Sub

Code: Alles auswählen

Option Explicit
   
Sub Kombinationen()
   Dim a as integer, b as integer, c as integer, d as integer, zeile as long
   Dim oSheet as object
	
   oSheet = ThisComponent.CurrentController.ActiveSheet
   zeile = 0
   For a = 1 To 3
      For b = 1 To 3
         For c = 1 To 3
            For d = 1 To  3
               oSheet.getCellByPosition(0, zeile).String = cStr(a) & cStr(b) & cStr(c) & cStr(d)
            	zeile = zeile + 1
            Next d
         Next c
      Next b
   Next a
End Sub