Hallo,

in meinem Excel-VBA-Script rufe ich an einer Stelle ein Modul auf (hier: "test"), welches dafür sorgt, dass - abhängig von einer "1" in einer bestimmten Spalte - verschiedene Felder in der jeweiligen Zeile kopiert werden. Hier ein Testmodul, das anstelle der Kopier-Zeilen eine (die zweite) MsgBox enthält (die erste MsgBox dient mir nur zur Überprüfung, ob überhaupt rein gesprungen wird):

Sub test()
Dim myReporting_taeglich_Quelle As Range
Dim myReporting_taeglich_Ziel As Range

Set myReporting_taeglich_Quelle = Range("ExcName_Reporting_taeglich_Quelle")
Set myReporting_taeglich_Ziel = Range("ExcName_Reporting_taeglich_Ziel")

MsgBox "test"

SpalteQuelle = Range(myReporting_taeglich_Quelle.Address).Column
SpalteZiel = Range(myReporting_taeglich_Ziel.Address).Column

intLetzteZeile = Sheets("Auswertung FM-DB-Int").Cells(Rows.Count, SpalteQuelle - 1).End(xlUp).Row
For intZaehler = intLetzteZeile To 108 Step -1
If Cells(intZaehler, SpalteZiel + 6) = "1" Then
MsgBox intZaehler & vbCrLf & Cells(intZaehler, SpalteZiel + 6)
End If
Next intZaehler
End Sub

Dies lief mehrere Monate gut. Inzwischen finden die Kopieraktionen aber nicht mehr statt, obwohl in der jeweiligen Zelle eine "1" steht und definitiv nach "test" gesprungen wird. Aus irgend welchen Gründen wird die "1" nicht mehr als "1" erkannt und die Kopieraktionen bleiben aus.

Hat jemand eine Ahnung, warum so etwas "von heute auf morgen" nicht mehr funktioniert?

Nach vielen Tests habe ich keine Lösung und auch keine Ideen mehr, was ich noch versuchen kann.

Vielen Dank schon mal
Jojo