wahrscheinlich ganz einfach, ich blicks aber nicht!! Hilfe
folgende Sequenz gibt die Fhlermeldung "Objectvariable oder WithBlochvariable nicht definiert"
With p1
For I = 37 To 44
BelegArray(N) = .Controls("TextBox" & I).Value 'BelegArray(N)=
N = N + 1
Next I
End With
BelegArray ist als Object definiert, I, N (beginnt bei 1)als Integer.
Fogende Zeilen Funktionieren problemlos.
With p1
For I = 37 To 44
wb.Cells(N, 1).Value = .Controls("TextBox" & I).Value
N = N + 1
Next I
End With
was muß ich tun damit die Textboxfelder in ein Array übertragen werden?
Ganz herzlichst bedankt
Mit freundlichen Grüßen
Albrecht