Eigene Excel-Formel: Eingabewerte per Maus wählen

Hallo Zusammen,
Ich bin relativ neu bei der VBA-Programmierung in Excel, habe aber bereits mit Hilfe von Tutorials eigene Formeln erstellt.
Die Eingabewerte der bisher erstellten Formeln habe ich nach folgendem Stil an die VBA-Berechnung weitergegeben:
Function Formel1(a as Double, b as Double, c as Double)
Nun zu meiner Frage:
Ich würde gerne eine Formel erstellen bei der 36 Werte an die Formel übergeben werden sollen.
Die Eingabewerte stehen in einer Zeile nebeneinander und ich möchte Sie über die Auswahl mit der Maus bzw. eines Bereichs eingeben und nicht einzeln mit Komma getrennt.
Ich stelle mir das Ganze von der Benutzung ähnlich wie die Excel-Formel SUMME() vor, bei der man die einzelnen Summanden über die Markierung mit der Maus an die Formel übergibt.
Gibt es dazu möglichen in VBA so etwas umzusetzen? Bzw. wie nennt man diese Funktion nach der ich suche?
Vielen Dank für alle Hilfen und Unterstützungen schon im Voraus.
Mfg

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo ?
nach deiner Beschreibung könnte die Funktion so aussehen.

  A B C D E F G H I J K L M N O P Q R S T U V W X Y Z AA AB AC AD AE AF AG AH AI AJ AK AL
1                                                                            
2                                                                            
3 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 16206  
4 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 666  
5                                                                            
6                                                                            
7                                                                            
8                                                                            


Zelle Formel
AK3 =formel1(A3:AJ3)
AK4 =formel1(A4:AJ4)
Verwendete Systemkomponenten: [Windows (32-bit) NT 10.00] MS Excel 2016 
Diese Tabelle wurde mit Tab2Html (v) erstellt. ©Gerd alias Bamberg

Public Function Formel1(Bereich As Range) As Variant
  Dim varValues As Variant
  
  'Deine Werte - Anpassen 
  varValues = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, _
    28, 29, 30, 31, 32, 33, 34, 35, 36)

  On Error GoTo ErrorHandler
  
  If Bereich.Count = Ubound(varValues) + 1 Then
    If Bereich.Rows.Count = 1 Then
      Formel1 = Application.SumProduct(Bereich, varValues)
    ElseIf Bereich.Columns.Count = 1 Then
      Formel1 = Application.SumProduct(Bereich, Application.Transpose(varValues))
    Else
      Formel1 = CVErr(xlErrRef)
    End If
  Else
    Formel1 = CVErr(xlErrRef)
  End If
  Exit Function
  
ErrorHandler:
  Formel1 = CVErr(xlErrValue)
End Function

VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

Allerdings erschließt sich der Sinn einer solchen Funktion nicht, da man dieses Ergebnis auch mit der XL-Funktion SUMMENPRODUKT() erreichen kann.

Beliebteste Forumthreads (12 Monate)

Eigene Excel-Formel: Eingabewerte per Maus wählen

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q	R	S	T	U	V	W	X	Y	Z	AA	AB	AC	AD	AE	AF	AG	AH	AI	AJ	AK	AL
1
2
3	1	2	3	4	5	6	7	8	9	10	11	12	13	14	15	16	17	18	19	20	21	22	23	24	25	26	27	28	29	30	31	32	33	34	35	36	16206
4	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	1	666
5
6
7
8

Eigene Excel-Formel: Eingabewerte per Maus wählen

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread