mehr Dimensionales array

[Florian20]

Hallo und Guten morgen,

Ja ich weiß Ich hätte meine frage sehr viel besser stellen können, aber das Fällt einem gar nicht so stark auf.

Und Ich weis es auch sehr zu schätzen das hier im Forum alle nett sind.
Nur ist es manchmal nicht einfach eine gute Erklärung für die Frage zu finden.

Und zu dem code, Ich hatte eigentlich in der Prozedur "code_schreiben" etwas drin   kann leider auch nicht sagen wieso das weg wahr.
Das was Ich geschrieben hab wahr auch nur weil Er mir auch nicht gesagt hat was an dem Bsp. falsch wahr.

Lg Flo

[Der Steuerfuzzi]

Ich weiß, es ist nicht einfach, ein Problem so zu schildern, dass es klar wird, was man vor hat.

Bei Dir war es halt leider sehr dürftig. Es wäre zumindest schön gewesen, kurz im ersten Post zu erklären, dass der Code in der UF die beigefügte txt-Datei in ein Array einliest, das man dann in Form von Code umwandeln will und diesen in das Modul "Menu" einfügen möchte und dass dort schon das Wunschergebnis steht. Damit wäre schonmal viel gesagt und man weiß sofort, wo man suchen soll. Wenn dann noch erklär wird, was die einelnen Felder der Text-Datei bedeuten, wäre auch viel geholfen.

Den verschwundenen Code habe ich inzwischen gefunden, er stand über dem Code des Buttons im Code der UF. Den fraglichen Teil hättest Du auch schon in den Beitrag aufnehmen können.

Hier mal ein Vorschlag:

Code:

'Neue prozeduren anlegen
With ThisWorkbook.VBProject.VBComponents("Menu").CodeModule
    For i = LBound(arr, 2) To UBound(arr, 2)
            If ((arr(0, i) Like "Menu*" Or arr(0, i) Like "SubMenu*") And arr(1, i) = 0) Or arr(0, i) Like "Sub2Menu" Then
                .AddFromString vbCrLf & _
                "Public Sub " & arr(0, i) & "()" & vbCrLf & _
                "'" & arr(3, i) & vbCrLf & _
                "Msgbox """ & arr(3, i) & " geklickt.""" & vbCrLf & _
                "End Sub"
    Next i
End With