VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Nutzwertanalyse beim Haukauf

Gruppe

Funktion

Bereich

SUMME

Thema

Nutzwertanalyse beim Haukauf

Problem

Als Entscheidungsvorbereitung für einen Hauskauf soll eine Nutzwertanalyse durchgeführt werden.

Lösung

Nur anhand einer Beipspielarbeitsmappe darstellbar.




ClassModule: Tabelle12

Private Sub CommandButton1_Click()
    UserForm1.Show
End Sub

ClassModule: frmNoEmptys

Private Sub cmdContinue_Click()
    Unload Me
End Sub

Private Sub UserForm_Initialize()
   Dim iRow As Integer, iRowL As Integer
   iRowL = Cells(Rows.Count, 1).End(xlUp).Row
   For iRow = 1 To iRowL
      If Not IsEmpty(Cells(iRow, 1)) Then
         cbonoemptys.AddItem Cells(iRow, 1).Value
      End If
   Next iRow
End Sub

StandardModule: basMain

Sub CallForm()
   frmNoEmptys.Show
End Sub

    


Beiträge aus dem Excel-Forum zu den Themen Funktion und SUMME