Zeilen in Array löschen

Sub test123() Dim WSQ As Worksheet Set WSQ = Workbooks("xyz").Sheets("xyz") Dim qArray As Variant, zArray As Variant qArray = WSQ.Range("K15:Z300") Dim azeile As Long, aspalte As Long For azeile = LBound(qArray, 1) To UBound(qArray, 1) 'Abfrage leere Werte If qArray(azeile, 1) = "" Then 'Zeile in Array löschen MsgBox (qArray(azeile, 1)) Else 'Spalten durchlaufen For aspalte = LBound(qArray, 2) To UBound(qArray, 2) 'weitermachen Next aspalte End If Next azeile End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub aaa() Dim vArr Dim i As Long, j As Long, k As Long vArr = Range("A1:F30") vArr = WorksheetFunction.Transpose(vArr) For i = UBound(vArr, 2) To 1 Step -1 If vArr(1, i) = "" Then For j = i + 1 To UBound(vArr, 2) For k = 1 To UBound(vArr) vArr(k, j - 1) = vArr(k, j) Next Next ReDim Preserve vArr(1 To UBound(vArr), 1 To UBound(vArr, 2) - 1) End If Next i vArr = WorksheetFunction.Transpose(vArr) End Sub

Sub Test124() Const adQBer$ = "A1:F30", tiQWb$ = "xyz", tiQWs$ = "xyz" Dim iz As Long, zz As Long, arQDat, avZDat, _ qBer As Range, xZ As Range, wf As WorksheetFunction Set wf = WorksheetFunction Set qBer = Workbooks(tiWb).Sheets(tiWs).Range(adQBer) ' Set qBer = ActiveSheet.Range(adQBer) zz = qBer.Rows.Count - wf.CountBlank(qBer.Columns(1)) ReDim arQDat(zz - 1) For Each xZ In qBer.Rows If Not IsEmpty(xZ.Cells(1)) Then _ arQDat(iz) = xZ: iz = iz + 1 Next xZ avZDat = wf.Transpose(wf.Transpose(arQDat)) ' ActiveWindow.RangeSelection.Resize(UBound(avZDat, 1), _ ' UBound(avZDat, 2)) = avZDat Set qBer = Nothing: Set wf = Nothing arQDat = Empty: avZDat = Empty End Sub

…Steffen,
dass ich ebenso wie andere wenig Lust habe, mich ständig zu wiederholen. Zu Arrays und ihren Typen gibt's 'ne Menge Erläuterungen im Netz, nur wird der Variant-Typ idR etwas stiefmütterlich behandelt. Hier hilft dann aber das Recherche-Stichwort Arrays in Array.
Der Unterschied zwischen Rudis Lösung und meiner (beide bilden das Array aus dem ZellBereich) besteht darin, dass Rudi erst ein Array über den GesamtBereich bildet und das mit .Transpose vom ZellBereich trennt, weil das Array sonst ZellBezüge, keine Werte enthält. Das mache ich erst zum Schluss und zwar gleich 2×, damit Zeilen und Spalten nicht vertauscht wdn. Rudi macht das auch, nur trennt er das in 2 Anweisungen, eine vor und eine nach Array-Befüllung. Dadurch kann er gleich mit echten bezugslosen Datenfeldern (Arrays) arbeiten und damit UBound und ReDim Preserve verwenden, wodurch die Überdimensionierung der letzten Dimension beseitigt wdn kann. Da immer nur die letzte Dimension geändert wdn kann, Zeilen aber die 1.Dimension bilden, war es auch sinnvoll, erst nur 1× .Transpose zu verwenden und erst zum Schluss die alte Anordnung wiederherzustellen.
Da ich ganz anders vorgehe, war das nicht erforderlich. Mein Pgm übernimmt die ZellBezüge der Daten zeilenweise in Elemente eines vertikalen Vektors und das nur, wenn deren 1.Bezug nicht auf eine LeerZelle verweist. Wenn man die Werte eines solchen ElementVektors einzeln ansprechen wollte, müsste man das mit arQDat(i)(j) tun. Alle beteiligten Vektoren (auch der vertikal gerichtete HptVektor) sind übrigens 1dimensional!
Dadurch, dass diese Arrays in einem Array zum Schluss 2× transponiert wdn, entsteht aber ein ganz normales 2dimensionales Array (Matrix), dessen Elemente mit avZDat(i, j) angesprochen wdn können, wobei auch der ZeilenIndex nicht mehr mit 0, sondern mit 1 beginnt.
Du hast jetzt also die Wahl zwischen beiden Pgmm, wobei du dich für das schnellere entscheiden solltest, was du aber erst bei größeren DatenMengen feststellen kannst. Da beide Pgmm aber mit .Transpose arbeiten, ist die DatenMenge durch die Limitationen dieser XlFkt begrenzt. Wenn das also sehr große DatenMengen wdn sollten, wäre einer der Objekt-Array-Typen (wie bspw ein Dictionary, das auch Vektoren als Elemente enthalten kann) vorzuziehen.
Luc :-?

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

18 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zeilen in Array löschen

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

18 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread