Excel im betrieblichen Umfeld

CommandButton Ereignis (Objektname CommandButton1) füllt Listbox (Objektname Listbox1) mit Werten aus Tabelle Tabelle1, Bereich A2:A50 Private Sub CommandButton1_Click() ListBoxFuellen ListBox1 , ThisWorkbook.Worksheets("Tabelle1").Range("A2:A50") End Sub Verweis letzte belegte Zeile ermitteln Funktion ListBoxFuellen werden als Parameter ein Listbox Objekt ( ListBox1 ) sowie Bereich ( ThisWorkbook.Worksheets("Tabelle1").Range("A2:A50") ) übergeben.   Private Sub ListBoxFuellen ( DieListbox As MSForms.ListBox , DerRange As Range ) With DieListbox   .ColumnCount = DerRange.Columns.Count   .List = DerRange.Value End With End Sub Beide Funktionen sind in dem Userform Objekt gekapselt. Um Einträge in der ListBox zielgerichtet zu finden, kann man zusätzlich noch ein Textfeld (Name = txtSuche) integrieren. Über z.B. einen weiteren Button (Ereignis Klick) kann die Suche ausgeführt werden.

Deckungsbeitragsrechnung (NettoVK - Bezugspreis) kann mittels Pivottabelle (Kontext Menü Pivot Tabletools -> Analysieren) und berechnete Felder erfolgen. Exkurs Power Pivot : wenn der NettoVK über die Zeit gleichbleibend ist, kann man diesen alternativ in eine weitere Tabelle auslagern (Artikel, NettoVK, Normalisierung von Tabellen) und über Power Pivot eine Relation (1:N) zwischen beiden Tabellen herstellen (Modellierung, DAX Funktion RELATED() ). Auf Basis dieses Modells kann der DB über measures zeilenweise berechnet (Spaltenberechnung) und summiert werden (Feldberechnung). berechnetes Feld über Pivottabelle einfügen (Reiter Analysieren -> Felder, Elemente und Gruppen) Ergebnis: berechnetes Feld DB (Summe von DB) zeigt die Summe der DBs über einzelne Artikel (zeilenweise Berechnung von NettoVK-Bezugspreis) einer Gruppe (=Artikel = Erdbeere, Himbeere, Stachelbeere) an

Public Sub Suchen_FindMethode() Dim strSuche As String Dim c As Range strSuche = "Test" With ActiveSheet.Range("a1:a500") 'Suchbereich     Set c = .Find(strSuche, LookIn:=xlValues)         If Not c Is Nothing Then                     Do             'Zeilenindex der gefundenen Zelle             'Debug.Print c.Row                 c.Value = "gefunden"                 Set c = .FindNext(c)             Loop While Not c Is Nothing         End If End With End Sub

Mit folgender VBA Funktion wird die letzte belegte Zeile einer Spalte ermittelt. der Paramter 1 steht hierbei für Spalte A und kann entsprechend der Anforderung angepasst werden. CELLS(Zeile;Spalte) Public Sub letzte_Zeile() 'Hier wir die letzte Zeile der Spalte A ermittelt Dim letzteZeile As Long letzteZeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row MsgBox letzteZeile End Sub

Holger Gubbels beschreibt in folgendem Artikel sehr schön, wie man mit Excel Power Pivot und Theobald Software SAP Daten über Datenfeeds auswerten kann. http://powerpivotinsights.de/sap_daten_in_power_pivot_auswerten/ Wie man Datenfeeds im Sharepoint Umfeld erstellen kann beschreibt dieser Artikel.

Mit Pivottechnik und der Matrixfunktion HÄUFIGKEIT(Daten,Klassen) kann eine klassische ABC-Analyse (80%, 15%, 5%) erstellt werden. Hierzu einfach das Wert Feld (im Beispiel Wert je Artikel) zweimal in die Pivot ziehen, das erste Mal mit der Aggregat-Funktion SUMME (Wert zusammenfassen nach), das zweite Mal über die Werteinstellungen auf "Werte anzeigen als -> % von Ergebnis in" ändern. Ergebnis ist der kumulierte Anteil in % Im Folgenden kann die Anzahl der Artikel je Klasse mit der Matrixfunktion HÄUFIGKEIT(Daten, Klassen) ermittelt werden: Pareto Analyse mit Power Pivot