Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Spalten Kopieren- Einfügen funktioniert nicht

Spalten Kopieren- Einfügen funktioniert nicht
31.08.2016 12:24:38
dove89
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")

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalten Kopieren- Einfügen funktioniert nicht
31.08.2016 13:33:18
peter49
Hallo dove
Bei mir hören die Spalten bei XFD auf.
Gruss aus der Schweiz
Anzeige

387 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige