VBA Zelle größer Finden und Zellenadresse ausgeben
07.10.2015 21:56:03
trx
da ich schon sehr viel aus diesem Forum herausgepickt habe, nun aber nicht mein Problem finde, werde ich mal ein eigenes Thema eröffnen.
Ich möchte gerne ab einer schon gesuchten ZellenAdresse eine Suche starten, bis das Ende der Spalte erreicht ist.
Es soll nach dem ersten Wert gesucht werden, der größer 0,01 ist.
So sieht die Spalte aus:
1,42E-07
1,37E-07
1,37E-07
0,319999993
0,349999994
Er soll mir also die Zeilennummer ausgeben, ab dem der Wert größer 0,01 ist, in diesem Fall also die Nummer von 0,31999999.
Nun soll dies über Mehrere Blätter laufen und mein Code sieht imoment so aus:
Sub Zeilen()
Set wkbDaten = Workbooks("Mappe1.xlsm")
For Each wks In wkbDaten.Sheets
________________________
y = 1
x = wks.Range("A:A").End(xlDown).Row
Set rngHandsOff = wks.Range("A" & y & ":A" & x).Find(What:="yes", LookIn:=xlValues, LookAt:= _
xlWhole)
Zeile = rngHandsOff.Row
wert = WorksheetFunction.Sum(wks.Range("A" & Zeile & ":A" & x))
wks.Cells(10, 1).Value = wert
_____________________________
avntArray = wks.Range("A" & y & ":A" & Zeile)
For Each vntElem In avntArray
If vntElem > 3 Then vntElem.Adress: Exit For
Next
Next
End Sub
Die brauche ich um in einer anderen Spalte die Werte (ab Zeile 1) bis dieser Zellenadresse zu summieren. Des Wegen der vorherige Code.
Dies ist aus meinem Testdokument, deswegen habe ich Variablen nur x und y benannt. In meinem Vollständigen Code sind die natürlich besser benannt. Auch habe ich hier nur 1 Spalte und 2 Blätter.
Ich hoffe ich konnte es einigermaßen erklären.