textbox
28.05.2008 19:49:22
ralf
versuche aus tabelle1, a1 bis a30 daten in einer uf textbox anzuzeigen
habe das problem das er mir nur die letzte zelle anzeigt
hier mein code
Private Sub UserForm_Initialize()
Dim a As Integer
For a = 1 To 30
If ActiveSheet.Cells(a, 1) = Empty Then
Exit Sub
ElseIf ActiveSheet.Cells(a, 1) Empty Then
TextBox1.Text = ActiveSheet.Cells(a, 1).Value
End If
Next
End Sub
gruss
ralf
