ich hab da ein Frage zu einem für mich nicht nachvollziehbaren Verhalten einer IF Anweisung.
Der Code für die Anweisung lautet:
If Sheets("NA").Cells(6, 1).Value <> "" Then
Worksheets("NA").Range("A5:E5").Copy
Worksheets("NA").Range("A6:E" & Range("A65536").End(xlUp).Row).PasteSpecial xlPasteFormats
Application.CutCopyMode = False
End If
Jetzt zu dem Problem. Wenn ich diese Anweisung in eine eigene Prozedur schreib und einer Schaltfläche in der Arbeitsmappe diese Prozedur zuweise funktioniert alles einwandfrei. D.h. von Zeile 6 bis zur letzten vollen Zeile erhalten alle das Format der Zeile 5.
Wenn ich nun die Anweisung in eine andere Prozedur einbaue und diese Prozedur ausführe, werden alle Zeilen von 6 bis 16 so formatiert wie Zeile 5. Es ist dabei ganz egal, ob z.B. Zeile 7 oder Zeile 34 die letzte ausgefüllte Zeile ist, es werden immer nur die Zeilen 6 bis 16 formatiert.
Kann mir einer von euch diese Verhalten erklären?
Bin für jeden Tipp dankbar!
Gruß
Franz