Copy to all sheets Problem

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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Copy_to_all_Sheets() Dim wks As Worksheet For Each wks In ThisWorkbook.Worksheets If wks.Name "All" And 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

Sub Copy_to_all_Sheets() Dim wks As Worksheet For Each wks In ThisWorkbook.Worksheets If wks.Name "All" And wks.Name "ANT" Then 'wks.Range("O1:R200").Value = Tabelle1.Range("O1:R200").Value 'wks.Range("O1:DK200").copy Tabelle1.Range("O1") wks.Range("O1:R200").Copy Tabelle1.Range("O1:R200") End If Next Set wks = Nothing MsgBox " bereich O1:DK200 auf alle blätter kopiert !" End Sub

Sub Copy_values_to_several_sheets() Dim wks As Worksheet Tabelle1.Range("O1:R200").Copy For Each wks In ThisWorkbook.Worksheets Select Case wks.Name Case "All", "ANT", Tabelle1.Name Case Else wks.Range("O1").PasteSpecial Paste:=xlPasteValues End Select Next Application.CutCopyMode = False MsgBox " Bereich O1:R200 auf diverse Blätter kopiert !" End Sub

Moin Gerd
ich weiß nicht, ob Du heute Samstag jemand da ist, aber ich probiers mal.
Ich habe Deinen code gerade probiert, mit folgendem Ergebnis!
Ich habe 5 Worksheets. All,Ant,Master,Tabelle3,Tabelle4 in eine brandneue Excel Arbeitsmappe
Ausgelöst hab ich durch Button auf Master mit dem Modul mit Deinem code.
Das Ergebnis:
Sheet All, ist leer - soll leer, gut so
Sheet Ant, ist leer - soll leer, gut so
Sheet Master, ist unverändert, gut so
Sheet Tabelle 3, ist unformatet text - soll Formel und bedingte Formatierung, ned so gut
Sheet Tabelle 4, ist unformatet text - soll Formel und bedingte Formatierung, ned so gut
Keine Ahnung an was das liegt, das zieht sich wie ein faden durch alle Vorschläge das die Formatierung nicht übernommen wird und das ist mit das wichtigste da ich Änderungen in Master auf die bis zu 15 WS übertragen will. Meistens eben Formeländerungen oder bedingte Formatierung, die dann übernommen werden soll.
Ich mache es bis jetzt mit copy-past und das klappt immer. Also kann es nicht unmöglich sein. Ich habe extra nochmal alles auf ein neues Arbeitsblatt kopiert und hochgeladen.
https://www.herber.de/bbs/user/153925.xlsm
Im Sheet »Master« auf den Button im blauen Feld ist Deine Lösung verknüpft, und die befindet in Modul 3
Danke
Johannes

Moin onur,
wenn du...


wks.Range("O1:DK200").copy  Tabelle1.Range("O1")

...genau so in der neu gezeigten Bsp-Datei verwendest, ist der interne Name Tabelle1 = Sheets("Master").
Und dann würden die Daten immer ins Master eingefügt werden = gar nich gut :-)
@Johannes
Ich hab dem Import-Button das Makro "Copy_values_to_several_sheets_GERD" aus Modul3 zugewiesen, weil du ja extra erwähnt hattest, das Makro ist in Modul3.
Und damit auch alle Formate/Formeln übertragen werden, habe ich aus...


wks.Range("O1").PasteSpecial Paste:=xlPasteValues

...das hier gemacht...


wks.Range("O1").PasteSpecial Paste:=xlPasteAll

Dann auf den Button geklickt, und sicherheitshalber^^, das Makro mit F8 Zeile für Zeile durchlaufen lassen.
Ergebnis:
- nur in den Sheets "Tabelle3" und "Tabelle4" wird aus Tabelle "Master" der Zellbereich "O1:R200" inklusive Format + Formeln eingefügt.
Nimm die Änderungen im Code vor und teste selbst.
Mal sehen, wie dein Feedback sein wird.
Ciao
Thorsten

Beliebteste Forumthreads (12 Monate)

26 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

26
Beiträge zum Forumthread

Beiträge zu diesem Forumthread