Nur Werte ohne Formeln kopieren und einfügen
29.02.2016 10:59:10
Dove
kann mir jemand einen Tipp geben, wie ich meinen Code anpassen muss, damit er nur Werte (ohne Formeln) kopiert und einfügt.
strS = InputBox("Suchbegriff:", Value "", strS)
If StrPtr(strS) = 0 Or Len(strS) = 0 Then Exit Do
Set rngT = Rows(1).Find(What:=strS, LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False).EntireColumn.Copy
Sheets.Add After:=Worksheets(Worksheets.Count)
Sheets(Worksheets.Count).Paste Destination:=Sheets(Worksheets.Count).Columns("X:X")
ActiveSheet.Name = Range("X1")
Danke im Voraus