Thema Datum  Von Nutzer Rating
Antwort
06.02.2015 20:26:00 Hans Dampf
NotSolved
06.02.2015 21:35:11 Gast35625
NotSolved
06.02.2015 21:38:07 Gast79710
NotSolved
06.02.2015 21:52:01 Gast34882
NotSolved
06.02.2015 21:57:15 Gast16907
NotSolved
06.02.2015 23:13:41 Gast46146
NotSolved
07.02.2015 01:04:38 Gast56536
NotSolved
Blau meinte natürlich b
 08.02.2015 09:30:27 Gast31315
NotSolved

Ansicht des Beitrags:
Von:
Gast31315		 Datum:
08.02.2015 09:30:27		 Views:
1099		 Rating:
     
Antwort:
  Ja
Thema:
meinte natürlich b

Hallo

Finde ich gut, ich fange mal klein an und habe folgenden Code:

Sub Main()

Dim K0 As Long, K1 As Long, K2 As Long, K3 As Long
Dim s As String
Dim x As Long, y As Long

x = 0
y = 3

 For K3 = x To y
    For K2 = x To y
        For K1 = x To y
            For K0 = x To y
                If K3 <> K2 And K3 <> K1 And K3 <> K0 And K2 <> K1 And K2 <> K0 And K1 <> K0 Then
                    s = s & K0 & ", " & K1 & ", " & K2 & ", " & K3 & ", " & vbLf
                End If
            Next K0
        Next K1
    Next K2
Next K3
MsgBox s
End Sub

Die Perutation für diese 4 Schleifen funktioniert so wie ich mir das vorgestellt habe. Wenn ich jetzt aber die Anzahl der Schleifen erhöhe, wird alles mega langsam wegen der Ungleich-Vergleiche. Gibt es da einen Trick, wie das schneller gehen könnte?

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
06.02.2015 20:26:00 Hans Dampf
NotSolved
06.02.2015 21:35:11 Gast35625
NotSolved
06.02.2015 21:38:07 Gast79710
NotSolved
06.02.2015 21:52:01 Gast34882
NotSolved
06.02.2015 21:57:15 Gast16907
NotSolved
06.02.2015 23:13:41 Gast46146
NotSolved
07.02.2015 01:04:38 Gast56536
NotSolved
Blau meinte natürlich b
 08.02.2015 09:30:27 Gast31315
NotSolved