mir wurde hier bereits häufig geholfen und ich hoffe, dass es diesmal ebenso klappt.
Also folgende Situation:
Ich habe ein Makro mit dem ich in einer Tabelle nach einem bestimmten Wort suche. Wenn es gefunden wurde, wird die ganze Spalte kopiert und in ein neues Sheet, Spalte C eingefügt.
Jetzt zum Problem:
Wie muss ich den Code umschreiben, wenn ich eine weitere Spalte in das gleiche Sheet einfügen will, aber nicht in Spalte C, sondern in die nächste freie Spalte?
Hier noch der Code zum besseren Verständnis:
Worksheets(3).Select
' gewünschte Spalten werden gesucht und gesamte Spalte wird kopiert
' und in eine neue Mappe eingefügt
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(Worksheets.Count).Paste Destination:=Sheets(Worksheets.Count).Columns("C:C")
Worksheets(3).Select
Loop
End Sub
Vielen Dank im Voraus