Sub KMLaden()
Dim i As Integer
Dim nc As Long
Dim hfmix As String * 80
Dim hrf As String * 3
Dim ierr As Long
Dim herr As String * 255
Dim htyp As String * 3
Dim t As Double, D As Double, p As Double, _
tmin As Double, tmax As Double, pmax As Double, h As Double
Dim kph As Long
Dim herr1 As String * 255
Sheets("KM").Select
Range("C10").Value = "bitte warten !"
For i = 1 To 5
hfiles(i) = Cells(4, i + 24).Value
z(i) = Cells(2, 29 + i).Value
Next i
For i = 1 To 21
K(i) = Cells(2, i + 34).Value
Next i
nc = K(1)
hfmix = Range("I3").Value
hrf = "IIR"
herr = " "
rp_setup nc, hfiles(), hfmix, hrf, ierr, herr
Range("a29").Value = " "
Range("a28").Value = Range("I1").Value
If Abs(ierr) > 0 Then
Range("a29").Value = herr
End If
Range("C31").Value = K(7)
Range("C10").Value = " "
Range("A1").Select
End Sub