Private Sub Hinzufügen(sCaption As String, sEbene As String)
ReDim D(UBound(D) + 1) As String
 
If d4 <> UBound(D) Then
ArrayInsert D(), d4, (sEbene & sCaption & Chr(182))
MsgBox "eingefügt"
Else
D(UBound(D)) = (sEbene & sCaption & Chr(182))
MsgBox "angehängt"
End If
 
End Sub

ich danke schon im Voraus


Bin immer und gerne f?r jede Hilfe da