Zahlenkombinationen mit CALC erstellen

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: Zahlenkombinationen mit CALC erstellen

Re: Zahlenkombinationen mit CALC erstellen

von Stephan » Do, 13.05.2010 20:44

Hallo Karolus,

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




GRuß
Stephan

Re: Zahlenkombinationen mit CALC erstellen

von Karolus » Do, 13.05.2010 20:35

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
...

Re: Zahlenkombinationen mit CALC erstellen

von Linux@Inside » Do, 13.05.2010 19:07

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.

Re: Zahlenkombinationen mit CALC erstellen

von bst » Do, 13.05.2010 17:28

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

Zahlenkombinationen mit CALC erstellen

von Linux@Inside » Do, 13.05.2010 16:42

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?

Nach oben