title image


Smiley Vervollkommnung
Hallo Desirée,auch wenn es reicht, habe ich noch etwas gebastelt. Die Routine findet nun die Kombinationen aus zwei bis sechs Buchstaben (Ziffern sind auch möglich, allerdings nur von 3 bis 9). Die Beschränkung war notwendig, weil Excel nur 65536 Zeilen zur Verfügung stellt - rein theoretisch lassen sich damit unbegrenzte Buchstabenkombinationen ermitteln. Hier die Lösung:Dim lngZ&, lngI&, lngStart&, lngEnde&Dim intI%Dim FortschrittstrFolge = [d1] 'In D1 stehen die Buchstaben[a1:a65536] = ""intLänge = Len(strFolge)If intLänge > 6 Then    MsgBox "Nicht möglich"    Exit SubEnd IflngStart = CLng(1 & Application.Rept(0, intLänge - 1))lngEnde = CLng(intLänge + 1 & Application.Rept(0, intLänge - 1))lngZ = 1lngZähler = 1For lngI = lngStart To lngEnde    Fortschritt = Format(100 * lngZähler / (lngEnde - lngStart), "0.00")    Application.StatusBar = Application.Rept(Chr(1), Fortschritt / 10 * 2) & " - " & Fortschritt & "% "    For intI = 1 To intLänge        If Mid(lngI, intI, 1) > CInt(intLänge) Or Mid(lngI, intI, 1) = 0 Then GoTo nächste    Next    Cells(lngZ, 1) = lngI    For intI = 1 To Len(strFolge)        Cells(lngZ, 1).Replace intI, Mid(strFolge, intI, 1)    Next    lngZ = lngZ + 1nächste:    lngZähler = lngZähler + 1NextApplication.StatusBar = FalseMsgBox lngZ - 1 & " Kombinationen gefunden."Nun müßte man noch einige Abfragen einbauen und die ganze Sache in einen Array einlesen und schon wären unbegrenzte Kombinationen möglich. Wenn da nur nicht die Laufzeit wäre ...Viele Grüße und ein schönes WochenendeJörgFragen zu Excel, Access oder Word?EWAF-FAQ-Seiten und www.joerglorenz.de durchsuchen:


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: