Externen Datensatz in TextBox einfügen

Hallo,
Nachdem ich Ihr mir schon einmal sehr geholfen habt, versuche ich es noch einmal:
Ein Datensatz wird aus einer Datenbank (keine Access-Datenbank) ins Clipboard kopiert, danach in Excel eine UserForm mit einer TextBox geöffnet, die den Datensatz aufnehmen und danach an ein Excel-Tabellenblatt übergeben soll.
Mit dem ShortCut Strg/V ist das kein Problem, den Datensatz aus dem Clipboard in die TextBox einzufügen. Der Datensatz wird danach von der TextBox wie von mir gewünscht in Excel dargestellt.
Meine Frage: Kann man mit einem Code (über einen CommandButton ausführbar) den Datensatz aus dem Clipboard in die Textbox kopieren ?
Ich habe schon einiges probiert, aber alles ohne Erfolg.
Vielen Dank
Wolfgang

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo,
Vielen Dank an die beiden Helfer - Es funktioniert (es ist kein Bild in diesem Datensatz enthalten) ! Nur jetzt (bei mir zu Hause am PC) gelingt das Einfügen aus der TextBox in das Excel-Sheet nicht. "Reagiert" VBA bzw. Excel unterschiedlich ? Kann ja nicht sein.
Der (recht primitive) Code dafür:


Private Sub CommandButton1_Click()
Sheets("Tabelle1").Select
Range("A30:G20").ClearContents  'Zellbereich für die Aufnahme neuer Daten leeren
TextBox1.Cut                                  'Datensatz ins Clipboard und TextBox leeren
Range("A30").Select
ActiveSheet.Paste                          'Datensatz in A30 einfügen
Range("A30").Select
Unload UserForm
End Sub

Hier das Beispiel eines meiner Datensätze:
ETOS-Nr.: 3313 / 2007 - Sequenz: B 2007 11 14
Vgl.matrix: keine
Peakstör. bei: GLYCERIN
Best. nicht mögl.
GEHALT VB innerh. Trenn. im Arb.ber.:
ANALYT [GHT] [GHT] WHGn. 0,5 -1 -2
MANNITOL 0 + + / + GLUCOSE (7) + + / + > OG > OG
SACCHAROSE 2,8 +/- 2,6 + + / + ++ ++
FRUCTOSE 4 +/- 1,5 + + / + +++ +++
MALTOSE (1) + + / +
Ich bin kein begnadeter Programmierer. Vielleicht geht es ja auch ohne den Umweg über UserForm/Textbox (ich kann aber die User nicht direkt in das Excel-Sheet schreiben lassen).
Vielleicht hat gibt es etwas besseres als den von mir geschriebenen Code.
Vielen Dank
Wolfgang

Private Sub CommandButton1_Click() With Sheets("Tabelle1") .Range("A30:G20").ClearContents 'Zellbereich für die Aufnahme neuer Daten leeren .Range("A30") = Textbox1 End With Unload UserForm End Sub

Beliebteste Forumthreads (12 Monate)

Externen Datensatz in TextBox einfügen

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Externen Datensatz in TextBox einfügen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread