Hallo Danni,
das sind dann doch ziemlich wenig Infos.
-wie soll der SVERWEIS denn aussehen, das kann ich mir nicht aus den Fingern saugen
-in welchem Bereich der Spalte E soll der SVERWEIS angewendet werden
-ab welcher Zeile (1,2 oder was)
- bis zu welcher Zeile, letzte Zeile des benutzten Bereichs
Hier mal ein Beispiel mit einer Schleife über alle Blätter. Verbundene Zellen in den jeweiligen Blättern werden aufgehoben, außer in Zeile 1. In Spalte E wird von Zeile 1 bis zur letzten Zeile der UsedRange eine SVERWEIS-Formel eingetragen, anschließend wird die Formel durch ihre Werte ersetzt, Spalte C und D wird gelöscht.
Public Sub Test()
Dim loLetzte As Long
Dim raBereich As Range
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
With ws.UsedRange
loLetzte = .Rows.Count
.Offset(1).Cells.UnMerge
Set raBereich = .Range(.Cells(1, 5), .Cells(loLetzte, 5))
raBereich.FormulaLocal = "=WENNFEHLER(SVERWEIS(A1;A:B;2;Falsch);"""")"
raBereich.Value = raBereich.Value
.Range("C:D").EntireColumn.Delete
End With
Next ws
End Sub
Gruß Werner
|