VBA Datei Name

Sub AVx_Daten() Application.ScreenUpdating = False Application.DisplayAlerts = False Workbooks.Open Filename:= _ "xxxxxxx.xlsm" ActiveSheet.Range("$A$1:$W$1636").AutoFilter Field:=22, Criteria1:="lila" ActiveSheet.Range("$A$1:$W$1636").AutoFilter Field:=9, Criteria1:= _ "=beauftragt", Operator:=xlOr, Criteria2:="=freigegeben" Range("A22:W22").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Windows("yyyyyyyyyy.xlsm").Activate Sheets("offene Aufträge").Visible = True Sheets("offene Aufträge").Select Range("A5").Select ActiveSheet.Paste Windows("Datenbankliste_AVx.xlsm").Activate ActiveWorkbook.Close False Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: VBA Datei Name

01.06.2018 09:16:28

Hajo_Zi

AW: ein Beispiel

01.06.2018 09:21:12

Fennek

AW: zu langsam (owT)

01.06.2018 09:23:22

Fennek

AW: VBA Datei Name

01.06.2018 17:10:59

mmat

AW: VBA Datei Name

03.06.2018 19:15:35

Monal

Die meisten bauen Deine Datei nicht nach. Die Zeit hat schon jemand investiert.
Ein Nachbau sieht meist anders aus als das Original. Darum sollte das Original verlinkt werden.
Die meisten möchten es am Original testen um den gleichen Fehler zu erhalten.
Der Name einer hochgeladenen Mappe wird im Beitrag automatisch angezeigt, sodass es bei Verwendung von aussagekräftigen Namen leichter fällt, sie später im Ablageordner wiederzufinden und sie gedanklich einem bestimmten Thema zuzuordnen. Namen wie Muster*, Test*, Mappe*, Beispiel*, Fehler*, Kalender*, UserForm* usw. sind so allgemein, dass eine Zuordnung zu einem Thema unmöglich gemacht wird.
Es sollte ein aussagekräftiger Name sein.
Benutze hier im Forum die Funktion zum hochladen. Falls Du die nicht benutzen möchtest beachte, von unsicheren Servern wie z.B. www.file-upload.net lade ich keine Datei runter. (lt. Einschätzung meines Virenprogramms)

Sub AVx_Daten()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Workbooks.Open Filename:= _
"xxxxxxx.xlsm"
Range("$A$1:$W$1636").AutoFilter Field:=22, Criteria1:="lila"
Range("$A$1:$W$1636").AutoFilter Field:=9, Criteria1:= _
"=beauftragt", Operator:=xlOr, Criteria2:="=freigegeben"
Range(Range("A22:W22"), Range("A22:W22").End(xlDown)).Copy _
Windows("yyyyyyyyyy.xlsm").Sheets("offene Aufträge").Range("A5").Select
ActiveWorkbook.Close False
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.

sub AVx_Daten() dim WB as workbook DateiName = "xxxx.xlxm" set wb = workbooks.open(DateiName) 'ohne Windows.activate 'z.B. 'wb.sheets("offene Aufträge").Range("A5").copy thisworkbook.sheets("irgendeins").cells(5,2) wb.close 0 (ohne Speichern) end sub

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Datei Name

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread