Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Über VBA Tabellenzeilen zu einem Text verketten.
zurück: Suche Hilfe für eine Access DB um PC -Spiele zu verwalten weiter: MS Access 2007 Sperre(n)? Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
DonMiguel
Im Profil kannst Du frei den Rang ändern


Verfasst am:
29. Apr 2010, 12:44
Rufname:

Über VBA Tabellenzeilen zu einem Text verketten. - Über VBA Tabellenzeilen zu einem Text verketten.

Nach oben
       Version: Office 2k (2000)

Ich habe folgendes Problemchen:

Eine Tabelle namens RDY

4 Spalten namens

Teil1 Teil2 Teil3 Teil4
Hallo | das | istn | Test

Jetzt möchte ich in VBA das die Daten des Feldes untereinander in eine Textdatei geschrieben weren. die Textdatei muss die Endung .mac haben.

Herauskommen soll dabei eine Textdatei die so aussieht:

Hallo
das
istn
Test

Wie mache ich sowas?
Gast



Verfasst am:
29. Apr 2010, 12:58
Rufname:


AW: Über VBA Tabellenzeilen zu einem Text verketten. - AW: Über VBA Tabellenzeilen zu einem Text verketten.

Nach oben
       Version: Office 2k (2000)

Hallo,
bevor du loslegst solltest du überlegen, ob der Tabellenaufbau so optimal ist?
Besteht die (theoretische) Möglichkeit, dass es einen Teil5 geben kann, schreibe die Daten nicht in Spalten sondern in Datensätze.
Eine andere Frage ist, ob es evtl. verschiede Arten (Datensätze) von Teil 1 geben kann.

In Abhängigkeit davon wäre dann DLookUp() oder die Arbeit mit einem Recordset sinnvoll.

Gruß Mike
DonMiguel
Im Profil kannst Du frei den Rang ändern


Verfasst am:
29. Apr 2010, 13:08
Rufname:

AW: Über VBA Tabellenzeilen zu einem Text verketten. - AW: Über VBA Tabellenzeilen zu einem Text verketten.

Nach oben
       Version: Office 2k (2000)

Es handelt sich doch dabei um Datensätze. Ja es könnte die möglichkeit geben 5 Teile oder mehr zu haben. Teil1 - 5 Ist einfach nur die Tabellenüberschrift. Der Textinhalt soll einfach dann untereinander geschrieben werden. das ist alles. Hast du die Frage falsch Verstanden oder ich die Antwort?
Gast



Verfasst am:
29. Apr 2010, 13:18
Rufname:

AW: Über VBA Tabellenzeilen zu einem Text verketten. - AW: Über VBA Tabellenzeilen zu einem Text verketten.

Nach oben
       Version: Office 2k (2000)

Hallo,
Zitat:
Es handelt sich doch dabei um Datensätze
Was nun ein oder mehrere Datensätze? Bei mehreren müsstest du ja entscheiden, welchen der Datensätze du zusammenfassen willst. Oder sollen alle Datensätze ausgeschrieben werden!?

Zitat:
Ja es könnte die möglichkeit geben 5 Teile oder mehr zu haben.
Dann wäre der Tabellenaufbau falsch im Sinne einer relationalen Datenbank.
Willst du die DB nur als Einzel-bastel-Lösung? Dann wäre das ok, aber denke daran du musst den Code jedesmal ändern, falls eine Spalte hinzukommt.

Ansonsten hier schon mal der passende Link: Wie greife ich in VBA auf die Werte einer Tabelle/Abfrage zu?

Gruß Mike
DonMiguel
Im Profil kannst Du frei den Rang ändern


Verfasst am:
29. Apr 2010, 14:03
Rufname:


AW: Über VBA Tabellenzeilen zu einem Text verketten. - AW: Über VBA Tabellenzeilen zu einem Text verketten.

Nach oben
       Version: Office 2k (2000)

Achsoo jetzt habe ich verstanden was du meinst.

Ja okay ^^ es sollen mehrere Datensätze ausgelesen werden und zwar immer in dieser reihenfolge

Datensatz 1
Teil1
Teil2
Teil3
Teil4
Teil5

Datensatz 2
Teil1
Teil2
Teil3
Teil4
Teil5

Datensatz 3
Teil1
Teil2
Teil3
Teil4
Teil5

USW USW ähnlich wie beim Seriendruck in word.
Gast



Verfasst am:
29. Apr 2010, 14:39
Rufname:

AW: Über VBA Tabellenzeilen zu einem Text verketten. - AW: Über VBA Tabellenzeilen zu einem Text verketten.

Nach oben
       Version: Office 2k (2000)

Hallo,
ja und wie bist du mit dem Link klargekommen Wink .

Aber du willst vermutlich ein "Rundumsorglospaket":
Code:
Option Compare Database
Option Explicit

Sub xxx()
    Const DatName = "c:\...\test.mac"
    Dim rs As DAO.Recordset ' Verweis auf Microsoft DAO x.x setzen
    Dim fld As DAO.Field
    Dim oDatNum As String
   
    Set rs = CurrentDb.OpenRecordset("SELECT * FROM DeineTabelle")
    rs.MoveFirst
    oDatNum = FreeFile
    Open DatName For Output As oDatNum
    While Not rs.EOF
        For Each fld In rs.Fields
            Print #oDatNum, fld.Value
        Next
        Print #oDatNum, ""
        rs.MoveNext
    Wend
    rs.Close
    Close oDatNum
End Sub

Gruß Mike
DonMiguel
Im Profil kannst Du frei den Rang ändern


Verfasst am:
12. Mai 2010, 11:48
Rufname:

AW: Über VBA Tabellenzeilen zu einem Text verketten. - AW: Über VBA Tabellenzeilen zu einem Text verketten.

