Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
18.04.2024 17:45:21
Shellkommando ausführen, stderr auslesen
18.04.2024 17:41:41
Summe: Bestimmter Bereich mit sverweis
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
596to600
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
596to600
596to600
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Variablen Bezug

Variablen Bezug
13.04.2005 14:59:28
Winni
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Variablen Bezug
13.04.2005 15:24:19
Martin
Hallo Winni,
kopiere das komplette Makro mal hier rein (nicht in eine Worddatei).
Gruß
Martin Beck
AW: Variablen Bezug
13.04.2005 15:46:35
Winni
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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige