Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1144to1148
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1144to1148
1144to1148
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zweidimensionales Array

Zweidimensionales Array
alifa
Hallo Forum,
da heute Sonntag ist, traue ich mich mit diesem Problem.
Gesucht ein zweidimensionales Datenfeld (7x7), das folgende Bedingungen erfüllt:
1. Jede Zeile und Spalte besteht aus allen Ziffern von1 bis7.
2. Jede Zeile und Spalte (als siebenstellige Zahl) ist vorwärts,rückwärts rauf und runter gelesen durch 7 teilbar.
3. Jede der 28 siebenstelligen Zahlen(s. Punkt 2) kommt nur einmal vor.
Viel Spaß!
Gruß, Alifa

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Zweidimensionales Array
14.03.2010 12:51:42
ransi
HAllo Alifa
Hier hast du schonmal Code der die möglichen ZAhlen listet: (Sind 144)
Option Explicit

Dim MyDIc As Object

Public Sub test()
Dim Out As Variant
Dim strText As String
Set MyDIc = Nothing
Set MyDIc = CreateObject("Scripting.Dictionary")
strText = "1234567"
mixen "", strText
Out = MyDIc.keys 'Hier liegen die möglichen Kandidaten
End Sub


Sub mixen(x As String, y As String) 'Angepasst von Schmittis's Page
Dim i As Integer
Dim j As Integer
j = Len(y)
If j < 2 Then
    If (x & y) Mod 7 = 0 Then If StrReverse(x & y) Mod 7 = 0 Then MyDIc(x & y) = 0
Else
    For i = 1 To j
        Call mixen(x + Mid(y, i, 1), Left(y, i - 1) + Right(y, j - i))
    Next
End If
End Sub





Musst jetzt nur noch die passenden 14 Zahlen raussuchen ;-)
ransi
Anzeige
AW: Zweidimensionales Array
14.03.2010 13:56:11
alifa
Hallo Ransi,
Diese 144 Zahlen hatte ich auch.Mein Code ist etwas länger...
Die Schwierigkeit folgt erst !Das ist eine schöne Aufgabe für Array, vermute ich, da ich diese Problematik nur ganz weitläufig kenne, eigentlich schade...(dass ich nicht mehr kenne)
Gruß,Alifa

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige