Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
628to632
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
628to632
628to632
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Abschlussprüfung der KAO (Danke)

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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Abschlussprüfung der KAO (Danke)
25.06.2005 21:31:38
Uduuh
Hallo,
und was soll das?
Gruß aus’m Pott
Udo

AW: Abschlussprüfung der KAO (Danke)
25.06.2005 22:36:59
Kurt
Hi,
hat auch max. ne 3 gebracht, oder?
mfg Kurt
AW: Abschlussprüfung der KAO (Danke)
26.06.2005 01:09:01
Herb
JA WAS DENN SONST?
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige