Hi guys,
Can anyone of u tells me what is the problem with the following code:
Dim feld() As String
Dim cnt as integer
Public Sub more_Click()
If Trim(txtFeld.Value) <> "" And Trim(obType.Value) <> "" Then
cnt = cnt + 1
If cnt > UBound(feld, 1) Then
ReDim...