Von Textbox in Zelle
14.08.2003 07:35:16
Wolfgang
Ich habe ein problem. Ich habe eine Textbox in die Adressen aus der zwischenablage in eine Tabelle kopiert werden sollen. Da die Adressen mehrzeilig in der Textbox stehen wird jede Zeile in eine neue Zelle kopiert. Leider nur untereinander. Ich benötige die Date aber nebeneinander damit ich den Datensatz Alphabetisch ordnen kann.
Kann man Excel dazu bringen das die einzelnen Zeilen der Textbox in Zellen kopiert werden die in einer Zeile liegen?
Gruß und Dank
Wolfgang
Hier der Code:
Private Sub cmdOKNeu_Click()
Dim x As Byte
With txtAdrNeu
.SelStart = 0: .SelLength = 250 'Text in Textbox markieren
.Copy 'Markierung in Zwischenablage Kopieren
End With
x = 1 'Zeilen
While x <= 255
Cells(x, 1).Activate 'Zelle aktivieren
If Cells(x, 1) = "" Then 'Schleife bis leere Zelle gefunden ist
ActiveSheet.Paste 'Aus zwischenablage einfügen
frmAdressbuch.txtAdresse.Paste 'Neuen Datensatz in Userform1 eintragen
Unload Me
Exit Sub
Else
x = x + 1 'Zähler
End If
Wend
End Sub
Anzeige