Office: (Office 365) VBA Code für SumIf

Hallo zusammen,

ich benötige bitte einmal eure Hilfe. Ich möchte gerne in Spalte D die erste leere Zelle finden und dort dann die Summe der Spalte D ziehen, aber nur wenn in Spalte A kein Text steht.

Mit meiner Idee komme ich bisher leider nicht weiter:

Code:

Dim lngLetzteZeile As Long

With Worksheets("Summen")
lngLetzteZeile = .Cells(Rows.Count, 4).End(xlUp).Row
.Cells(lngLetzteZeile + 1, 4) = Application.WorksheetFunction.SumIf(.Range("A1:A", " ", .Range("D1:D") & lngLetzteZeile))

Ich hoffe das ihr mir hier helfen könnt wo ich meinen Fehler habe.

Danke im Voraus.

 

Hi,

1. die variable letzte belegte Zeile musst du bei jedem Zellbereich dazuschreiben
2. mit "keinText" meinst du dass die Zelle leer ist? Deine Formel sucht nach einem Leerzeichen und nicht nach leeren Zellen

Code:

= Application.WorksheetFunction.SumIf(.Range("A1:A" & lngLetzteZeile), "", .Range("D1:D" & lngLetzteZeile))

---

 

Vielen Dank für die Antwort Beverly.

habe es eben getestet und es funktioniert einwandfrei. Manchmal steht man wie ein Ochs im Walde davor dabei ist die Lösung so einfach. Ja meinte eine leere Zelle und kein Leerzeichen.

Du hast mir sehr damit geholfen. Dann bekomme ich meine Liste endlich fertig.