Re: von - bis combobox abhängigkeit
23.06.2003 14:56:45
Schnukker
hey Chris,wirklich herzlichen Dank für deine Hilfe. Dein code funkt leider nicht ganz bei mir. Es kompiliert fehlerfrei aber leider sind immer noch alle monate in der box vorhanden. In der zwischenzeit habe ich das problem so versucht zu lösen. Meine Programmierkenntnisse in Excel sind leider sehr beschränkt da ich ein newbie bin (seit 3 wochen gerademal dass ich VB kenne) und hab mir deshalb etwas einfaches zusammengebastelt. Aus irgendeinem Grund bekomme ich aber immer einen Laufzeitfehler und excel stürzt sogar ab. ich hab folgendes:
Private Sub ComboBox1_Change()
Dim d As Date, z As Range
ComboBox1 = CDate(ComboBox1)
'ComboBox1 = Format(ComboBox1, "mmm.yyyy")
Cells(100, 1) = CDate(Cells(100, 1))
d = Cells(100, 1).Value
For Each z In Range("A101", Range("A500").End(xlUp))
If z = d Then
If Not IsEmpty(z.Offset(1, 0)) Then
Range(z, z.End(xlDown)).Select
Selection.Copy
Range("B101").Select
Selection.PasteSpecial
Else: z.Select
Selection.Copy
Range("B101").Select
Selection.PasteSpecial
End If
Next z
Sheets("A").Shapes("ComboBox2").Select
Selection.ListFillRange = Range(Sheets("A").Range("B101"), Sheets("A").Range("B101").End(xlDown)).Address
Selection.LinkedCell = Sheets("A").Range("A99").Address
Auf was ist so ein Fehler meist zurückzuführen?
Vielen, vielen Dank