Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 17:49:39
Bedingte Formatierung
25.04.2024 16:50:59
2 Zellen in 2 Blättern mit unterschiedlichen Bereichen vergl
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1468to1472
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
1468to1472
1468to1472
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

4 Stelliger Code aus 0-5 ohne benachbarte Doppel

4 Stelliger Code aus 0-5 ohne benachbarte Doppel
13.01.2016 12:28:33
Kolja
Hy Leute,
hab mich schon ein bisschen durch diesen Thread gefräst:
https://www.herber.de/forum/archiv/1064to1068/1067973_Zahlen_ohne_doppelte_Ziffern.html
Kriege aber die Makros nicht so modifiziert wie ich es bräuchte.
Wie im Betreff gesagt brauch ich eine Liste von 4 Stelligen Codes mit führender Null mit den Ziffern 0-5 und es sollen keine 2 gleichen Ziffern nebeneinander stehen
Also:
0101 ist ok, 1001 nicht.
Wie mach ich das?
Danke schon mal im Voraus
Kolja

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: 4 Stelliger Code aus 0-5 ohne benachbarte Doppel
13.01.2016 12:38:56
Daniel
Hi
ermittle den Zufallswert in einer DO-Schleife, welche solange wiederholt wird bis der ermittelte Wert ungleich dem Vorgängerwert ist.
da hier die Chance für einen zweiten Durchlauf nur bei 20% liegt, kannst du das Problemlos machen:
Ziffer1 = 0 Ziffer2 = Worksheetfunction.RandBetween(1, 5) Do Ziffer3 = Worksheetfunction.RandBetween(0, 5) Loop while Ziffer3 = Ziffer2 Do Ziffer4 = Worksheetfunction.RandBetween(0, 5) Loop while Ziffer4 = Ziffer3 Do Ziffer5 = Worksheetfunction.RandBetween(0, 5) Loop while Ziffer5 = Ziffer4 Grúss Daniel

AW: 4 Stelliger Code aus 0-5 ohne benachbarte Doppel
13.01.2016 16:24:57
Kolja
Ja, nur so fange ich keine doppelten ab. Und es geht mir tatsächlich um eine komplette liste.
Aber ich habe gerade die Lösung gefunden, wobei die die Anzahl auf 5 Stellen erhöht habe da ich sonst zu wenige Ergbnisse bekommen hätte... Es ist eine Modifikation eines Scripts aus dem oben stehenden Thread: 
Sub Zahlen10()
Dim t As Double
Dim MyAr()
Dim a1 As Integer, a2 As Integer, a3 As Integer, a4 As Integer, a5 As Integer, B As Long, i  _
As Integer, x As Integer
Dim check As Boolean
ReDim MyAr(1 To 99999)
Columns(10).ClearContents
Columns(10).NumberFormat = "00000"
For a1 = 0 To 5
For a2 = 0 To 5
For a3 = 0 To 5
For a4 = 0 To 5
For a5 = 0 To 5
If a1  a2 Then
If a2  a3 Then
If a3  a4 Then
If a4  a5 Then
i = i + 1:  MyAr(i) = a1 * 10000# + a2 * 1000 + a3 * 100 + a4 * 10 + a5
End If
End If
End If
End If
Next a5
Next a4
Next a3
Next a2
Next a1
ReDim Preserve MyAr(1 To i)
Cells(1, 10).Value = t
Cells(2, 10).Resize(UBound(MyAr)) = Application.Transpose(MyAr)
Rows(1).NumberFormat = "General"
End Sub

Anzeige
AW: 4 Stelliger Code aus 0-5 ohne benachbarte Doppel
13.01.2016 18:30:10
Daniel
achso, du willst ne Komplettliste
wenn du das If a1 a2 Then direkt unter das dazugehörige For schreibst, kannst du viele unnötige Schleifenumläufe einsparen, denn wenn schon die ersten beiden Ziffern gleich sind, brauchst du die restlichen gar nicht erst erstellen.
Gruß Daniel

AW: 4 Stelliger Code aus 0-5 ohne benachbarte Doppel
13.01.2016 13:14:48
ransi
Hallo Kolja,
so?
Tabelle1

 A
10101
20102
30103
40104
50105
60106
70107
80108
90109
100120
110121
120123
130124
14usw.


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Option Explicit

Sub machs()
    Dim L As Long
    Dim intCounter As Integer
    For L = 0 To 999
        If testen(Format(L, "0000")) = True Then
            intCounter = intCounter + 1
            Cells(intCounter, 1) = "'" & Format(L, "0000")
        End If
    Next
End Sub


Function testen(dieZahl As String) As Boolean
    testen = True
    Dim I As Integer
    For I = 1 To Len(dieZahl) - 1
        If Mid(dieZahl, I, 1) = Mid(dieZahl, I + 1, 1) Then
            testen = False
            Exit For
        End If
    Next
End Function



ransi

Anzeige
AW: 4 Stelliger Code aus 0-5 ohne benachbarte Doppel
13.01.2016 13:23:59
ransi
HAllo,
aus 0-5
Sorry, nicht richtig gelesen...
So müsste es gehen:
Tabelle1

 A
