Das stimmt ... das ist nichts neues :-), ich habe heute kein Gel in den Haaren also mach ich mich heute auch bei jedem zum Eimer der mich sieht ;) aber da ändert sich ja nichts an der Gesamtsituation hehe.

Ich sitz hier vor dem scheiss VBA Code den ich zusammengeschrieben habe und er bringt mir einen Fehler und zwar das ich eine Eigenschaft auf eine Funktion anwende die nicht zulässig ist, wenn ich den ganzen Code aus der Funktion entferne die Funktion aber bestehen bleibt also:

Function Die_Funktion(Übergabe_Parameter)

Code

End Function

Wenn ich nun den Code entferne funktioniert es, ist der Code drin kommt ein Fehler aber ich habe den Code Stück für Stück auseinander genommen ich habe keine Ahnung woran es liegt. Hier mal die gesamte Funktion, wenn du Zeit hast sieh sie mal durch vielleicht findest du etwas das ich übersehen habe, ist nicht sehr viel:

Function summe_such(iCounter, summe, aktspalte)

Dim leerzeile As Integer
Dim merk_zeile As Integer
leerzeile = 0
merk_zeile = 0

bl = ActiveSheet

With bl

  If .Cells(iCounter, aktspalte) = summe Then

   merk_zeile = iCounter + 1
   iCounter = iCounter + 1

   Do While .Cells(iCounter, aktspalte - 1) = ""

    iCounter = iCounter + 1

    leerzeile = leerzeile + 1

   Loop

   If leerzeile > 1 Then

    .HPageBreaks.Add Before:=.Cells(merk_zeile, aktspalte)

   End If

  End If

End With

End Function

Mmh soviel zu meiner Arbeit im Moment ;-).

Nebenbei mache ich dich grade in OGame, punktemäßig, fertig hrhr :-). Irgendwie ist unsere Allianz wieder auf Platz 100 gefallen :-( da muss ich doch gleich mal wieder meine Ressourcen verbauen damit wir wieder aufsteigen :-).

Und sonst wie stehts mit deiner Gefühlslage zur Zeit. Das du ja wieder auf Bianka aus bist habe ich ja mitbekommen...
Biste schon voll und Ganz über Jule hinweg? Ich denke mal nicht das ich nochmal von den beiden hören werde ... was Jule anbelangt, naja ich weiß nicht ob sie genug Anstand hat dir nochmal zu schreiben aber ich schätze sie einfach mal so ein.

Greetings

Ich :D