VBA - Array ?
05.05.2017 22:26:51
WalterK
der Code funktioniert, es werden damit in der Tabelle die Spalten "Anton", "Berta" und "Dora" behalten, bei allen anderen Spalten werden die Daten gelöscht.
Kann man das auch einfacher schreiben, z.B. ohne das ich 20 mal Or schreiben muss.
Besten Dank für die Hilfe, Servus Walter
Option Explicit
Sub SpaltenBehaltenLöschen()
Dim wksHier As Worksheet
Dim LSp As Long
Dim i As Long
Set wksHier = Worksheets("HierDieDatenHineinKopieren")
LSp = wksHier.Cells(1, Columns.Count).End(xlToLeft).Column
For i = 1 To LSp
If wksHier.Cells(1, i) = "Anton" Or wksHier.Cells(1, i) = "Berta" Or wksHier.Cells(1, i) _
= "Dora" Then
Else
wksHier.Columns(i).ClearContents
End If
Next i
Set wksHier = Nothing
End Sub