Hallo zusammen,
ich hab ein kleines Problem. Mit dem unten stehenden Code such ich in der ersten Zeile nach einem Wort. Wenn es gefunden wurde, kopiert das Makro mir die ganze Spalte und fügt es in einem anderen Sheet in die Spalte ZZ ein.
Da ich aber nun sehr große Datenmengen habe, wollte ich das ganze in die Spalte ZZZ einfügen.
Das mag er aber nicht machen.
Hat jemand eine Idee an was das liegen könnte?
Do
On Error Resume Next
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("ZZ:ZZ")
ActiveSheet.Name = Range("ZZ1")