Abschlussprüfung der KAO (Danke)
25.06.2005 17:47:55
Ashtray
Private Sub cbo_Kaufverhalten_Change()
Dim i As Integer
Dim a As Integer
Dim frm As UserForm
Dim index As Long
Dim filiale As String
Dim iMax As Integer
Set frm = frm_menü
index = cbo_Kaufverhalten.ListIndex
On Error Resume Next
filiale = frm_cbo_Kaufverhalten.List(index)
Sheets("Filiale").Select
Columns("A:A").Select
Selection.Find(What:=filiale).Activate
End Sub
-------------------------------------------------------------------------------
Private Sub cmd_Eintragen_Click()
Dim frm As Object
Set frm = frm_menü
Dim i
Dim IR%
Sheets("Kaufverhalten").Activate
Range("d1").Select
ActiveCell.Value = cbo_Kaufverhalten
If cbo_Produkt.Value = Sheets("Produkt").Range("A2") Then
Range("B3").Value = cbo_Produkt
Range("B4").Value = Val(txt_Frau)
Range("B5").Value = Val(txt_Mann)
Range("B6").Value = Val(txt_Kinder)
ElseIf cbo_Produkt.Value = Sheets("Produkt").Range("A3") Then
Range("C3").Value = cbo_Produkt
Range("C4").Value = Val(txt_Frau)
Range("C5").Value = Val(txt_Mann)
Range("C6").Value = Val(txt_Kinder)
ElseIf cbo_Produkt.Value = Sheets("Produkt").Range("A4") Then
Range("D3").Value = cbo_Produkt
Range("D4").Value = Val(txt_Frau)
Range("D5").Value = Val(txt_Mann)
Range("D6").Value = Val(txt_Kinder)
End If
If Range("B4") = "" Then
ListBox1.Visible = False
ElseIf Range("C4") = "" Then
ListBox1.Visible = False
ElseIf Range("D4") = "" Then
ListBox1.Visible = False
Else
ListBox1.Visible = True
End If
End Sub
-------------------------------------------------------------------------------
Private Sub UserForm_Initialize()
Set frm = frm_menü
index = cbo_Kaufverhalten.ListIndex
indexa = cbo_Produkt.ListIndex
cbo_Kaufverhalten.SetFocus
cbo_Kaufverhalten.Clear
cbo_Produkt.SetFocus
cbo_Produkt.Clear
With frm.cbo_Kaufverhalten
iMax = Sheets("Filiale").UsedRange.Rows.Count
For i = 1 To iMax
.AddItem Worksheets("Filiale").Cells(i, 1)
Next i
End With
With frm.cbo_Produkt
aMax = Sheets("Produkt").UsedRange.Rows.Count
For a = 2 To aMax
.AddItem Worksheets("Produkt").Cells(a, 1)
Next a
End With
With ListBox1
.ColumnCount = 6
.ColumnHeads = True
.RowSource = "Kaufverhalten!A3:E8"
End With
End Sub