Herbers Excel/VBA-Archiv

Formel oder VBA?

• Formel oder VBA? von Sibylle Weber vom 13.11.2014 06:29:27
• AW: Formel oder VBA? - von daniel am 13.11.2014 07:43:32
  • Danke schön - von Sibylle Weber am 14.11.2014 11:32:08
• AW: Formel oder VBA? - von Hajo_Zi am 13.11.2014 08:30:48
  • Danke schön - von Sibylle Weber am 14.11.2014 11:33:50

Betrifft: Formel oder VBA? von: Sibylle Weber
Geschrieben am: 13.11.2014 06:29:27

Hallo,

für die Bildung einer ID sollen alle Großbuchstaben und alle Ziffern verwendet werden.
Alle IDs sollen mit einem Großbuchstaben beginnen und die ID soll 6-stellig sein, etwa vergleichbar mit dem Aufbau einer Wertpapierkennnummer.

Frage a:
Wie läßt sich die Anzahl an Kombinationen ermitteln?
Frage b:
Wie kann man die ID-Liste erzeugen?

Besten Dank im Voraus.

Gruß
Sibylle

Betrifft: AW: Formel oder VBA? von: daniel
Geschrieben am: 13.11.2014 07:43:32

Hi
Die Anzahl der Möglichkeiten bekommst du, indem du die Anzahl der Möglichkeit für jede Stelle miteinander multiplizierst:
=26*36*36*36*36*36

Gruß Daniel

Betrifft: Danke schön von: Sibylle Weber
Geschrieben am: 14.11.2014 11:32:08

Hallo Daniel,

ich danke Dir für die Übermittlung der Berechnung.

Gruß
Sibylle

Betrifft: AW: Formel oder VBA? von: Hajo_Zi
Geschrieben am: 13.11.2014 08:30:48

Hallo Sibylle,

das erzeugen dauert schon eine Weile.

Option Explicit

Sub IB_Nummer()
    Dim Lozeile As Long
    Dim InSpalte As Integer
    Dim ByI As Byte
    Dim ByJ As Byte
    Dim ByK As Byte
    Dim ByL As Byte
    Dim ByM As Byte
    Dim ByN As Byte
    For ByI = 65 To 90
        For ByJ = 48 To 90
            If ByJ = 58 Then ByJ = 65
            For ByK = 48 To 90
                If ByK = 58 Then ByK = 65
                For ByL = 48 To 90
                    If ByL = 58 Then ByL = 65
                    For ByM = 48 To 90
                        If ByM = 58 Then ByM = 65
                        For ByN = 48 To 90
                            If ByN = 58 Then ByN = 65
                            If Lozeile = Rows.Count - 1 Then
                                Lozeile = 0
                                InSpalte = InSpalte + 1
                            End If
                            Cells(Lozeile + 1, InSpalte + 1) = Chr(ByI) & Chr(ByJ) & Chr(ByK) &  _
Chr(ByL) & Chr(ByM) & Chr(ByN)
                            Lozeile = Lozeile + 1
                        Next ByN
                    Next ByM
                Next ByL
            Next ByK
        Next ByJ
    Next ByI
End Sub

Betrifft: Danke schön von: Sibylle Weber
Geschrieben am: 14.11.2014 11:33:50

Hallo Hajo,

vielen Dank für die Übermittlung des Programmcodes.

Gruß
Sibylle

Beiträge aus den Excel-Beispielen zum Thema "Formel oder VBA?"