Hallo zusammen,
ich hatte gestern in Excel 2007 folgendes kleines Programm geschrieben und heute auf der Arbeit wo ich es brauche funktioniert es nicht mehr. (Ist zwar ein älteres Excel, aber die Befehle sind ja die gleichen...
Der Fehler tritt immer nach den Deklarationen auf bei Bauteil =.... und Gewicht =....
Über einen Hinweis oder sogar eine Lösung freue ich mich sehr!
Sub Projekt()
Dim i As Variant
Dim j As Variant
Dim k As Variant
Dim Bauteil As Variant
Dim Gewicht As Variant
Bauteil = Worksheets("Analysetool").Cells(9, 4).Value
Gewicht = Worksheets("Analysetool").Cells(19, 4).Value
If Bauteil = 1 Then Worksheets("Analysetool").Cells(9, 4).Value = "Brüstung"
If Bauteil = 2 Then Worksheets("Analysetool").Cells(9, 4).Value = "Kontrollleuchte"
If Bauteil = 3 Then Worksheets("Analysetool").Cells(9, 4).Value = "Rahmen"
If Gewicht = 1 Then Worksheets("Analysetool").Cells(19, 4).Value = "0-0,3"
If Gewicht = 2 Then Worksheets("Analysetool").Cells(19, 4).Value = "0,3-0,7"
If Gewicht = 3 Then Worksheets("Analysetool").Cells(19, 4).Value = "0,7-1"
If Gewicht = 4 Then Worksheets("Analysetool").Cells(19, 4).Value = "1-2"
For i = 1 To 216
For k = 1 To 216
If Worksheets("Auswertung").Cells(i + 1, 3).Value = Bauteil Then
If Worksheets("Auswertung").Cells(k + 1, 11).Value = Gewicht Then
Worksheets("Analysetool").Cells(9, 9).Value = Worksheets("Auswertung").Cells(i + 1, 2).Value
End If
End If
Next
Next
End Sub
Freundlichen Grüße,
David
|