suchen, sortieren und ausgeben VBA
22.10.2024 09:37:59
stefantaust
Hallo MCO
ich habe dein VBA Script vom Thema
https://www.herber.de/forum/archiv/1992to1996/1993688_Filtern_sortieren_und_wieder_ausgeben.html
in meine Original Tabelle eingebaut.
Würde super funktionieren, aber es fehlt Spalte X in der Ausgabe, und ich komme nicht drauf warum
https://www.herber.de/bbs/user/173080.xlsm
Das VBA Script ist mit dem Macro ausführbar
Hoffe es findet jemand den Bug
Public Sub alle_Q_Status_Sammeln()
Dim rng As Range
Dim rng_array As Variant
Range("Z:xfd").ClearContents
such_rng = Range("A2:A" & Rows.Count).SpecialCells(xlCellTypeConstants)
Set rng = Range("a1").CurrentRegion
rng_array = rng
such_rng = WorksheetFunction.Unique(such_rng)
For i = 1 To UBound(such_rng)
QM_Nr = such_rng(i, 1)
Q_Status_samm = ""
txt = ""
For such_Sp = 1 To 24 Step 3
For such_Z = LBound(rng_array) To UBound(rng_array)
If rng_array(such_Z, such_Sp) = QM_Nr Then _
txt = txt & ";" & rng_array(such_Z, such_Sp + 1) & ";" & rng_array(such_Z, such_Sp + 2)
Next such_Z
Next such_Sp
Q_Status_samm = QM_Nr & txt
Range("Z" & Rows.Count).End(xlUp).Offset(1, 0).Resize(, UBound(Split(Q_Status_samm, ";"))) = Split(Q_Status_samm, ";")
Next i
End Sub
Danke
Stefan
Anzeige