Variablen Bezug

Bild

Betrifft: Variablen Bezug von: Winni
Geschrieben am: 13.04.2005 14:59:28

Hallo lieb Forumsmitglieder,

ich komme wieder mal nicht weiter. Ich habe mir mit dem Recorder ein Macro erstellt welches mir aus der Datei "Mahnungen" alle Mahnungen zum einem fixen Kunden in ein Tabellenblatt importiert. Nun würde ich es gerne so einrichten, dass ich den Kunden variabel angeben kann.

Zum besseren Verständnis habe ich das Makro mal in ein Worddoc. gepackt.

https://www.herber.de/bbs/user/21098.doc

Vielleicht hat jemand aus dem Forun eine Idee ................


Gruß und Dank im Voraus

Winni

Bild


Betrifft: AW: Variablen Bezug von: Martin Beck
Geschrieben am: 13.04.2005 15:24:19

Hallo Winni,

kopiere das komplette Makro mal hier rein (nicht in eine Worddatei).

Gruß
Martin Beck


Bild


Betrifft: AW: Variablen Bezug von: Winni
Geschrieben am: 13.04.2005 15:46:35

Hallo Martin Beck,

meinst du so ? :

Sub DatenAusMahnliste_importieren()
'
' Makro2 Makro
' Makro am 27.02.2004 von Augustin, Winfried aufgezeichnet
'

'


Range("A5").Select
With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
"ODBC;DSN=Excel-Dateien;DBQ=S:\M&V\Vertriebscontrolling\Berichte&Auswertungen\Reporting_SaF\Reporting_VAD\Mahnungen\Mahnungen_aktuell" _
), Array( _
".xls;DefaultDir=S:\M&V\Vertriebscontrolling\Berichte&Auswertungen\Reporting_SaF\Reporting_VAD\Mahnungen;DriverId=790;MaxBufferS" _
), Array("ize=2048;PageTimeout=5;")), Destination:=Range("A5"))
.CommandText = Array( _
"SELECT `mahnliste_24_Gesamt$`.Konto, `mahnliste_24_Gesamt$`.Kunde, `mahnliste_24_Gesamt$`.`Ansprechpartner GE`, `mahnliste_24_Gesamt$`.`Profit-Center`, `mahnliste_24_Gesamt$`.Belegnummer, `mahnliste_2" _
, _
"4_Gesamt$`.Buchungsdatum, `mahnliste_24_Gesamt$`.Betrag, `mahnliste_24_Gesamt$`.Währung, `mahnliste_24_Gesamt$`.Mahnstufe, `mahnliste_24_Gesamt$`.Text" & Chr(13) & "" & Chr(10) & "FROM `mahnliste_24_Gesamt$` `mahnliste_24_Gesamt" _
, _
"$`" & Chr(13) & "" & Chr(10) & "WHERE (`mahnliste_24_Gesamt$`.Konto=100252)" & Chr(13) & "" & Chr(10) & "ORDER BY `mahnliste_24_Gesamt$`.Mahnstufe" _
)
.Name = "Abfrage von Excel-Dateien_153"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True

End With


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Variablen Bezug"