Nach oben
       Version: Office 2k (2000)

DonMiguel am 30. Apr 2010 um 09:03 hat folgendes geschrieben:
Danke Mike. Wink Ich probiers heut mal aus.

XD Mike? aus dem heute wurde.. naja heute.

Ich habe es ausprobiert aber er meldet mir die fehlermeldung
Zitat:
Benutzerdefinierter Typ nicht definiert
in zeile
Code:
    Dim rs As DAO.Recordset ' Verweis auf Microsoft DAO x.x setzen
Gast



Verfasst am:
12. Mai 2010, 11:52
Rufname:

AW: Über VBA Tabellenzeilen zu einem Text verketten. - AW: Über VBA Tabellenzeilen zu einem Text verketten.

Nach oben
       Version: Office 2k (2000)

Hallo,
Zitat:
Dim rs As DAO.Recordset ' Verweis auf Microsoft DAO x.x setzen
VBA-Editor -> Extras -> Verweise -> Microsoft DAO x.x

Gruß Mike
DonMiguel
Im Profil kannst Du frei den Rang ändern


Verfasst am:
12. Mai 2010, 13:25
Rufname:

AW: Über VBA Tabellenzeilen zu einem Text verketten. - AW: Über VBA Tabellenzeilen zu einem Text verketten.

Nach oben
       Version: Office 2k (2000)

Microsoft DAO x.x kann ich nicht unter verweisen finden.... komisch. (Ja hast recht hat was mit meinem neuen post zu tun hab es noch alternativ gelöst, aber wie gesagt das export problem *G* =) du machst nen echt klasse job im forum)
Gast



Verfasst am:
12. Mai 2010, 13:35
Rufname:

AW: Über VBA Tabellenzeilen zu einem Text verketten. - AW: Über VBA Tabellenzeilen zu einem Text verketten.

Nach oben
       Version: Office 2k (2000)

Hallo,
Zitat:
Microsoft DAO x.x kann ich nicht unter verweisen finden.... komisch
Das kann ich mir nicht vorstellen Confused
Dass x.x durch Zahlen zu ersetzen ist (3.5 oder 3.6) ist hoffentlich klar.

Gruß Mike
DonMiguel
Im Profil kannst Du frei den Rang ändern


Verfasst am:
12. Mai 2010, 13:47
Rufname:


AW: Über VBA Tabellenzeilen zu einem Text verketten. - AW: Über VBA Tabellenzeilen zu einem Text verketten.

Nach oben
       Version: Office 2k (2000)

Verdammt du hast recht es ist in der ... liste. ganz oben und natürlich nicht alphabetisch sortiert ^^ Dann funktioniert dein code!

Hmmm würde mich trotzdem interessieren, ob es auf die andere weise auch noch funktioniert...

Trotzdem vielen Dank für die Hilfe und vor allem für die Geduld!
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: in Memo bestimmten Text suchen und Anzahl anzeigen 2 remote1 688 05. Aug 2007, 14:31
remote1 in Memo bestimmten Text suchen und Anzahl anzeigen
Keine neuen Beiträge Access Tabellen & Abfragen: Zahlen vom Text im Feld trennen 3 SteffenB 3225 19. Jul 2007, 11:12
Gast Zahlen vom Text im Feld trennen
Keine neuen Beiträge Access Tabellen & Abfragen: Text suchen in Tabelle soll Abfrage beeinflussen 0 leenas 470 12. Jul 2007, 14:48
leenas Text suchen in Tabelle soll Abfrage beeinflussen
Keine neuen Beiträge Access Tabellen & Abfragen: nur gefüllte Zellen in Abfrage verketten 6 Gast aus dem Norden 1199 31. Mai 2007, 13:56
Gast aus dem Norden nur gefüllte Zellen in Abfrage verketten
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage per VBA in Text darstellen 8 Reaver01 773 07. Mai 2007, 10:17
Reaver01 Abfrage per VBA in Text darstellen
Keine neuen Beiträge Access Tabellen & Abfragen: mehrere Zeilenwerte per Abfrage in einer Zeile verketten 5 missionhro 1705 28. März 2007, 11:47
blicki mehrere Zeilenwerte per Abfrage in einer Zeile verketten
Keine neuen Beiträge Access Tabellen & Abfragen: text -> zahl formatierung 7 archit.ten 4019 25. Jan 2007, 16:00
sql text -> zahl formatierung
Keine neuen Beiträge Access Tabellen & Abfragen: A2k, text in datum umwandeln und jahr aus datum extrahieren 4 Domainhunter 3107 18. Aug 2006, 11:14
Domainhunter A2k, text in datum umwandeln und jahr aus datum extrahieren
Keine neuen Beiträge Access Tabellen & Abfragen: Text anzeigen wenn Zahl ein- oder zweistellig ist 1 Rainer Ratlos 1208 10. Aug 2006, 14:39
Krolligwsw Text anzeigen wenn Zahl ein- oder zweistellig ist
Keine neuen Beiträge Access Tabellen & Abfragen: Typumwandlung von Text in Datum 4 Kath 977 17. Jul 2006, 10:06
Kath Typumwandlung von Text in Datum
Keine neuen Beiträge Access Tabellen & Abfragen: Text in Zahl in der Abfrage umwandeln? 6 Gast 32086 07. Feb 2006, 14:46
Gast Text in Zahl in der Abfrage umwandeln?
Keine neuen Beiträge Access Tabellen & Abfragen: Text in Dezimalzahl umwandeln in A2k 2 azwinzds 2309 07. Dez 2005, 14:44
azwinzds Text in Dezimalzahl umwandeln in A2k
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Project