AW: Änderung der Zellgröße -> Makro-Fehlermeldung
22.08.2007 11:16:30
Onkel
Hi Hubitz
nimm diese Function
Function Seildurchmesser(seillänge As Long) As Integer
Dim Anzahl_Seilstränge As Integer
Dim Anhängelast As Double
Dim Schachtwirkungsgrad As Double
Dim FE_SE As Integer ' Abfrage 1 = Fasereinlage / 2 = Stahleinlage
Dim Nennfestigkeit As Integer 'Abfrage Nennfestigkeit 1 = 1770 / 2 = 1960 N/mm²
Dim Geschwindigkeit As Single
Dim Seilmetergewicht As Double
Dim Gewicht As Integer
Dim Spalte As Integer
Dim x As Integer
Dim Durchmesser As Double
Dim Seilgewicht_gesamt As Double
Dim Seilzugkraft As Long
Dim Seilzugkraft_TAS As Long
Dim rechnerische_Bruchkraft As Double
Application.Volatile
With Sheets("Seil")
Anzahl_Seilstränge = .[L6].Value
Anhängelast = .[L7].Value
Geschwindigkeit = .[L8].Value
FE_SE = .[L9].Value
Nennfestigkeit = .[L10].Value
' ############################ Schachtwirkungsgrad ##################################
If Geschwindigkeit 1 And Geschwindigkeit 4 Then
Schachtwirkungsgrad = 0.85
End If
' ########################### Längengewicht des Seiles #################################
If FE_SE = 1 Then
Gewicht = 2
Else
Gewicht = 3
End If
' ########################### rechnerische Bruchkraft #################################
If Nennfestigkeit = 1 And FE_SE = 1 Then
Spalte = 4
ElseIf Nennfestigkeit = 1 And FE_SE = 2 Then
Spalte = 5
ElseIf Nennfestigkeit = 2 And FE_SE = 1 Then
Spalte = 6
ElseIf Nennfestigkeit = 2 And FE_SE = 2 Then
Spalte = 7
End If
' ****************************** Start der Schleife **************************************
For x = 12 To 41
Durchmesser = .Cells(x, 1).Value ' Seildurchmesser aus Tabelle
Seilmetergewicht = .Cells(x, Gewicht).Value ' Seilmetergewicht entsprechend _
Durchmesser
Seilgewicht_gesamt = Seilmetergewicht * seillänge
' ############################### Seilzugkraft #################################
Seilzugkraft = ((Anhängelast * 1000 + Seilgewicht_gesamt) * 9.81) / (Anzahl_Seilstränge * _
Schachtwirkungsgrad * 1000)
' ########################## Seilzugkraft mit Sicherheit ###########################
Seilzugkraft_TAS = Seilzugkraft * 7.5
' ########################## Vorauswahl Seilbruchkraft ###########################
rechnerische_Bruchkraft = .Cells(x, Spalte).Value ' rechnerische Bruchkraft aus _
Tabelle
If Seilzugkraft_TAS
dann sollte es funktionieren, Rückmeldung wäre wünschenswert
Gruss Onkel