Experten
ich habe eine Tabelle mit Erfolgszahlen.
In der ersten Zeile stehen die Monate (1-12) und z.b in der zweiten Zeile die Umsätze.
In einer weiteren variablen Zelle steht die Zahl des aktuellen Monates.
Ich möchte nun, dass Excel die Summe der Umsätze zusammen zählt, je nachdem, welcher Monat ich in der variablen Zelle eingebe. Z.b bei 4, soll er die Umsätze von 1-4 addieren, bei 8 die Umsätze von 1-8.
Hat jemand einen Lösungsansatz?
Grüezi swiss-boy
In der ersten Zeile stehen die Monate (1-12) und z.b in der
zweiten Zeile die Umsätze.
In einer weiteren variablen Zelle steht die Zahl des aktuellen
Monates.
Ich möchte nun, dass Excel die Summe der Umsätze zusammen
zählt, je nachdem, welcher Monat ich in der variablen Zelle
eingebe. Z.b bei 4, soll er die Umsätze von 1-4 addieren, bei
8 die Umsätze von 1-8.Hat jemand einen Lösungsansatz?
Wenn die Werte in A2:L2 stehen und deine Monatsangabe in A5, dann kannst Du die folgende Formel verwenden:
=SUMME(BEREICH.VERSCHIEBEN($A$2;;;1;A5))
–
Mit freundlichen Grüssen
Thomas Ramel
=SUMME(BEREICH.VERSCHIEBEN($A$2;;;1;A5))
Grüezi swiss-boy 
=SUMME(A2:INDIREKT(„Z2S“&B1:wink:)
PS: hast du die Telefonnummer von Michael Schwimmer? Wenn ja, wäre sehr nett du rufst ihn am WE mal an und fragst ihn warum sein Code bei mir (XL2000) erst beim zweiten Mal klappt *gg*.
Beim ersten Einfügen der BDF „Funktionstest“, erscheint „a,b,c“ zur Auswahl/Eingabe, lasse ich das leer und drücke OK, erscheint „#Wert“, was ja korrekt ist.
Rufe ich nun nochmals in der gleichen Zelle Einfügen–Funktion auf, so erscheint wie gewünscht die Auswahl „Variant1,Variant2,Variant3“ samt den gewünschten einzelenen Beschreibungen.
Im Forum von Hans konnte mir keiner helfen seit 4 Tagen, also wird da nix mehr kommen schätz 
((
Daß das Ganze flüchtig ist und in die Workbooks_Open-Prozedur gehört weiß ich, aber auch brachte mich nicht weiter den Code dort starten zu lassen.
Den Code hat Michael sowohl auf seiner HP als auch einmal im Internet zu einer Anfrage gepostet, also vermute ich den Fehler bei mir, weiß aber nicht wo der sich bei mir versteckt.
Schönes WE
Gruß
Reinhard
Option Explicit
'
Public Function Functionstest$(a, b, c)
'Dummy-Funktion, um das Prinzip zu zeigen
Functionstest = "Argument a=" & a & \_
", Argument b=" & b & ", Argument c=" & c
End Function
'
Public Sub Funktionsbeschreibung()
Dim strFunktionsname$, strParameter$
Dim strDummy$
Dim strKategorie$, strBeschreibung$
Dim strArgumentbeschreibung$(1 To 3)
Dim strAnf$, strÜbergabe$, strKomma$
strAnf = """": strKomma = ","
'Jede beliebige API - Funktion
'kann benutzt werden. Sie muss nur
'in der entsprechenden .dll vorhanden
'sein. Gross und -Kleinschreibung beachten.
strDummy = "kernel32" & strAnf & "," \_
& strAnf & "GetACP"
'Der Name der zu beschreibenden Funktion
strFunktionsname = "Functionstest"
'Die zukünftigen Parameternamen
strParameter = "Variant1,Variant2,Variant3"
'Die Kategorie
strKategorie = "Neuer Eintrag"
'Hier kommt die allgemeine Beschreibung hin
strBeschreibung = "Die übergebenen Parameter werden angezeigt"
'Die Beschreibung einzelner Parameter
strArgumentbeschreibung(1) = \_
"Der erste Parameter "
strArgumentbeschreibung(2) = \_
"Der zweite Parameter "
strArgumentbeschreibung(3) = \_
"Der dritte Parameter "
'Der String für das Excel4 Makro wird erstellt
strÜbergabe = "REGISTER(" & strAnf & \_
strDummy & strAnf
strÜbergabe = strÜbergabe & strKomma & \_
strAnf & strAnf
strÜbergabe = strÜbergabe & strKomma & \_
strAnf & strFunktionsname & strAnf
strÜbergabe = strÜbergabe & strKomma & \_
strAnf & strParameter & strAnf
strÜbergabe = strÜbergabe & strKomma & \_
strAnf & "1" & strAnf
strÜbergabe = strÜbergabe & strKomma & \_
strAnf & "" & strKategorie & strAnf
strÜbergabe = strÜbergabe & strKomma & \_
strKomma
strÜbergabe = strÜbergabe & strKomma & \_
strAnf & strBeschreibung & strAnf
strÜbergabe = strÜbergabe & strKomma & \_
strAnf & strArgumentbeschreibung(1) \_
& strAnf
strÜbergabe = strÜbergabe & strKomma & \_
strAnf & strArgumentbeschreibung(2) \_
& strAnf
strÜbergabe = strÜbergabe & strKomma & \_
strAnf & strArgumentbeschreibung(3) \_
& ". " & strAnf
strÜbergabe = strÜbergabe & ")"
'Das Excel4 Makro wird gestartet
Application.ExecuteExcel4Macro strÜbergabe
End Sub
Public Sub UnregisterFunctionsbeschreibung()
Dim strFunktionsname$
Dim strAnf$, strÜbergabe$, strKomma$
Dim strDummy$
'Hier wird die Beschreibung gelöscht
strAnf = """": strKomma = ","
strDummy = "kernel32" & strAnf & "," & \_
strAnf & "GetACP"
strFunktionsname = "Functionstest"
strÜbergabe = "REGISTER(" & strAnf & \_
strDummy & strAnf
strÜbergabe = strÜbergabe & strKomma & \_
strAnf & strAnf
strÜbergabe = strÜbergabe & strKomma & \_
strAnf & strFunktionsname & strAnf
strÜbergabe = strÜbergabe & strKomma & \_
strKomma & "0)"
Application.ExecuteExcel4Macro strÜbergabe
strÜbergabe = "UNREGISTER(" & strFunktionsname & ")"
Application.ExecuteExcel4Macro strÜbergabe
End Sub
Grüezi Reinhard
=SUMME(BEREICH.VERSCHIEBEN($A$2;;;1;A5))
Grüezi swiss-boy
Na, na! Willst Du wohl artib bleiben…! 
=SUMME(A2:INDIREKT(„Z2S“&B1:wink:)
INDIREKT() ist bäh (nur wenns nicht anders geht)
PS: hast du die Telefonnummer von Michael Schwimmer? Wenn ja,
wäre sehr nett du rufst ihn am WE mal an und fragst ihn warum
sein Code bei mir (XL2000) erst beim zweiten Mal klappt *gg*.
Keine Ahnung; mit sooooo alter Software arbeite ich nicht (mehr)…
Ne, Spass beiseite - IMO klappen alle diese Zuweisungen nicht sehr sauber. Eine schöne und recht robuste Lösung findest Du hier:
http://www.jkp-ads.com/Articles/RegisterUDF00.htm
–
Mit freundlichen Grüssen
Thomas Ramel
Grüezi Thomas,
Grüezi swiss-boy
Na, na! Willst Du wohl artib bleiben…!
an dieser goldenen Brücke konnte ich einfach nicht vorbeilaufen, ich habe ja schon großzügig übersehen daß InteRger neuerdings bis plus 32768 gehen soll *gg*
wäre sehr nett du rufst ihn am WE mal an und fragst ihn warum
sein Code bei mir (XL2000) erst beim zweiten Mal klappt *gg*.
Ne, Spass beiseite - IMO klappen alle diese Zuweisungen nicht
sehr sauber. Eine schöne und recht robuste Lösung findest Du
hier:
Danke dir, wenn keine Rückmeldung kommt, läuft der Code auch auf altertümlicher Software
Gruß
Reinhard
Grüezi Reinhard
Grüezi Thomas,
…siehst Du, das klappt doch…
an dieser goldenen Brücke konnte ich einfach nicht
vorbeilaufen, ich habe ja schon großzügig übersehen daß
InteRger neuerdings bis plus 32768 gehen
soll *gg*
Das eine Bit nehm ich auf meine Kappe - ich wusste bloss, dass das Zählen bei der Hälfte der Zeilen eines 2003-er Tabellenblattes aussteigt, da habe ich kurz die Rechnung gemacht und nicht in der Hilfe nachgesehen - mea culpa.
…aber der neue Datentyp geht nicht auf meine Kappe…
Danke dir, wenn keine Rückmeldung kommt, läuft der Code auch
auf altertümlicher Software
Ich fänds nett, wenn Du von deinen Erfahrungen berichtest - Feedback von kritischen Profis find ich immer gut.
Mit freundlichen Grüssen
Thomas Ramel
–
Grüezi Thomas,
an dieser goldenen Brücke konnte ich einfach nicht
vorbeilaufen, ich habe ja schon großzügig übersehen daß
InteRger neuerdings bis plus 32768 gehen
soll *gg*Das eine Bit nehm ich auf meine Kappe - ich wusste bloss, dass
das Zählen bei der Hälfte der Zeilen eines 2003-er
Tabellenblattes aussteigt, da habe ich kurz die Rechnung
gemacht und nicht in der Hilfe nachgesehen - mea culpa.
du solltest mich langsam kennen, bin doch kein Erbsenzähler, 32000, 33000, wen interessiert das, mich garantiert nicht, ich frotzel halt sehr gerne mit Menschen die ich nett finde
…aber der neue Datentyp geht nicht auf meine Kappe…
*gg*
Ich mache es ja auch gelegentlich auch, aber letztlich ist es blöd den Code nicht reinzukopieren sondern zu versuchen selbst zu schreiben in w-w-w.
Vertippsler sind da ruckzuck da weil einem der Compiler/Debugger nicht auf die Finger haut.
Danke dir, wenn keine Rückmeldung kommt, läuft der Code auch
auf altertümlicher SoftwareIch fänds nett, wenn Du von deinen Erfahrungen berichtest -
Feedback von kritischen Profis find ich immer gut.
Profi? Hihi, ich blick beim Code erstmal noch gar nicht durch, aber scheint genial zu sein, klappt auch alles was ich schon probierte *sehr freu*
Bevor ich schaue wie ich das einsetze für eigene Funktionen und dies dann teste, eruiere ich erstmal wie das geht daß bei der einen Demo erst 2 Parameter da sind, geht man in den zweiten erscheint ein Dritter usw., das hat mich fasziniert und interessiert mich erstmal zuerst .
Nochmals danke für den CodeLink
Gruß
Reinhard
Grüezi Reinhard
an dieser goldenen Brücke konnte ich einfach nicht
vorbeilaufen, ich habe ja schon großzügig übersehen daß
InteRger neuerdings bis plus 32768 gehen
soll *gg*Das eine Bit nehm ich auf meine Kappe - ich wusste bloss, dass
das Zählen bei der Hälfte der Zeilen eines 2003-er
Tabellenblattes aussteigt, da habe ich kurz die Rechnung
gemacht und nicht in der Hilfe nachgesehen - mea culpa.du solltest mich langsam kennen, bin doch kein Erbsenzähler,
32000, 33000, wen interessiert das, mich garantiert nicht, ich
frotzel halt sehr gerne mit Menschen die ich nett finde
Das geht mir doch genau so - zwei Geister; ein Gedanke
…aber der neue Datentyp geht nicht auf meine Kappe…
Ich mache es ja auch gelegentlich auch, aber letztlich ist es
blöd den Code nicht reinzukopieren sondern zu versuchen selbst
zu schreiben in w-w-w.Vertippsler sind da ruckzuck da weil einem der
Compiler/Debugger nicht auf die Finger haut.
Ja ich stelle immer wieder fest, dass wenn ich nur tippe ich mich mehr vertippe als wenn ich den Code sauber im VBA-Editor entwerfe, kurz mal laufen lasse und dann per Copy/Paste in den Beitrag kopiere.
Nochmals danke für den CodeLink
Da nicht für - ist gern geschehen
Mit freundlichen Grüssen
Thomas Ramel
–