|
Hallo!
Hier der Code für den neuen Speicherbutton. Die Textbox halt anlegen und auf mehrzeilig stellen (MultiLine = true) und für Entereingabe freigbeben (EnterKeyBehavior = true) . Da ich nicht wußte, ob du den Code in deinen Code integrieren willst, habe ich ihn mal so geschrieben, dass er auch alleine funktioniert. Die letzte Zeile ermittle ich da wie bei deinem Code. Falls der Anwender jetzt 3 oder mehr Zeilen eingibt - eine Zeile wird mit Enter abgeschlossen - werden die ersten 3 in die Zellen Name, Ort, Adresse übertrageb. Bei weniger als 3 kommt nur eine Meldung.
Schau mal bitte, ob das so passt. VG
Private Sub CommandButton1_Click()
Dim inhalt
Dim lZeile As Long
inhalt = Split(TextBox1.text, Chr(13) & Chr(10))
lZeile = 2 'Start in Zeile 2, Zeile 1 sind ja die überschriftrn
'Schleife solange etwas in der ersten Spalte in Tabelle 1 drin steht
Do While Trim(CStr(Tabelle1.Cells(lZeile, 1).Value)) <> ""
lZeile = lZeile + 1 'Nächste Zeile bearbeiten
Loop
If UBound(inhalt) > 2 Then
Tabelle1.Cells(lZeile, 1).Value = inhalt(0)
Tabelle1.Cells(lZeile, 2) = inhalt(1)
Tabelle1.Cells(lZeile, 3).Value = inhalt(2)
Else
MsgBox "Bitte füllen sie die Textbox mit mindestens 3 Zeilen!"
End If
End Sub
|