Copy to all sheets Problem
01.07.2022 11:39:07
Johannes
Hänge noch an einem anderen Problem, mit dem ich nicht weiter komme.
Ich habe einen code der mir einen festen Bereich auf alle Arbeitsblätter kopieren soll außer 2 spezielle blätter (Name bekannt)
Geht so weit bis auf 2 Probleme.
1.) das erste WS "All" wird beim Kopieren übersprungen, aber das 2, "ANT" wird trotzdem überschrieben. Ich habe es mit oder versucht, aber gescheitert.
2.) beim Kopieren werden nur die Zellwerte kopiert, nicht die Formatierung. Ich vermute mal, das liegt an (.value), hab da mal was gelesen, aber ich komme nicht mehr darauf.
Sub Copy_to_all_Sheets()
Dim wks As Worksheet
For Each wks In ThisWorkbook.Worksheets
'If Not wks.Name = "All" Then
If Not wks.Name = "All" Or wks.Name = "ANT" Then
'If Not wks.Name = "All" Or If Not wks.Name = "ANT" Then
wks.Range("O1:DK200").Value = Tabelle1.Range("O1:DK200").Value
End If
Next
Set wks = Nothing
MsgBox " bereich O1:DK200 auf alle blätter kopiert !"
End Sub
Kann mir da jemand helfen?Danke
Johannes