Autofill/Datei Auswählen

Hallo!
ich habe folgendes problem:
xx Mappen mit xx Tabellenblättern mit Messwerten,
in jedem Tabellenblatt sollen nun einige Verarebitungen der Daten stattfinden und dort reingeschrieben werden.
nun brauche ich ein makro, welches aus einer Mappe wo sämtliche Buttons drin sind, durch klick auf einen dieser eine der Dateien öffnet, die veränderungen durchführt, speichert und schliesst.
Dabei soll die datei ausgewählt werden können.
das habe ich soweit:
ChDrive "XX:"
ChDir "XX"
myFile = Application.GetOpenFilename(FileFilter:="Microsoft Excel-Dateien (*.xls), *.xls", _
Title:="Bitte Datei auswählen", MultiSelect:=False)
Set myWKB = myFile
For Each Worksheet In myWKB
ActiveSheet.Range("I2").Select
ActiveCell.FormulaR1C1 = "=R[1]C[-8]-RC[-8]"
ActiveSheet.Range("I2").Select
Selection.AutoFill Destination:=Range("I2:I300"), Type:=xlFillDefault
ActiveSheet.Range("I2:I300").Select
Next
jedoch habe ich da mehrere Probleme:
-das auswählen will nicht klappen, ständig diverse fehler bei verschiedenen varianten
-das autofill klappt nicht (schreibt die erste zelle und hat dann einen fehler (1004 Autofill Method of Range Class Failed)
wäre super wenn mir da wer eine lösung aufzeigt :(
gruss,
Christian

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Christian,
bei Dir stimmen generell die Objekt-Zuordnungen zu den Objekt-Variablen nicht.
Der Auswahldialog gibt den Pfad+Namen der ausgewählten Datei als Ergebnis zurück.
Der Workbookvariablen muss du mit der Workbook.Open-Methode die entsprechende Arbeitsmappe zuordnen.
In der For-Next-Schleife über die Tabellenblätter der Datei solltest du auf die Select/Selection/ActiveCell verzichten und die Zellen-Objekte, in die die Formeln eingetragen werden sollen, mit voller Referenz angeben. Geht am einfachsten mit einer With-End-With-Anweisung für die Tabellenblätter.
Gruß
Franz

Sub aatest()
Dim myFile As Variant
Dim myWKB As Workbook, myWKS As Worksheet
ChDrive "XX:"
ChDir "XX:\TestPfad"
myFile = Application.GetOpenFilename(FileFilter:="Microsoft Excel-Dateien (*.xls), *.xls", _
Title:="Bitte Datei auswählen", MultiSelect:=False)
If myFile = False Then Exit Sub
Set myWKB = Application.Workbooks.Open(Filename:=myFile)
For Each myWKS In myWKB.Worksheets
With myWKS
.Range("I2").FormulaR1C1 = "=R[1]C[-8]-RC[-8]"
.Range("I2").AutoFill Destination:=.Range("I2:I300"), Type:=xlFillDefault
End With
Next
End Sub

Beliebteste Forumthreads (12 Monate)

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread