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"