auch eine SELECT-Frage

Hallo,

ich möchte bei folgendem Code auch den Select rausbekommen. Das Makro wird in einer anderen Datei (aExport.xls) gestartet. Zur Hilfe/bitte beachten auch noch meinen thread weiter unten bzgl. der Probleme beim Kopieren in eine andere Datei...

Sub Makro1()
'
Range("A9:W131").Select
Selection.copy
Windows("Export_2.xls").Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Columns("A:A").Select
Application.CutCopyMode = False
Selection.NumberFormat = "dd/mm/yy"
Columns("B:B").Select
With Selection
.HorizontalAlignment = xlRight
End With
Columns("D:D").Select
With Selection
.HorizontalAlignment = xlRight
End With
Columns("E:E").Select
Selection.NumberFormat = "@"
ActiveWindow.SmallScroll Down:=57
With Selection
.HorizontalAlignment = xlRight
End With
Columns("F:F").Select
Selection.NumberFormat = "@"
Columns("I:I").Select
ActiveWindow.SmallScroll ToRight:=6
End Sub

grüße und dank,basti

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

'Nicht registrierte Benutzung der Excel Code Jeanie 1.0 Sub copy()Dim Letzte_Zeile Letzte_Zeile = Range("W65536").End(xlUp).Row Letzte_Zeile_Kopiertabelle = Range("A2").End(xlDown).Row

Workbooks("aExport-neu.xls").Worksheets("Statistik Bereiche mit MA").Range("A9:W" & Letzte_Zeile).copy With Workbooks("Export_2.xls").Worksheets("Kopiertabelle").Range("A" & Letzte_Zeile_Kopiertabelle) .PasteSpecial Paste:=xlValues .Columns("A:A").NumberFormat = "dd/mm/yy" .Columns("B:B").HorizontalAlignment = xlRight .Columns("D:D").HorizontalAlignment = xlRight With .Columns("E:E") .NumberFormat = "@" .HorizontalAlignment = xlRight End With .Columns("F:F").NumberFormat = "@" End With Application.CutCopyMode = False End Sub

Hi,

nun klappt soweit alles. Nur soll er in der Kopiertabelle den Bereich immer ab der ersten leeren Zeile einfügen. So überschreibt er immer...

Was ist zu tun???


'Nicht registrierte Benutzung der Excel Code Jeanie 1.0

Sub copy()Dim Letzte_Zeile As Long

Letzte_Zeile = [W65536].End(xlUp).Row

Letzte_Zeile_Kopiertabelle = [A1].End(xlDown).Row    Workbooks("aExport-neu.xls").Worksheets("Statistik Bereiche mit MA").Range("A9:W" & Letzte_Zeile).copy

    With Workbooks("Export_Cognos.xls").Worksheets("Kopiertabelle").Range("A" & Letzte_Zeile_Kopiertabelle - 1)

        .PasteSpecial Paste:=xlValues

        .Columns("A:A").NumberFormat = "dd/mm/yy"

        .Columns("B:B").HorizontalAlignment = xlRight

        .Columns("D:D").HorizontalAlignment = xlRight

        With .Columns("E:E")

            .NumberFormat = "@"

            .HorizontalAlignment = xlRight

        End With

        .Columns("F:F").NumberFormat = "@"

    End With

    Application.CutCopyMode = False

    

End Sub

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread