Per Makro Formel einfügen in Tabellenblätter?

Question

Hallo zusammen

Ich brauche eure Hilfe.

Ich habe eine Vorlage mit verschiedenen Tabellenblätter jetzt habe ich di Vorlage angepasst mit neuen Formeln. Jetzt ist das Problem das es Personalblätter sind mit Daten drin von diesen haben wir ca 120 Dateien haben.

ich muss jetzt bei allen von Hand öffnen und die neuen Formel einfügen zur Zeit sind bei den alten blätter in den Zellen noch keinen Wert vorhanden.

Wer kann mir Helfen einen Code zu erstellen vo ich die Formel automatisch einfügen kann in alle Dateien!

Angaben:

Tabellenblatt heisst: Personalblatt
Neue Daten sind in der Zelle. R1 bis R8
Das Tabellenblatt hat den Blattschutz drin aber ohne Kenwort und es sollte nach dem einfügen wieder aktiviert werden

Die Daten sind alle im Ordner C:/Personalverwaltung/

Dank im vorraus

Answer 1

Hi,

versuche es mal mit diesem Code

Sub FormelnEintragen()
Dim strDateiname As String
Application.ScreenUpdating = False
strDateiname = Dir("C:\Personalverwaltung\*.xls")
Do While strDateiname <> ""
Workbooks.Open Filename:="C:\Personalverwaltung\" & strDateiname
With ActiveWorkbook
.Worksheets("Personalblatt").Unprotect
.Worksheets("Personalblatt").Range("R1:R8").FormulaLocal = "=WENN(A1=""Hallo"";"""";A1)" '<== Formel anpassen!
.Close True
.Worksheets("Personalblatt").Protect
End With
strDateiname = Dir
Loop
Application.ScreenUpdating = True
End Sub

Hinweis: lege dir vorher zur Sicherheit eine Kopie deiner Arbeiotsmappen an!

Bis später,
Karin