Überlauf Fehler
03.11.2004 20:09:49
Ingo
Ich habe schon das Forum durchsucht und meine eigenen Kenntnisse sind nun am Ende.
Beim Einfügen von Formeln es sind ein paar mehr)per Makro in ein Auswertungsblatt (Bezüge) wird der Makro abgebrochen, sobald meine Variable den Wert 32500 überschreitet.
Sämtliche Variablen-Typen ausprobiert!
Es kommt der Hinweis "Laufzeitfehler'6' Überlauf!
hier mein Code:
Sub Makro4()
Dim Zelle As Range
Dim KW As Integer, I As Integer
Dim Target1 As Double
Dim Target2 As Double
Dim Target3 As Double
Dim target4 As Double
Dim target5 As Double
Dim target6 As Double
Dim target7 As Double
KW = 41
For I = 51 To 100
Target1 = KW * 7 - 5 + 378 * (I - 1)
Cells(I + 9, 6) = "=IF(Daten!H" & Target1 & "=0,,Daten!H" & Target1 & ")"
Target2 = KW * 7 - 4 + 378 * (I - 1)
Cells(I + 9, 21) = "=IF(Daten!H" & Target2 & "=0,,Daten!H" & Target2 & ")"
Target3 = KW * 7 - 3 + 378 * (I - 1)
Cells(I + 9, 36) = "=IF(Daten!H" & Target3 & "=0,,Daten!H" & Target3 & ")"
target4 = KW * 7 - 2 + 378 * (I - 1)
Cells(I + 9, 51) = "=IF(Daten!H" & target4 & "=0,,Daten!H" & target4 & ")"
target5 = KW * 7 - 1 + 378 * (I - 1)
Cells(I + 9, 66) = "=IF(Daten!H" & target5 & "=0,,Daten!H" & target5 & ")"
target6 = KW * 7 + 378 * (I - 1)
Cells(I + 9, 81) = "=IF(Daten!H" & target6 & "=0,,Daten!H" & target6 & ")"
target7 = KW * 7 + 1 + 378 * (I - 1)
Cells(I + 9, 96) = "=IF(Daten!H" & target7 & "=0,,Daten!H" & target7 & ")"
Next I
Worksheets("Wochenplan").Range("F60:F109").Copy
Worksheets("Wochenplan").Range("G60:Q60").PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Worksheets("Wochenplan").Range("F60:Q109").Copy
Range("F60").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Worksheets("Wochenplan").Range("U60:U109").Copy
Worksheets("Wochenplan").Range("V60:AF60").PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Worksheets("Wochenplan").Range("U60:AF109").Copy
Range("U60").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Worksheets("Wochenplan").Range("AJ60:AJ109").Copy
Worksheets("Wochenplan").Range("AK60:AU60").PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Worksheets("Wochenplan").Range("AJ60:AU109").Copy
Range("AJ60").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Worksheets("Wochenplan").Range("AY60:AY109").Copy
Worksheets("Wochenplan").Range("AZ60:BJ60").PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Worksheets("Wochenplan").Range("AY60:BJ109").Copy
Range("AY60").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Worksheets("Wochenplan").Range("BN60:BN109").Copy
Worksheets("Wochenplan").Range("BO60:BY60").PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Worksheets("Wochenplan").Range("BN60:BY109").Copy
Range("BN60").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Worksheets("Wochenplan").Range("CC60:CC109").Copy
Worksheets("Wochenplan").Range("CD60:CN60").PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Worksheets("Wochenplan").Range("CC60:CN109").Copy
Range("CC60").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Worksheets("Wochenplan").Range("CR60:CR109").Copy
Worksheets("Wochenplan").Range("CS60:DC60").PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Worksheets("Wochenplan").Range("CR60:DC109").Copy
Range("CR60").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F60:DC109").Select
For Each Zelle In Selection
If Zelle = 0 Then
Zelle.ClearContents
End If
Next Zelle
End Sub
Ich bin so langsam am verzweifeln und bekomme die Umgestaltung der Daten aus der Tabelle Daten einfach nicht hin.
Vielleicht habe ich ja irgendetwas übersehen.
P.S. Für den Bereich bis I= 87 funktioniert alles sauber!
Hoffe auf eure Hilfe
PPS: VBA nein ist wahrscheinlich untertrieben!!