Thema: Zeichenfolge AAAA bis DDDD listen

StandardModule: Modul1

Sub Kombinationen()
Dim sArr As Variant
Dim i As Integer, y As Integer, x As Integer
Dim z As Integer, R As Integer
  sArr = Array("A", "B", "C", "D")
  For i = 0 To UBound(sArr)
    For y = 0 To UBound(sArr)
      For x = 0 To UBound(sArr)
        For z = 0 To UBound(sArr)
          R = R + 1
            Cells(R, 1) = _
               sArr(i) & sArr(0 + y) & sArr(0 + x) & sArr(0 + z)
        Next z
      Next x
    Next y
  Next i
End Sub

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Zeichenfolge