AW: Function zum Addieren
19.01.2007 13:05:33
Peter
Hallo arend
das geht z. B. so:
Public
Function Addiere() As Double
Dim lZeile As Long
For lZeile = 1 To Range("A65536").End(xlUp).Row
If Left(Range("A" & lZeile).Value, 1) = "2" Then
If IsNumeric(Range("B" & lZeile).Value) Then
Addiere = Addiere + CDbl(Range("B" & lZeile).Value)
End If
End If
Next lZeile
End Function
mit Alt + F11 in die VBA Umgebung wechseln
unter Einfügen - Modul auswählen und anklicken
in das sich öffnende Fenster obige Makro kopieren
mit Schließen-Kreuz (recht obere Ecke) abschließen
mit =Addieren() ausprobieren
Public
Function Addiere() As Double
Dim lZeile As Long
For lZeile = 1 To Range("A65536").End(xlUp).Row
If Left(Range("A" & lZeile).Value, 1) = "2" Then
If IsNumeric(Range("B" & lZeile).Value) Then
Addiere = Addiere + CDbl(Range("B" & lZeile).Value)
End If
End If
Next lZeile
End Function
Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.