Folgende Abfrage in Excel:
Sub db_zugriff()
With ActiveSheet.QueryTables.Add(Connection:=Array(„ODBC;DSN=xxx;UID=xxx:stuck_out_tongue_winking_eye:WD=xxx“), Destination:=Rows(„1:1“))
.CommandText = Array(„SELECT column_name FROM cols WHERE table_name = ‚ADRESSEN‘“)
.FieldNames = False 'Überschrift wird nicht mit ausgegeben
.Refresh
End With
End Sub
Als Ergebnis wird in Spalte A geschrieben (also hier: Name, Vorname, Ort, Strasse untereinander), da ja aus Tabelle ‚cols‘ es so herausgezogen wird.
Wie kann das Ergebnis der Abfrage in Zeile 1 gebracht werden? Also Name, Vorname, Ort, Strasse nebeneinander.
Vielen Dank für die Hilfe
mlyxs
Als Ergebnis wird in Spalte A geschrieben (also hier: Name,
Vorname, Ort, Strasse untereinander), da ja aus Tabelle ‚cols‘
es so herausgezogen wird.
Wie kann das Ergebnis der Abfrage in Zeile 1 gebracht werden?
Also Name, Vorname, Ort, Strasse nebeneinander.
Hallo mlyxs,
zeichne dir ein makro auf während du untereinanderstehende zellen in A mittels Daten–Text in Spalten umwandelst.
Dann baue den Code in dein Makro unten ein.
Gruß
Reinhard
Hallo Reinhard,
vielen Dank für die Anregung, hier habe ich daraus die Lösung geschrieben:
Sub tabelle2_befuellen()
'Blatt Tabelle2 mit Inhalt Tabelle1 befüllen
Dim i As Integer
For i = 1 To 4
Sheets(„Tabelle1“).Select
Cells(i, 1).Select
Application.CutCopyMode = False
Selection.Copy
Sheets(„Tabelle2“).Select
Cells(1, i).Select
ActiveSheet.Paste
Next
End Sub
Gruß mlyxs
vielen Dank für die Anregung, hier habe ich daraus die Lösung
geschrieben:
Hallo Mlyxs,
ich dacht mehr an sowas:
Sub Makro1()
Worksheets(„Tabelle1“).Range(„A1:A5“).Copy
Worksheets(„Tabelle2“).Range(„A1“).PasteSpecial Transpose:=True
End Sub
Gruß
Reinhard