Ich habe keine Ahnung warum der Befehl Worksheets("Typen").Cells(T1,2).Value = Drahtzahl1 nicht funktioniert!!
Der bringt da immer Anwendungs oder Objektdefinierter Fehler!
Da ich in VBA noch nicht so bewandert bin hätte ich gerne Euren Rat. Ich bin auch gegenüber ganz anderen Lösungsvorschlägen sehr offen!
Hier mein Code:
For Each Zelle In Bereich
If Zelle = strOption Then
'strOption ist eine String Variable die
'von der Aufrufenden Funktion übergeben wird
For x = StückzahlGesI To Grenze Step 5
'Stückzahl.. ist der Anfangswert
StückzahlGesTyp1 = Worksheets("Werte").Cells(x, 2).Value
Drahtzahl1 = Zelle.Offset(0, -2).Value * StückzahlGesTyp1
'Bis hierhin läuft alles Bestens
Worksheets("Typen").Cells(T1, 2).Value = Drahtzahl1
T1 = T1 + 1
Next x
Else
If Zelle.Value = strOption1 Then
For y = StückzahlGesI To Grenze Step 5
StückzahlGesTyp2 = Worksheets("Werte").Cells(y, 3).Value
Drahtzahl2 = Zelle.Offset(0, -2).Value * StückzahlGesTyp2
Worksheets("Typen").Cells(T2, 3).Value = Drahtzahl1
T2 = T2 + 1
Next y
End If
End If
Next Zelle
Thanx Joule