Bereich kopieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo nochmal,
gerade platzte der Knoten in meinem Hirn... ;-)
Zum Kopieren des 1. Bereiches in den Anzeigebereich in sämtlichen MAxx-Blättern habe ich nun folgendes gebastelt:

VB-Code:

Private Sub CommandButton2_Click()  'Bereich1 verarbeiten
Dim wks As Worksheet

    Application.ScreenUpdating = False

    Sheets("allg").Range("b2").Value = 1    'anpassen
For Each wks In ThisWorkbook.Worksheets
If Left(wks.Name, 2) = "MA" And InStr(1, wks.Name, "-") = 0 Then

            wks.[a2:b5].ClearFormats        'Anzeigebereich anpassen

            wks.[I2:J5].Copy wks.[a2]    'Bereich u. Anzeigebereich(1.Zelle) anpassen
End If
Next wks

    Application.ScreenUpdating = False
End Sub
Funktioniert soweit einwandfrei, aber vllt. gibt es ja noch bessere Ideen... ?

MfG Dirk

					 AW: Bereich kopieren
				
					schauan
				
Hallo Dirk,

wahrscheinlich kannst Du noch auf das clear.formats verzichten. Beim copy werden selbige überschrieben.

Gruß, Andre

					 AW: Bereich kopieren
				
					Dirk
				
Hallo Andre,

du hast Recht - hab's gerade getestet - vielen Dank.

Zwischenzeitlich habe ich auch noch einen anderen Fehler behoben - die Formeln sollten nicht kop. werden

Hier also der aktuelle Code:

VB-Code:
Private Sub CommandButton2_Click()  'Bereich1 verarbeiten

    Dim wks As Worksheet

    Application.ScreenUpdating = False

    Sheets("allg").Range("b2").Value = 1    'anpassen

    For Each wks In ThisWorkbook.Worksheets

        If Left(wks.Name, 2) = "MA" And InStr(1, wks.Name, "-") = 0 Then

            wks.[I2:J5].Copy             'Bereich anpassen

            wks.[a2].PasteSpecial Paste:=xlPasteValues    'Anzeigebereich(1.Zelle) anpassen

            wks.[a2].PasteSpecial Paste:=xlPasteFormats   'Anzeigebereich(1.Zelle) anpassen

        End If

    Next wks

    Application.CutCopyMode = False

    Application.ScreenUpdating = True

End Sub

MfG Dirk

Hallo Andre,
du hast Recht - hab's gerade getestet - vielen Dank.
Zwischenzeitlich habe ich auch noch einen anderen Fehler behoben - die Formeln sollten nicht kop. werden
Hier also der aktuelle Code:

VB-Code:

Private Sub CommandButton2_Click()  'Bereich1 verarbeiten

    Dim wks As Worksheet

    Application.ScreenUpdating = False

    Sheets("allg").Range("b2").Value = 1    'anpassen

    For Each wks In ThisWorkbook.Worksheets

        If Left(wks.Name, 2) = "MA" And InStr(1, wks.Name, "-") = 0 Then

            wks.[I2:J5].Copy             'Bereich anpassen

            wks.[a2].PasteSpecial Paste:=xlPasteValues    'Anzeigebereich(1.Zelle) anpassen

            wks.[a2].PasteSpecial Paste:=xlPasteFormats   'Anzeigebereich(1.Zelle) anpassen

        End If

    Next wks

    Application.CutCopyMode = False

    Application.ScreenUpdating = True

End Sub

MfG Dirk

Beliebteste Forumthreads (12 Monate)

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread