Datei öffnen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Sepp,
danke für deine schnelle Antwort.
Wo genau finde ich die Online-Hilfe?
Hier aber auch mein Code (ich habe den Gedanken, dass nach "Application.Dialogs(xlDialogOpen).Show"
der entsprechende Befehl eingefügt werden müsste und dann alles okay ist - naiv?)


Sub Makro7()
' Makro7 Makro
' Makro am 02.02.2008 von   aufgezeichnet
' Tastenkombination: Strg+a
Marke1:
Application.Dialogs(xlDialogOpen).Show
Sheets(1).Select
Cells.Find(What:="Bindefristende", After:=ActiveCell, LookIn:=xlFormulas _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Columns("A:A").EntireColumn.Select
Selection.NumberFormat = "0"
ActiveCell.Offset(1, -1).Range("A1").Select
Cells.Find(What:="Bindefristende", After:=ActiveCell, LookIn:=xlFormulas _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
'Hier das Datum als Zahl eingeben
Selection.AutoFilter Field:=25, Criteria1:=">=39083", Operator:= _
xlAnd, Criteria2:="

Hallo Sepp,
nochmal danke für deinen Einsatz am Sonntag.
Ich geb zu es ist echte Bastelei, aber der Code macht fast das was ich will.
Also ich versuchs nochmal:
Nach "Marke1:
Application.Dialogs(xlDialogOpen).Show
offne ich die erste Datei von ca 400 Stück, die in dem Fenster angezeigt werden.
Danach wird der Rest des "Gruselcodes" abgearbeitet bis wieder die Dialogbox mit den Dateien angezeigt wird und ich öffne die nächste Datei per Doppelklick und so geht es dann weiter.
Die eigentliche Aufgabe ist: die Datei öffnen, ab Spalte "B" alles zu kopieren, es in einer Gesamtdatei an den bereits bestehenden Inhalt an zu fügen, die Datei aus der rauskopiert wurde wieder zu schließen (ohne zu speichern) und anschließend das Gleiche mit der nächsten Datei zu tun, bis alle Dateien in dem Ordner abgefragt wurden.

Sub Makro4() ' Makro4 Makro ' Tastenkombination: Strg+z Marke1: Application.Dialogs(xlDialogOpen).Show Range(Selection, Selection.End(xlDown)).Select Range(Selection, Selection.End(xlToRight)).Select Selection.Copy Windows("Mappe4").Activate ActiveSheet.Paste Application.CutCopyMode = False Selection.End(xlDown).Select ActiveCell.Offset(1, 0).Range("A1").Select Windows("test.xlsm").Activate ActiveCell.Select ActiveWorkbook.Close GoTo Marke1 End Sub

Beliebteste Forumthreads (12 Monate)

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread