8

Arbeit (Subject) / VBA (Lesson)

This lesson was created by chrdic.

Learn lesson

This lesson is not released for learning.

back  |  next 1 / 1

• Funktion zum Maximum Berechnen   Public Function FktMaximum(x, N) Dim i As Integer Dim Max As Single   Max = x(1) For i = 2 To N If Max < x(i) Then     Max = x(i) End If Next i FktMaximum = Max   End Function
• Funktion zum Mittelwert Berechnen Public Function FktMittelwert(x, N) Dim i As Integer Dim SuMme As Single   For i = 1 To N     SuMme = SuMme + x(i) Next i FktMittelwert = SuMme / N   End Function
• Spalten D und E leeren Worksheets("Lieferantenliste").Range("D3:E" & lastrow).ClearContents
• Variable lastrow mit Anzahl der gefüllten Zeilen in Spalte B füllen lastrow = Worksheets("Lieferantenliste").Range("B" & Rows.Count).End(xlUp).Row  
• neue Spalten einfügen (bisherige nach rechts verschieben) Worksheets("Lieferantenliste").Columns("U:Z").Insert shift:=xlToRight
• Suchbereich B1 bis Variable lastrow festlegen With Worksheets("Lieferantenliste").Range("B1:B" & lastrow)
• Typen von Prozeduren - Sub (Operationen) - Function (gibt einen Wert zurück) - Property (legen Eigenschaften fest)
• Löschen aller Butttons im Tabellenblatt ActiveSheet.Buttons.Delete

back  |  next 1 / 1