Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon Tutto_Retro vom 09.01.2021, 10:16 Options

Per Makro Formel einfügen in Tabellenblätter?

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

Antwort schreiben

Antwort 1 von Beverly vom 09.01.2021, 12:15 Options

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

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Tipp einschicken

News einschicken