|
Hallo.
Wäre toll wenn mir jemand helfen könnte - bin leider wirklich nur VBA Beginner :(
Ich habe eine Excel-Datei, in die per DDE Schnittstelle regelmässig Daten einfliessen, die ich dann verarbeite/sortiere usw.
Um nur mit erwünschten Datensätzen/Zeilen zu arbeiten , blende ich Zeilen aus , welche z.B. "Nullen" oder ähnliches enthalten.
Dies habe ich so umgesetzt und es funktioniert auch gut:
----------------------------------------------------
'define arrays
arr = Array("0", "0", "0", "0", "0,00", "0,00",)
arr2 = Array("C", "F", "D", "E", "D", "E",)
'searching process
For i1 = 1 To UBound(arr) + 1
With ThisWorkbook.Sheets(1)
For i = laR To 8 Step -1
If .Cells(i, arr2(i1 - 1)).Text = arr(i1 - 1) Then _
.Cells(i, 8).EntireRow.Hidden = True
Next
End With
nextone:
Next i1
--------------------------------------------------------------
Im Prinzip sucht das Makro ob in den arr2 definierten Spalten C-F die
Werte '0' oder '0,00' usw vorkommen und blendet dann die ganze betreffende Zeile aus.
Als Modifikation wäre es nun nötig, wenn man für das Ausblenden eine weitere
Bedingung einführen könnte.
wenn Spalte F=0 - dann erst prüfen, ob Spalte E=0 - dann ausblenden
wenn Spalte E=0 - dann erst prüfen, ob Spalte F=0 - dann ausblenden
d.h. - nur ausblenden, wenn Spalte E und F beide den Wert '0' haben
Jemand eine Idee ?
Vielen Dank
|