Office: Makro zum Kopieren anpassen...

Hallo,

wieder einmal benötige ich Euer Excel-Wissen.

Ich habe mir das unten aufgeführte Makro zusammengebastelt.
Es soll eigentlich die Daten eines Tabellenblattes in das Tabellenblatt "daten" kopieren.
Da ich das Makro aufgezeichnet habe, werden jetzt immer nur die Daten des Tabellenblattes "reihe_a" kopiert.
Ich möchte aber, dass stets die Daten kopiert werden auf dessen Tabellenblatt ich mich gerade befinde.
Habe ich also z.B. das Blatt "reihe_f" gerade aufgerufen dann soll das Makro die Daten kopieren und nicht wie im Makro die Daten von "reihe_a".

Wie muss das Makro abgeändert werden...?

Danke schon einmal
tobi




Sub Makro4()
'
' Makro4 Makro
' Makro am 11.06.2010 von Administrator aufgezeichnet
'

'
Sheets("daten").Select
Columns("A:F").Select
Selection.Clear
Sheets("reihe_a").Select
Range("A11:A200").Select
Selection.Copy
Sheets("daten").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("reihe_a").Select
ActiveWindow.LargeScroll Down:=-4
Range("C11:G200").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.LargeScroll Down:=-4
Range("I1").Select
Sheets("daten").Select
Range("B1:F1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1:F200").Select
Application.CutCopyMode = False
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
ActiveWindow.SmallScroll Down:=-9
Range("H1").Select
End Sub

 

vielleicht so

Code:

Option Explicit

Sub Makro4()
    '
    ' Makro4 Makro
    ' Makro am 11.06.2010 von Administrator aufgezeichnet
    '
    
    '
    Sheets("daten").Columns("A:F").Clear
    Selection.Copy
    Sheets("daten").Range("A1").PasteSpecial Paste:=xlPasteValues
    Range("C11:G200").Copy
    Sheets("daten").Range("B1:F1").PasteSpecial Paste:=xlPasteValues
    Wirh Range("A1:F200")
        .Borders(xlDiagonalDown).LineStyle = xlNone
        .Borders(xlDiagonalUp).LineStyle = xlNone
        With .Borders(xlEdgeLeft)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
        End With
        With .Borders(xlEdgeTop)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
        End With
        With .Borders(xlEdgeBottom)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
        End With
        With .Borders(xlEdgeRight)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
        End With
        With .Borders(xlInsideVertical)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
        End With
        With .Borders(xlInsideHorizontal)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
        End With
    End With
    Application.CutCopyMode = False
End Sub