in einem Makro versuche ich, in Abhängigkeit gewisser Bedingungen Tabellenblätter zu füllen. Hierbei habe ich einige Variablen als Static deklariert (im Beispiel MatNr). Die Variable MatNr wird an die Funktion Bedingung_erfüllt übergeben, an die Funktion AppendZeile jedoch nicht :
sub Auswertung_füllen()
…
Static MatNr
…
DieseZeile = 2
Do Until DieseZeile > LetzteZeile_UZE2
MatNr = Range("A" & DieseZeile).Value
DieseAuswertung = 1
Do Until DieseAuswertung > 4
If Bedingung_erfüllt () = true Then
If AppendZeile() = true Then
AryLetzte_Zeile(DieseAuswertung - 1) = _
AryLetzte_Zeile(DieseAuswertung - 1) + 1
End If
End If
DieseAuswertung = DieseAuswertung + 1
Loop
DieseZeile = DieseZeile + 1
Loop
End Sub
Wer weiß Rat ?