Office: Range (letzte Spalte X+Y) kopieren und in die nächste freie Spalte einfügen

Hallo Hary,

wenn ich die ersten drei Filterkriterien (BLoeschen / GLeer / MitDE)
zu einem Skript zusammenfassen möchte, wie würde es aussehen?
Die Abarbeitung erfolgt hier se*quen*ti*ell, oder?

Danke und Gruß
Tom

 

Moin
Auf die schnelle,bin unterwegs.
Teste mal in einer Tabellenkopie.
Code:

gruss hary

 

Morgen Hary, nochmals danke!

 

Hallo Hary,

könnte man die Skripte, die Du mir erstellt hast, um folgende Eigenschaft erweitern und alles zu einem Skript zusammen fassen? Damit wäre mir sehr geholfen.

Das Skript sollte in folgender Reihenfolge die Datei bearbeiten:

Löschen von Spalten, es sollen folgende Spalten gelöscht werden:
C / D / G / H / I / J / K / N / O / P / S / V / W / Y

Dann wie im Skript enthalten die Zeilen mit dem Filterkriterium: GCS löschen, danach die Zeilen mit dem Filterkriterium: GCV löschen

Sub BLoeschen()
Dim letzte As Long
With Worksheets("BlaBla")
letzte = .Cells(Rows.Count, 1).End(xlUp).Row
Application.ScreenUpdating = False
.Cells(1, 1).CurrentRegion.AutoFilter Field:=9, Criteria1:="GCV" '--ggf. Field anpassen
If .Cells(2, 9).Resize(letzte, 1).SpecialCells(xlVisible).Count > 1 Then
.Cells(2, 9).Resize(letzte - 1, 1).SpecialCells(xlVisible).EntireRow.Delete
End If
.Cells(1, 1).AutoFilter
Application.ScreenUpdating = True
End With
End Sub

Dann die Leerzeilen, in der Spalte G (vor dem Löschen der Spalten war es die Spalte Q)

Sub GLeer()
Dim letzte As Long
With Worksheets("export_2015.03 - 01-15.03 - Kop")
letzte = .Cells(Rows.Count, 1).End(xlUp).Row
.Cells(2, 7).Resize(letzte - 1, 1).SpecialCells(xlBlanks).EntireRow.Delete
End With
End Sub

Danach in Spalte E (vor dem Löschen der Spalten war es die Spalte L), "[][]" suchen und durch "[]" ersetzen.

Schönen Gruß & vielen Dank!

 

Hallo Hary,

könntest Du dir bitte nochmals den letzten Eintrag von mir ansehen....

Danke & Gruß!