Thema Datum  Von Nutzer Rating
Antwort
Rot Formelerweiterung auf Bereich
 26.06.2014 07:34:47 Jan
NotSolved

Ansicht des Beitrags:
Von:
Jan		 Datum:
26.06.2014 07:34:47		 Views:
1085		 Rating:
     
Antwort:
  Ja
Thema:
Formelerweiterung auf Bereich

Hallo,

ich bin VBA-Neuling und versuche verzweifelt folgende Funktion auf "Bereiche zu erweitern".

Die Funktion prüft ob "sTextSoll" in "sTextIst" enthalten ist. Falls ja wird "iData" zurückgegeben andernfalls 0.

Function EnthaeltText(iData As Integer, sTextIst As String, sTextSoll As String) As Double
 EnthaeltText = 0
 If InStr(sTextIst, sTextSoll) > 0 Then
    EnthaeltText = iData
 End If
End Function

 

Die Funktion soll jetzt so erweitert werden dass sie über mehrere Zeilen die Summe bildet.
Die Formel soll in Excel z.B. so aufgerufen werden =EnthaeltText(A1:10;B1:10;C1)

Function EnthaeltText(iData As Range, sTextIst As Range, sTextSoll As String) As Double
 EnthaeltText = 0

' Loop für jede Zeile
 If InStr(sTextIst, sTextSoll) > 0 Then
    EnthaeltText = EnthaeltText + iData
 End If
'Ende Loop

End Function

 

Ich weis nicht wie ich die Schleife umsetzen soll. Die Anzahl der Zeilen müsste für "iData" und "sTextIst" natürlich gleich. Wäre aber super wenn die Funktion auch funktionieren würde wenn unterschiedliche Bereiche angegeben werden. Ich denke dann sollte die Schleife nur über den kleineren Bereich Zählen

 

Vielen Dank!

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Formelerweiterung auf Bereich
 26.06.2014 07:34:47 Jan
NotSolved