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, BerndDie erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen