AW: Per VBA bestimmte Zellen mit Formel Füllen
08.12.2011 16:15:04
Benjamin
Hab es jetzt wie folgt gemacht.
Aber er kopiert mir leider nix von a9 nach a131 und so weiter
Modul1
Sub Zusammen()
On Error GoTo Fehler
For i = 5 To 1000 'Ab Zeile 5 bis Zeile 1000
Pfad = Cells(i, 1) 'Dateiname
If Cells(i, 1).Value = "" Then 'wenn Zeile = leer, dann ist er fertig
GoTo OK
Else
Workbooks.Open (Pfad) 'öffnet den Pfad aus Excel
End If
Call Modul2.Funktionen_Anpassen 'dein Makro, welches nach dem öffnen ausgeführt werden soll
ActiveWorkbook.Close savechanges:=True 'Schließt das Workbook und speichert die Änderungen
Next i 'Nimmt die nächste Datei
GoTo OK
Fehler:
MsgBox "Es ist ein Fehler aufgetreten."
OK:
MsgBox "Ihre Daten wurden erfolgreich aktualisiert."
End Sub
Sub Funktionen_Anpassen() 'Das Makro, welches nach dem öffnen ausgeführt wird
MsgBox "Das Makro 'test' wurde ausgeführt."
End Sub
Modul 2
Option Explicit
Sub Funktionen_Anpassen()
'Kopiert Formeln/Funktionen von Zellen in andere Zellen
Dim strZ As String, lngz As Long, rngZ, rngQ
'Folgende Zeile bedeutet : Formel in A9 wie in W9, in A130 wie in W130 etc.
'Wichtig : Zellen immer durch = getrennt, Bereiche immer durch Komma (,)
strZ = "A9=W9,A9=A130,A130=A251,A251=A372,A372=A493,A493=A614,A614=A735,A735=A856,A856=A977, _
_
_
_
_
A977=A1098,A1098=A1219,A1219=A1340;A1340=A1461,A1461=A1582,A1582=A1703,A1703=A1824,A1824=A1945, _
_
_
_
A1945=A2060,A2060=A2187,A2187=A2308,A2308=A2429,A2429=A2550,A2550=A2671,A2671=A2792,A2792=A2913, _
_
_
A2913=A3034,A130=W130,A251=W251,A372=W372,A493=W493,A614=W614,A735=W735,A856,W856,A977=W977, _
A19098=W1098,A1219=W1219,A1340=W1340,A1461=W1461,A1582=W1582,A1703=W1703,A1824=W1824,A1945= _
W1945,A2060=W2060,A2187=W2187;A2308=W2308,A2429=W2429,A2550=W2550,A2671=W2761,A2792=W2792,A2913=W2913,A3034=W3034"
rngQ = Split(strZ, ",")
For lngz = LBound(rngQ) To UBound(rngQ)
rngZ = Split(rngQ(lngz), "=")
Range(rngZ(LBound(rngZ))).Formula = Range(rngZ(UBound(rngZ))).Formula
Next
End Sub
aber er macht nix und bricht dann bei der 2. Datei ab nachdem er sie geöfnet hat.
kann dies an dem Passwort auf den einzelnen Blättern liegen
oder muss ihm noch gesat werden welches Blat er nehmen soll wenn er die Datei öffnet
und wie mach ich es, dass er mene Formel zu erst in A9 anlegt und dann kopiert