Zahlenkombinationen mit CALC erstellen

[Linux@Inside]

Hallo an alle im Forum, bin neu hier
ich habe folgende Frage:

Wie kann ich mir mit CALC alle 4stelligen (!) Kombinationen aus den Zahlen 1, 2 und 3 ausgeben lassen. Z.B.

1111
2111
3111
1211
1311
1121
1131
...usw

Ich habe es mit diesem Makro probiert:

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

aber er scheint defekt zu sein. Ich krieg immer die Fehlermeldung:

BASIC-Laufzeitfehler. Sub- oder Function-Prozedur nicht definiert.

Hat jemand ne Idee?

[bst]

Hi,

versuche das mal so.

cu, Bernd
--

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

[Linux@Inside]

Hallo Bernd, es funktioniert
Viele Dank für Deine Hilfe! Ich kenne mich damit nämlich wenig aus. Den Code, den ich gepostet habe, habe ich in einem anderen Forum gefunden und konnte ihn deshalb nicht selber ändern.

[Karolus]

Hallo

Das ist mir jetzt doch etwas zu dreist - hier mal exemplarisch was unser Freund anderswo zu diesem Thema geantwortet hat:

dann lass es,... Das Problem habe ich ohnehin vor 30 Minuten auch ohne Forumhilfe gelöst

und spater dann:

Was und wieviel ich in anderen Foren schreibe geht Euch gar nix an

...

[Stephan]

Hallo Karolus,

ich teile dEine Einschätzung und habe deshalb den Nutzer entsprechend verwarnt und gebeten weiteres Crossposting zu unterlassen.




GRuß
Stephan