picture

2024-10-01 11:02:00 +02:00
parent a5921c5faf
commit 76fbf96823
13 changed files with 35 additions and 24 deletions
--- a/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb
+++ b/VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb
@@ -246,7 +246,7 @@ BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, [Control], New Object(
            wb.Worksheets(0).Tables.FirstOrDefault().ShowAutoFilter = ShowAutoFilter

            If rangeAsWaehrung IsNot Nothing Then
-                For Each r In rangeAsWaehrung
+                For Each r As IXLRangeAddress In rangeAsWaehrung
                    Try
                        wb.Worksheets(0).Range(r).Style.NumberFormat.SetFormat("###,###,##0.00 €")
                    Catch ex As Exception