Office: Textbox ausdrucken über Zelle

Hallo

Es wäre sehr freundlich, wenn mir jemand, bei einer für mich nicht auflösbaren Situation, behilflich sein könnte. Da ich fast fertig bin, wurmt es mich ungemein, dass ich selber keine Lösung finde.

Ausgangslage:
Eine Excel-Userform (bestehend aus einer Multipage (4 Register) mit einer Vielzahl von Comboboxen / Textfeldern / Buttons) soll bei der Arbeitsverwaltung behilflich sein.
Auf der letzten Multipage-Seite dieser Userform wird eine Gesamtübersicht der Tätigkeiten in einer Textbox für den auswählbaren Monat im folgenden Stil erstellt:
Datum Tabstop ID-Vorgang Tabstop Vorname Nachname Zeilenumbruch
Tätigkeit Zeilenumbruch Zeilenumbruch
Jeder dieser "Blöcke" beinhaltet die zum Datum und Vorgang passenden Tätigkeiten. Es können (theoretisch) unzählig viele Blöcke untereinander stehen. Der Inhalt dieser Textbox wird dem User in Form eines ausgedruckten Dokumentes zu Verfügung gestellt.

Problem:
Ich habe leider keine Methode gefunden, dann Inhalt der Textbox direkt auf dem Drucker auszugeben (idealerweise über den Druckdialog).
Der Weg den Inhalt der Textbox in eine Zelle zu übertragen und diese dann auszudrucken scheitert daran, dass die Tabstops bei der Übertragung verloren gehen. Dadurch wird der Text in der Zeile extrem unübersichtlich.

Fragestellung:
Habe ich eine Möglichkeit übersehen, mit der ich eine Textbox direkt ausdrucken kann?
Wie kann ich den Inhalt der Textbox unter Beibehaltung der Formatierung in eine Zelle übertragen?

Vielen Dank *Smilie

P.S.
Wenn gewünscht, kann ich die Datei gerne zur Verfügung stellen, allerdings ist der Quellcode weder kommentiert noch sonderlich Pro-like da ich eher ein Noob bin.

:)

 

Wäre schon sinnvoll, wenn Du zumindest einen Snapshot der Darstellung mal hochladen würdest, damit man erkennt, wie das ganze dann aussehen soll.
Frage: Wie generierst Du denn diese TextBox? Kannst Du nicht genauso parallel ein Excelsheet befüllen und dieses drucken?

 

Hallo,

versuch es mal so:

Private Sub CommandButton1_Click()
Dim objDataObject As DataObject
Set objDataObject = New DataObject
Call objDataObject.SetText(Text:=TextBox1.Text)
Call objDataObject.PutInClipboard
DoEvents
Call Tabelle1.Paste(Destination:=Cells(2, 2)) ' Anpassen !!!
Set objDataObject = Nothing
End Sub

 

Hallo Nepomuk & Stefan

Vielen Dank für Eure Antworten.
Ich habe den Code versucht anzupassen, leider zerschießt mir dieser den Inhalt der Tabelle "Rohdaten" mit ?NAME Einträgen. Bin offensichtlich nicht schlau genug.

Ich habe die Datei mal hochgeladen, im Quellcode steht an der ersten Stelle (einziger auskommentierter Bereich) welche Bezüge gelten sollten. Und wie gesagt, der Code ist nicht unbedingt Top, eher noobig.

Danke!

P.S.
Ein Hinweis wie ich das hinkriegen könnte, sollte reichen. Möchte Euch nicht mein Projekt aufbürden.

 

Hallo,

so ok?

Private Sub ButTaeDru_Click()
Dim objDataObject As DataObject
Set objDataObject = New DataObject
Call objDataObject.SetText(Text:=TexArbC.Text)
Call objDataObject.PutInClipboard
DoEvents
Call Tabelle4.Paste(Destination:=Cells(1, 1))
Set objDataObject = Nothing
End Sub

 

Das sieht schon besser aus *Smilie
Allerdings scheint es ein Problem mit Sonderzeichen bzw. Umlauten zu geben. Dort scheint der Quellcode einen #NAME? Fehler zu erzeugen. Ist das nachvollziehbar?
Auf dem Bild links ist das Ergebnis des Quellcodes, rechts das zu druckende Textfeld.

 

Hallo,

setz mal in der gesamten Tabelle das Zellformat auf Text.

 

Juhuu, klappt super jetzt.

Musste noch eine Zeile zum Aktivieren der Tabelle einbauen, da er eine zuvor aktivierte Tabelle überschrieben hat, aber jetzt funktioniert es super.

Danke Dir *Smilie