VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Ermittlung von Anzahl und Summe mit 2 Kriterien

Gruppe

Matrix

Bereich

Matrixfunktion

Thema

Ermittlung von Anzahl und Summe mit 2 Kriterien

Problem

Anzahl und Summe sollen unter Berücksichtigung von 2 Kriterien ermittelt werden.

Lösung

Nur anhand einer Beipspielarbeitsmappe darstellbar.




StandardModule: basMain

Function Ph700(sTxt As String) As String
   Dim iCounter As Integer, iChr As Integer
   Dim sTmp As String
   sTxt = UCase(sTxt)
   For iCounter = 1 To 8
      iChr = Asc(Mid(sTxt, iCounter, 1)) - 64
      Select Case iChr
         Case Is < 19
            sTmp = sTmp & Fix((iChr - 1) / 3) + 2
         Case Is < 26
            sTmp = sTmp & Fix((iChr - 2) / 3) + 2
         Case Else
            sTmp = sTmp & Fix((iChr - 3) / 3) + 2
      End Select
   Next iCounter
   Ph700 = "0700-" & sTmp
End Function

    


Beiträge aus dem Excel-Forum zu den Themen Matrix und Matrixfunktion