Makro auf Zellen einschränken
Heiko
ich habe folgendes Makro im Archiv gefunden:
https://www.herber.de/forum/archiv/1144to1148/t1144304.htm
Sub tt()
Dim rngC As Range, rngF As Range
Tabelle1.Select
'Application.ScreenUpdating = False
On Error Resume Next
Set rngF = Cells.SpecialCells(xlCellTypeFormulas)
On Error GoTo 0
If Not rngF Is Nothing Then
For Each rngC In Cells.SpecialCells(xlCellTypeFormulas)
If InStr(LCase(rngC.Formula), "vlookup") > 0 Then rngC = rngC.Value
Next
End If
'Application.ScreenUpdating = True
End Sub
Mein Problem ist jetzt, dass ich das Makro nicht auf die Spalten b-f eingegrenzt bekomme. Ich verstehe Range noch nicht richtig. Wie definiere ich den Ausführungsbereich? Ich hatte probiert folgendes einzubauen: Set Bereich = Range(Cells(2, 2), Cells(10, 2)) (bereich ist nicht korrekt, nur Beispiel) Problem ist nur, dies nicht in de Code eingebunden bekomme.
Danke
Heiko
Anzeige