VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} KopfD 
   Caption         =   "KopfD"
   ClientHeight    =   1605
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   1590
   OleObjectBlob   =   "KopfD.frx":0000
   StartUpPosition =   1  'CenterOwner
End
Attribute VB_Name = "KopfD"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim a(15) As Integer

Sub ComboBox()
Dim Excel As Excel.Application
Set Excel = CreateObject("Excel.Application")
ChDir "X:\Student\RHaase\Skripte"
Workbooks.Open Filename:="X:\Student\RHaase\Skripte\Senkung.xls"

KopfD.RowSource = "A1:A12"

Dim k As Integer
k = 0
Do
k = k + 1
a(k) = Excel.Cells(k, 1).Value
KopfD.AddItem a(k)
Loop Until (Excel.Cells((k + 1), 1).Value = "")

Workbooks.Close
Excel.Quit
End Sub