Excel-Add-in

An dieser Stelle möchte ich nicht Tipps geben, wie man Excel bedienen kann, sondern mein Add-In für Excel zur Verfügung stellen mit einer Reihe von zusätzlichen Funktionen, die das Arbeiten - in meinen Augen - wesentlich erleichtern. 

Auflistung der Formeln:

ausgewählte Formeln erklärt

Addition von Zahlen innerhalb eines bestimmten Bereiches

Um beispielsweise alle Zahlen innerhalb eines Bereiches die größer sind als 10 und kleiner sind als 15 zu addieren (ohne Grenzen)

Um beispielsweise alle Zahlen innerhalb eines Bereiches die größergleich 10 und kleinergleich 15 sind zu addieren (mit Grenzen)

Diese Formel kann auch sehr nützlich benutzt werden, um nur positive Zahlen zu addieren, oder nur negative usw. Ursprünglich wurde sie entwickelt, um statistische Ausreißer zu entfernen.

Hinweis: die selbe Funktion gibt es auch als Produkt, Substraktion.

Ergebnis innerhalb eines Bereiches

Diese Funktion wurde ursprünglich entwickelt, um Wertetabellen von Funktionen mit vorgegebenen Definitionsbereichen zu zeichnen. 

Diagramme

Diagrammlinien mittels Nummer oder Name ein-/ausblenden

Textfeld

Public Sub Linien_ein_ausblenden(strDiagramm As String, LineNumber As Integer)     ActiveSheet.ChartObjects(strDiagramm).Activate     ActiveChart.SeriesCollection(LineNumber).Select     If Selection.Format.Line.Visible = msoTrue Then         Selection.Format.Line.Visible = msoFalse     ElseIf Selection.Format.Line.Visible = msoFalse Then         Selection.Format.Line.Visible = msoTrue     End IfEnd SubPublic Sub Linien_ein_ausblenden_byName(strDiagramm As String, strName As String)     Dim i As Integer     ActiveSheet.ChartObjects(strDiagramm).Activate     For i = 1 To ActiveChart.SeriesCollection.Count         If ActiveChart.SeriesCollection(i).Name = strName Then         ActiveChart.SeriesCollection(LineNumber).Select             If Selection.Format.Line.Visible = msoTrue Then                 Selection.Format.Line.Visible = msoFalse             ElseIf Selection.Format.Line.Visible = msoFalse Then                 Selection.Format.Line.Visible = msoTrue             End If         End If     Next i End Sub

Textfunktionen

Text rechts von Seperator

Public Function text_rechts_von(strText As String, strSep As String)     text_rechts_von = Right(strText, Len(strText) - InStr(strText, strSep))End Function

Text links von Seperator

Public Function text_links_von(strText As String, strSep As String)     text_links_von = Left(strText, InStr(strText, strSep) - 1)End Function