Datum

Titel

18.04.2024 21:09:11

4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren

18.04.2024 20:45:35

Worksheet_Activate für alle Sheets

18.04.2024 19:30:20

VBA - Tabelle mit Mannschaftsergebnissen sortieren

18.04.2024 18:04:29

Formel fehler Wert#

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

580to584

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

Inhalt einer Listbox in eine Textdatei schreiben

Forumthread: Inhalt einer Listbox in eine Textdatei schreiben
6 Beiträge zu diesem Forumthread
Anzeige
302 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Excel Dialoge
Top 100 Forumthreads

04.03.2005 11:29:17

Tobias

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

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Inhalt einer Listbox in eine Textdatei schreiben

04.03.2005 11:37:32

bst
AW: Inhalt einer Listbox in eine Textdatei schreib

04.03.2005 11:45:20

Tobias
AW: Inhalt einer Listbox in eine Textdatei schreib

04.03.2005 11:52:26

bst
AW: Inhalt einer Listbox in eine Textdatei schreib

04.03.2005 11:57:05

Tobias
AW: Inhalt einer Listbox in eine Textdatei schreib

04.03.2005 12:46:22

bst
Danke, hat geklappt (o.T.)!

07.03.2005 08:37:18

Tobias

AW: Inhalt einer Listbox in eine Textdatei schreiben

04.03.2005 11:37:32

bst

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

AW: Inhalt einer Listbox in eine Textdatei schreib

04.03.2005 11:45:20

Tobias

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

AW: Inhalt einer Listbox in eine Textdatei schreib

04.03.2005 11:52:26

bst

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

AW: Inhalt einer Listbox in eine Textdatei schreib

04.03.2005 11:57:05

Tobias

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

AW: Inhalt einer Listbox in eine Textdatei schreib

04.03.2005 12:46:22

bst

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