Aufsummieren von Zellen
02.08.2019 09:35:55
Zellen
Folgendes Probelm habe ich und bitte umd Hilfe.
Ich will in meinem
Modul - Excel VBA
eine Funktion die alle Zeilen mit "Banane" anmerkt und später will ich dann in meiner Userform ZB die Zelle 4 wiedergeben dh. er summiert alle Felder mit Bannane die gesucht wurden und summiert die Zeile 4 von der Gesuchten bannane..
Folgendes hab ich schon mal ..
Public Function ZeileSuchenText(ByVal toSearch As String) As Boolean
Dim X As String
Z = Sheets(1).UsedRange.Rows.Count
X = toSearch
zeile1 = -1
For i = 2 To Z
If Cells(i, 2) = X Then
zeile1 = i
ZeileSuchenText = True
End If
Next
If zeile1 = -1 Then
ZeileSuchenText = False
End If
End Function