VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
Word VBA Klausur	13.02.2021 13:17:55	Felix
Word VBA Klausur	13.02.2021 13:22:53	Gast45136
Word VBA Klausur	13.02.2021 13:28:43	Gast25899
Beispiel-Lösung	13.02.2021 16:30:32	Gast74318
Beispiel-Lösung - Achja, ...	13.02.2021 16:39:32	Gast74318
Beispiel-Lösung - Achja, ...	13.02.2021 16:44:17	Gast74318
Beispiel-Lösung - Achja, ...	14.02.2021 11:53:14	Gast55304
Beispiel-Lösung - Achja, ...	14.02.2021 16:58:29	Gast792
Beispiel-Lösung - Achja, ...	14.02.2021 17:02:26	Gast32651
Beispiel-Lösung	14.02.2021 11:54:38	Gast27943
Beispiel-Lösung	14.02.2021 12:09:26	Gast40774
Beispiel-Lösung	14.02.2021 12:10:49	Gast42313
Beispiel-Lösung	14.02.2021 12:23:15	Gast27890
Beispiel-Lösung	14.02.2021 13:06:41	Gast61281
Beispiel-Lösung	14.02.2021 14:41:18	Gast87063
Beispiel-Lösung	14.02.2021 15:09:18	Gast38430
Beispiel-Lösung	14.02.2021 16:50:53	Gast17593
Beispiel-Lösung	24.02.2021 08:34:17	Gast01287
Beispiel-Lösung	24.02.2021 09:10:34	Gast55509
Beispiel-Lösung	14.02.2021 18:16:32	Gast20358
Beispiel-Lösung	14.02.2021 19:08:57	Gast41973
Beispiel-Lösung	14.02.2021 19:12:12	Gast20358
Beispiel-Lösung	23.02.2021 16:53:02	Gast21601
Beispiel-Lösung	23.02.2021 17:04:41	Gast54879
Beispiel-Lösung	23.02.2021 17:13:17	Gast59647
Beispiel-Lösung	23.02.2021 17:29:01	Gast4073
Musik? (owt)	23.02.2021 17:42:56	Mase
Musik? (owt)	23.02.2021 22:03:44	Gast63735
Musik? (owt)	23.02.2021 22:20:44	Mase
Musik? (owt)	23.02.2021 22:26:42	Gast8241
Musik? Aga aga ... ein hab ich noch, ein hab ich noch (mwt)	24.02.2021 07:59:20	Mase
Musik? (owt)	24.02.2021 14:17:24	Gast14330
Musik? (owt)	24.02.2021 15:50:14	Gast37999
Musik? (owt)	22.04.2021 17:54:50	Gast45889
Musik? (owt)	22.04.2021 19:11:44	Gast37430
Musik? (owt)	23.04.2021 14:51:50	Gast11080

Ansicht des Beitrags:

Von:
Gast37430

Datum:
22.04.2021 19:11:44

Views:
385

Rating:

Antwort:

Thema:
Musik? (owt)

Der Ansatz sieht doch ganz ok aus - bis auf das da noch ein End-If fehlt (vor dem letzten Next).

Public Function MITTLERELAENGE(ParamArray Args() As Variant) As Variant
  
  Dim vntArg As Variant
  Dim rngCell As Excel.Range
  Dim i As Integer
  Dim n As Integer
  
  MITTLERELAENGE = 0
  
  For Each vntArg In Args
    If TypeName(vntArg) = "Range" Then
      For Each rngCell In vntArg.Cells
        If Len(CStr(rngCell.Value)) > 0 Then
          MITTLERELAENGE = MITTLERELAENGE + Len(CStr(rngCell.Value))
          n = n + 1
        End If
      Next
    ElseIf Len(CStr(vntArg)) > 0 Then
      MITTLERELAENGE = MITTLERELAENGE + Len(CStr(vntArg))
      n = n + 1
    End If
  Next
  
  If n > 0 Then
    MITTLERELAENGE = MITTLERELAENGE / n
  End If
  
End Function

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
Word VBA Klausur	13.02.2021 13:17:55	Felix
Word VBA Klausur	13.02.2021 13:22:53	Gast45136
Word VBA Klausur	13.02.2021 13:28:43	Gast25899
Beispiel-Lösung	13.02.2021 16:30:32	Gast74318
Beispiel-Lösung - Achja, ...	13.02.2021 16:39:32	Gast74318
Beispiel-Lösung - Achja, ...	13.02.2021 16:44:17	Gast74318
Beispiel-Lösung - Achja, ...	14.02.2021 11:53:14	Gast55304
Beispiel-Lösung - Achja, ...	14.02.2021 16:58:29	Gast792
Beispiel-Lösung - Achja, ...	14.02.2021 17:02:26	Gast32651
Beispiel-Lösung	14.02.2021 11:54:38	Gast27943
Beispiel-Lösung	14.02.2021 12:09:26	Gast40774
Beispiel-Lösung	14.02.2021 12:10:49	Gast42313
Beispiel-Lösung	14.02.2021 12:23:15	Gast27890
Beispiel-Lösung	14.02.2021 13:06:41	Gast61281
Beispiel-Lösung	14.02.2021 14:41:18	Gast87063
Beispiel-Lösung	14.02.2021 15:09:18	Gast38430
Beispiel-Lösung	14.02.2021 16:50:53	Gast17593
Beispiel-Lösung	24.02.2021 08:34:17	Gast01287
Beispiel-Lösung	24.02.2021 09:10:34	Gast55509
Beispiel-Lösung	14.02.2021 18:16:32	Gast20358
Beispiel-Lösung	14.02.2021 19:08:57	Gast41973
Beispiel-Lösung	14.02.2021 19:12:12	Gast20358
Beispiel-Lösung	23.02.2021 16:53:02	Gast21601
Beispiel-Lösung	23.02.2021 17:04:41	Gast54879
Beispiel-Lösung	23.02.2021 17:13:17	Gast59647
Beispiel-Lösung	23.02.2021 17:29:01	Gast4073
Musik? (owt)	23.02.2021 17:42:56	Mase
Musik? (owt)	23.02.2021 22:03:44	Gast63735
Musik? (owt)	23.02.2021 22:20:44	Mase
Musik? (owt)	23.02.2021 22:26:42	Gast8241
Musik? Aga aga ... ein hab ich noch, ein hab ich noch (mwt)	24.02.2021 07:59:20	Mase
Musik? (owt)	24.02.2021 14:17:24	Gast14330
Musik? (owt)	24.02.2021 15:50:14	Gast37999
Musik? (owt)	22.04.2021 17:54:50	Gast45889
Musik? (owt)	22.04.2021 19:11:44	Gast37430
Musik? (owt)	23.04.2021 14:51:50	Gast11080