weiß wieder mal nicht weiter.
Hab eine Vorlage für Zeiterfassung erstellt. Diese Liste ist für 30 Personen gedacht.
Für jede Person gibt es einen Reiter.
ABER: In einem Reiter befindet sich für jede Person extra, ein Formular (also 30).
Jetzt das eigentliche Problem.
Die Formeln mit den Bezüge für die erste Person ist einfach.
(Hab ich ja bei der Erstellung sowieso machen müssen).
Das Vorlagenblatt wird nun kopiert. Jedoch muss ich jetzt natürlich die Bezüge
für das Formular der jewiligen Person zuordnen.
Heißt in meinem Fall.
Habs sogar ausgerechnet: pro Blatt 647 mal den Tabellennamen ändern.
Bis Fertigstellung also 18763 mal.
Hab schon in den Foren nachgelesen und bin dabei natürlich über
die Funktion INDIREKT gestolpert.
Ist aber anscheinend bei so vielen Formeln nicht unbedingt empfehlenswert, wegen
der dauernden "Wiederberechnung".
Suchen und Ersetzen funkioniert auch nicht wirklich.
So dann bin ich über folgenden VBA Code gestolpert.
Sub string_aus_formel()
'raus = "Ma 01" zu ersetzender String
'rein = "Ma 02" einzufügender String
For Each cell In Selection
If cell.HasFormula = True Then
cell.Formula = Application.WorksheetFunction.Substitute(cell.Formula, raus = "Ma 01", _
rein = "Ma 02")
End If
End Sub
Funktioniert aber nicht. Doch eher bekomme ich es mit meinen sehr dürftigen VBA-Kenntnissen nicht hin.
Zum Verständnis eine der Formeln die ich x-mal ändern möchte (müsste):
=WENNFEHLER(WENN('Ma 01'!$AL$36="Ja";1;WENN(AC18>=0;KGRÖSSTE(('Ma 01'!$AL$20:$AO$21; 'Ma 01'!$AL$23:$AO$24;'Ma 01'!$AL$26:$AO$27;'Ma 01'!$AL$29:$AO$30);1);""));"")
Vielleicht kann mir jemand helfen.
Sonst stell ich mich mal auf eine lange Zeit beim Formeländern ein ;-)!
LG Andi!