Ich habe Excel-Tabellen mit 1500 bis 2700 Zeilen.
Die Tabelle hat Daten von Spalte A bis Spalte AM.
Zunächst sollen folgende Spalten erhalten bleiben:
A; C; F; M; V; W; X, d.h., alle anderen Spalten sollen gelöscht werden. Die leeren Spalten bitte ebenfalls löschen.
Nach der Löschung der Spalten sollen alle diejenigen Zeilen gelöscht werden, die in den Spalten C D E F und G leer sind.
Ich bräuchte dafür ein Makro.
Hat jemand für mich so ein mMkro?
Vielen Dank!!
SORRY! Ich arbeite mit Excel2000.
Ich habe Excel-Tabellen mit 1500 bis 2700 Zeilen.
Die Tabelle hat Daten von Spalte A bis Spalte AM.
Zunächst sollen folgende Spalten erhalten bleiben:
A; C; F; M; V; W; X, d.h., alle anderen Spalten sollen
gelöscht werden. Die leeren Spalten bitte ebenfalls löschen.
Nach der Löschung der Spalten sollen alle diejenigen Zeilen
gelöscht werden, die in den Spalten C D E F und G leer
sind.
Hallo Uwe,
Sub tt()
Dim arrCol, C As Long
arrCol = Array("B:B", "D:E", "G:L", "N:U", "Y:AM")
Application.ScreenUpdating = False
For C = UBound(arrCol) To LBound(arrCol) Step -1
Range(arrCol(C)).Delete
Next C
Range("H1:H3000").FormulaLocal = "=C1&D1&E1&F1&G1"
Range("H1:H3000").Value = Range("H1:H3000").Value
For C = 3000 To 1 Step -1
If Range("H" & C).Value = "" Then Rows(C).Delete
Next C
Range("H:H").Delete
Application.ScreenUpdating = True
End Sub
Gruß
Reinhard
Hat alles funktioniert.
VIELEN DANK !!!
Gruß
Uwe
1 „Gefällt mir“