10101
20102
30103
40104
50105
60120
70121
80123
90124
100125
110130
120131
130132
14usw.


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Option Explicit

Sub machs()
    Dim L As Long
    Dim intCounter As Integer
    For L = 0 To 555
        If testen(Format(L, "0000")) = True Then
            intCounter = intCounter + 1
            Cells(intCounter, 1) = "'" & Format(L, "0000")
        End If
    Next
End Sub


Function testen(dieZahl As String) As Boolean
    Dim I As Integer
    testen = True
    For I = 1 To Len(dieZahl)
        Select Case Mid(dieZahl, I + 1, 1)
            Case 6 To 9
                testen = False
                Exit Function
            Case Mid(dieZahl, I, 1)
                testen = False
                Exit Function
        End Select
    Next
End Function



ransi
Anzeige

232 Forumthreads zu ähnlichen Themen

Datum sortieren (Jahr, Monat, Tag)
InaB

Hallo Forum,
ich habe ein Problem, das ich so nicht bewältigen kann.
Ich möchte per VBA ab Spalte C4 abwärts Datumsangaben sortieren und zwar nach Jahr, Monat, Tag.
Kann mir jemand dabei helfen?
Danke, Ina
12.08.2008 13:16:04
Thread-ID: 1001175
6 Beiträge
Anzeige
Öffnen und Schliessen von geschützten ohne Abfrage
geschützten

Hallo Leute,
ich baue ein Berichtswesen in Excel auf. Aufgrund der großen Datenmenge benötige ich zwei Dateien.
- In der Datenbank-Datei (DB.xls) sind die Daten abgespeichert. Diese Datei ist durch Kennwort geschützt, um ein Verändern der Daten durch Unberechtigte zu verhindern.
-...
17.09.2008 14:20:00
Thread-ID: 1010396
6 Beiträge
Export in Tab delim txt ohne überflüssige Tabs
Dirk

Hallo Excelgemeinde,
ich habe eine ziemlich umfangreiche txt, die ich in Excel in 2 Tabellen (aufgrund der Zeilenlimitation) einlese und bearbeite. Nun möchte ich sie gene wieder aus Excel in eine Tab delim txt exportieren, wobei mich zur weiteren Bearbeitung aber zusätzliche Tabs am Ende e...
13.10.2008 04:13:43
Thread-ID: 1015918
6 Beiträge
Anzeige
Datum sortieren ohne Berücksichtigung Jahreszahl
fraubi

Hi,
ich versuche mir einen Geburtstagskalender zu bauen. Dabei habe ich Probleme mit der Sortierung des Geburtsdatums, da das Geburtsjahr bei der Sortierung nicht berücksichtigt werden soll. Wenn ich die Geburtstage sortiere dann sieht das immer so aus :
30.04.1964 Andreas Müller
22...
03.11.2008 17:38:32
Thread-ID: 1021394
2 Beiträge
Wochentag und Datum
klausk

Guten Morgen,
in eine Zelle soll der Wochentag (Mo, Di.etc.) sowie das "dazu gehörende" Datum.
Beispiel in A1: Frei. - 21.11.2008
Das ganze Konstrukt soll auch kopierbar sein. Wie kann ich mit der Funktion Wochentag das Datum in der gleichen Zelle ansprechen ?
Vielen Dank und li...
21.11.2008 08:05:00
Thread-ID: 1026591
3 Beiträge
Arbeitsmappe schützen ohne VBA
Karl

Hallo
Ich habe da mal ne Frage. Ich habe im Netz viele möglichkeiten gefunden, um die Arbeitsmappe vor veränderung zu Schützen, aber wie kann ich es anstellen, das wenn jemand die Makros nicht aktiviert, das er dann in der Mappe nichts verändern kann. Hat jemand für mich da mal ein vernünft...
08.12.2008 17:06:17
Thread-ID: 1031132
4 Beiträge
Diagramm mit VBA ohne Bezüge kopieren
Dagmar

Hallo VBA-Experten,
ich kopiere per VBA den Inhalt eines Vorlagenblattes (nicht das Blatt selber, das geht nicht, weil die Copy-Methode nur begrenzt durchführbar ist) und dort ist auch ein Diagramm enthalten. Dummerweise bleiben beim Kopieren die festen Bezüge erhalten und verweisen so auf...
10.12.2008 07:43:00
Thread-ID: 1031557
4 Beiträge
ausfüllen mit festen Adressen ohne absolut setzen!
Ralf

Hallo,
mein Excel 2003 füllt plötzlich Funktionen nach rechts aus und wiederholt dabei die ursprünglichen Zelladressen ohne dass diese absolut gestetzt sind.
Ich habe also z.B. =a1*a2 in einer Zelle, ziehe mit dem Ausfüllkästchen um zwei Spalten nach rechts und als Ergebnis steht überal...
19.01.2009 15:39:24
Thread-ID: 1041522
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
2
5
5
1
1
2
3
3
3
4
12
5
3
2
3
18
16
2
5
3
5
4
8
2