Inhalt einer Listbox in eine Textdatei schreiben

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
UserForm ListBox
Bild

Betrifft: Inhalt einer Listbox in eine Textdatei schreiben von: Tobias Marx
Geschrieben am: 04.03.2005 11:29:17

Hallo, nochmal ich!

Ich habe hier eine Listbox, in der verschiedene Eintraege vorhanden sind. Wie kann ich diese Eintraege in eine Textdatei schreiben, in der Form:

Eintrag 1
Eintrag 2
Eintrag 3
...
Eintrag n

Das ganze soll - wie oben dargestellt, nur durch einen simplen Return voneinander getrennt sein.

Gruss

Tobias

Bild


Betrifft: AW: Inhalt einer Listbox in eine Textdatei schreiben von: bst
Geschrieben am: 04.03.2005 11:37:32

Hallo Tobias,

versuch mal sowas ähnliches.

HTH, Bernd
--
Option Explicit

Sub WriteListBox()
   Dim handle As Integer
   Dim i As Integer
   
   handle = FreeFile
   Open "d:\daten\listbox.txt" For Output As #handle
   With ActiveSheet.OLEObjects("ListBox1").Object
      For i = 0 To .ListCount - 1
         Print #handle, .List(i)
      Next
   End With
   Close #handle
End Sub



Bild


Betrifft: AW: Inhalt einer Listbox in eine Textdatei schreib von: Tobias Marx
Geschrieben am: 04.03.2005 11:45:20

Die OleObjects-Eigenschaft des Worksheet-Objektes kann nicht zugeordnet werden - den Fehler krieg ich bei der Ausfuehtung :(

Gruss

Tobias


Bild


Betrifft: AW: Inhalt einer Listbox in eine Textdatei schreib von: bst
Geschrieben am: 04.03.2005 11:52:26

Hmm,

hatte Deine xl-Version 97 nicht beachtet, sorry. Habe hier xl2000.

- schau mal nach ob's ein OLEObject-Objekt in xl97 überhaupt gibt
- wo befindet sich Deine Listbox, in einer Tabelle oder in einer Userform ?
- Ist der Name dieses Teils denn auch ListBox1 ? Sonst mußt Du ihn anpassen.

cu, Bernd


Bild


Betrifft: AW: Inhalt einer Listbox in eine Textdatei schreib von: Tobias Marx
Geschrieben am: 04.03.2005 11:57:05

Also,

das OLEObject hab ich bei 97 auch, die Listbox ist auf ner UserForm (das wird das Problem sein) und die Listbox heisst ListBox3 (hatte ich aber schon abgeaendert)...

Danke erstmal fuer deine Antwort im Voraus, aber ich hab gleich Feierabend, deswegen wird erst am Montag weitergearbeitet :)

Gruss

Tobias


Bild


Betrifft: AW: Inhalt einer Listbox in eine Textdatei schreib von: bst
Geschrieben am: 04.03.2005 12:46:22

Hi Tobias,

stimmt. Mein Code sucht das Teil in der aktiven Tabelle.

In einer Userform ist es etwas einfacher.

Ersetze einfach das With ... mit "With ListBox3"

Leg's z.B. auf einen Button cmdPrintListe3 in der Userform, dann geht sowas.

Schönes Wochenende, Bernd
--
Private Sub cmdPrintListe3_Click()
   Dim handle As Integer
   Dim i As Integer
   
   handle = FreeFile
   Open "d:\daten\listbox.txt" For Output As #handle
   With ListBox3
      For i = 0 To .ListCount - 1
         Print #handle, .List(i)
      Next
   End With
   Close #handle
End Sub



Bild


Betrifft: Danke, hat geklappt (o.T.)! von: Tobias Marx
Geschrieben am: 07.03.2005 08:37:18

Gruss

Tobias


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Inhalt einer Listbox in eine Textdatei schreiben"