Hallo zusammen,
ich suche mir jetzt schon seit Stunden einen Wolf...
Ich habe ein Endlosformular mit sämtlichen deutschen Postleitzahlen auf dem über eine Checkbox ausgewählt wird, ob ein Anbebot in der PLZ angeboten werden soll.
Also:
Postleitzahlengebiet Angebot_ja#
72336 x
72458
72459 x
...
In einer Abfrage Filter ich auf den Wert ,,ja" der Checkbox. Somit werden mir nur die in Frage kommenden PLZ angezeigt.
Also:
72336
72459
...
Nun muss ich die mit ,,ja" gewählten Postleitzahlen in eine Excel überführen. Hier ist das Problem, dass alle Postleitzahlen in ein Feld mit ,,Komma getrennt" exportiert werden müssen.
also: 72336, 72459, ...
Wie bekomme ich es jetzt hin, dass die gefilterten Postleitzahlen die in der Abfrage untereinander stehen ALLE in einem Feld mit einer ,,Kommatrennung" stehen?
Für eure Hilfe und Mühe schon vielen Dank
im Voraus!
Ich habe mal einen Text veröffentlich, der zeigt, wie du Daten eines Feldes als kommagetrennte Liste ausgeben (https://codekabinett.com/rdumps.php?targetDoc=access-vba-daten-spalte-kommagetrennt-ausgeben) kannst.
Ansonsten gibt es noch das häufig genannte Beispiel SQLListe (https://dbwiki.net/wiki/VBA_Tipp:_Liste_per_SQL_aufbauen).
alternativ ein kurzes Script das nicht alle Eventualitäten abdeckt.
Sub StringAusAbfrage()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim str As String
Set db = CurrentDb()
Set rs = db.OpenRecordset("qryDeineAbfrage", dbOpenDynaset)
Do While Not rs.EOF
str = str & rs!DeineSpaltenbezeichnung & ","
rs.MoveNext
Loop
Debug.Print str
End Sub
VIELEN DANK für eure Hilfe!