10.11.2018, 10:32
Hallo didi
habs verstanden, der Aufbau der Tabelle laesst es nicht zu. Hier noch ein Makro zum kopieren von KW1 in die übrigen KW's.
Dürfte erheblich schneller gehen als alles von Hand zu kopieren.
@Frogger meine Idee die Formel CountA in Spalte G zu setzen ist ja nicht durchführbar. muss man akzeptieren.
mfg Gast 123
habs verstanden, der Aufbau der Tabelle laesst es nicht zu. Hier noch ein Makro zum kopieren von KW1 in die übrigen KW's.
Dürfte erheblich schneller gehen als alles von Hand zu kopieren.
@Frogger meine Idee die Formel CountA in Spalte G zu setzen ist ja nicht durchführbar. muss man akzeptieren.
mfg Gast 123
Code:
Sub Formel_kopieren()
'Formeln in KW1 verbindlich festlegen und kopieren
Worksheets("KW1").Range("A197:E213").Copy
For j = 2 To Worksheets.Count
'Formel nur in "KW" Blaetter kopieren!
If Left(Worksheets(j).Name, 2) = "KW" Then
Sheets(j).Range("A197:E213").PasteSpecial xlPasteAll
End If
Next j
Application.CutCopyMode = False
End Sub