VBA. Tiedon tallennus eri taulukkoihin.

TextBox1:n koko sisällön varastointiin riittää merkkijonomuuttuja:
(muut TextBoxit kuten TextBox1)

Dim Mj as String

Mj=TextBox1.Value


TextBox1:n sisällön varastointi riveittäin taulukkoon:
(muut TextBoxit kuten TextBox1)

Dim Taulukko1() As String
Dim RiviLkm As Integer
Dim MjLkm As Integer
Dim I As Integer
Dim J As Integer
Dim Merkki As String
Dim Mj As String

'focus textboxille
TextBox1.SetFocus
'rivien lukumäärä textboxissa
RiviLkm = TextBox1.LineCount
'taulukon tilanvaraus
ReDim Taulukko1(RiviLkm)

Mj = ""
J = 1
'focus textboxille
TextBox1.SetFocus
'textboxin merkkien lukumäärä
MjLkm = Len(TextBox1.Text)
For I = 1 To MjLkm
Merkki = Mid(TextBox1.Text, I, 1)
'vaununpalautus
If Merkki = Chr(13) Then
J = J 1
'ylitetään rivinvaihtomerkki
I = I 1
'tyhjennetään merkkijono
Mj = ""
Else
'lisätään merkki rivin merkkijonoon
Mj = Mj & Merkki
'lisätään taulukon indeksiä
Taulukko1(J) = Mj
End If
Next

'taulukon tulostus
For I = 1 To RiviLkm
MsgBox Taulukko1(I)
Next

Tässä lyhyt ja helppo( ei taida toimia kuin Excel 2000--->)

Private Sub CommandButton1_Click()
Dim teksti As Variant
TextBox1.SetFocus
x = TextBox1.LineCount
Sheets("Taul1").Activate
Range("A1").Select
For i = 0 To x - 1
teksti = Split(TextBox1, vbNewLine)
ActiveCell = teksti(i)
ActiveCell.Offset(1, 0).Select
Next
TextBox2.SetFocus
x = TextBox2.LineCount
Sheets("Taul2").Activate
Range("A1").Select
For i = 0 To x - 1
teksti = Split(TextBox2, vbNewLine)
ActiveCell = teksti(i)
ActiveCell.Offset(1, 0).Select
Next
End Sub

Joo kiitos vain. Sain poimittua noista vinkeistä juuri sellaiset tiedot joilla pääsen taas eteenpäin...

Kiitos.

Voinko hakea esim. Taulukko1 tietoa ja tulostaa sen UserFormille???