Code zu lang, deshalb nicht funktionsfähig?
29.02.2016 23:39:54
Christoph
Kann mir wer helfen? Ich hatte bei folgendem Thread (Nr. 1472420 2016-02-01 12:00:15 Makro: Nach Überschr. suchen und in neues AB) schon großartige Unterstützung.
Der code wird zum Suchen und in mit definierter Reihenfolge in ein neues Arbeitsblatt kopieren genutzt.
Option Explicit
Sub Suchen()
Dim WS As Worksheet
Dim C, FFind(), NNeu(), FWo(), i As Integer
FFind = Array(ped352,ped387,p1000_sw_4,P1000_sw_7)
NNeu = Array("DB 132 A, "DB 132 B", "DB 10 A,DB 10 B) 'Umbenennung fü FFind
FWo = Array(2, 5, 9, 3)'Zielspalten zu FFind
For Each WS In Worksheets
If WS.Name "Z" Then
For i = 0 To UBound(FFind)
Set C = WS.Rows("1:1").Find(FFind(i), LookIn:=xlValues)
If Not C Is Nothing Then
WS.Columns(C.Column).Copy Sheets("Z").Columns(FWo(i))
Sheets("Z").Cells(1, FWo(i)) = NNeu(i)
End If
Next i
End If
Next
End Sub
Dies ist jedoch nur eine Auswahl. In der Realität habe ich 350 Zahlen bzw. Beschriftungen (und damit Spalten im Array). Wenn ich diese nun in Excel kopiere ist es zu lang und der ganze Text wird rot. Es gibt sicher die Möglichkeit, Excel über etwas zu sagen, dass es in der nächsten Zeile weitergeht. Nur wie?
Und perfekt wäre es, wenn ich dies nicht händisch eintippen muss... weil sich die Länge je nach inhalt bei FFind und bei NNeu immer ändert :(
Kann mir wer helfen? Vielen Dank für eure Unterstützung.
Viele Grüße
Chrisotph