habe folgendes Problem.
Möchte 2 spalten umbennen if then und einige Spalten löschen if then
Muster im Anhang.
Vielen Dank im vorraus und viele Grüße,
Bernd
https://www.herber.de/bbs/user/131639.xlsx
Sub test()
Dim i As Integer
Dim intLS As Integer
With ActiveSheet
intLS = .Cells(1, Columns.Count).End(xlToLeft).Column
For i = intLS To 1 Step -1
If LCase(.Cells(1, i).Value) Like "hmarke" Then
.Cells(1, i).Value = "Hersteller"
ElseIf LCase(.Cells(1, i).Value) Like "hherstellernummer" Then
.Cells(1, i).Value = "Artikelnummer"
ElseIf LCase(Left(.Cells(1, i).Value, 1)) = "h" Then
.Columns(i).Delete
End If
Next i
End With
End Sub
Grüße, Bernd