ich arbeite mich gerade in das Thema Array ein und stehe vor einem Problem, wo ich aus den diversen Foreneinträgen für mich einfach keine Lösung ableiten kann.
Ich lese in ein (zweidimensionales) Array einen Tabellenbereich ein und möchte nun anhand einiger Kriterien einige Zeilen im Array wieder löschen.
Wie stelle ich dies am Einfachsten an:
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
Danke Euch schon mal.VG SteffenS