Bestimmte Spalten nicht durchsuchen & ersetzen
16.01.2018 14:48:43
Hannah
ich habe bis jetzt folgenden Code:
Er ersetzt in den Formeln in Sheet Tabelle2 das Wort "Tabelle1_Vorlage" durch "Tabelle1". Jetzt soll das aber nicht in allen Spalten geschehen. Die Spalten 2, 6 und 18 sollen ausgenommen werden (wie unten schon kommentiert). Ich weiß das ich schreiben könnte, Durchsuche Spalte 1, Durchsuche Spalte 1-5, Durchsuche Spalte 7-17. Geht das auch anders?
Dim sh As Worksheet
Sub Copy()
Dim strN As String, strNn As String, rngU As Range, rngS As Range, rngA As Range, c As Range
'strN=Tabelle1_Vorlage
strN = Worksheets("Tabelle1_Vorlage").Name
'strNn = Tabelle1
strNn = Worksheets("Tabelle1").Name
Set rngU = Sheets("Tabelle2").UsedRange
Set rngS = rngU.SpecialCells(xlCellTypeFormulas)
For Each rngA In rngS.Areas
'Ersetze Tabelle1Vorlage durch Tabelle1 außer in den Spalten 2, 6 & 18
For Each c In rngA.Cells
c.Formula = Replace(c.Formula, strN, strNn)
Next c
Next rngA
End Sub
LG