diff --git a/SDL/buchhaltung/frmBU_Mahnlauf.vb b/SDL/buchhaltung/frmBU_Mahnlauf.vb
index adb09425..57510859 100644
--- a/SDL/buchhaltung/frmBU_Mahnlauf.vb
+++ b/SDL/buchhaltung/frmBU_Mahnlauf.vb
@@ -1,5 +1,4 @@
 Imports System.Globalization
-Imports com.sun.source.tree
 Imports Microsoft.Office.Interop
 Imports VERAG_PROG_ALLGEMEIN
 
@@ -909,26 +908,7 @@ Public Class frmBU_Mahnlauf
 
                         Mail_HTMLBody = "<div style=""font-family:Calibri, Arial"">" & Mail_HTMLBody & "</div>"
 
-
-                        If Firma_ID = 19 Then
-                            Select Case AD.LandKz
-                                Case "RO" : Mail_BCC &= "alex@verag.ag;maut.ro@verag.ag;ma@verag.ag;" 'immer an alle bei RO!
-                                Case Else
-
-                                    If KD_ERW IsNot Nothing AndAlso Not IsDBNull(KD_ERW.kde_betreuer) Then
-                                        Select Case KD_ERW.kde_betreuer
-                                            Case "Ljubas" : Mail_BCC &= "n.ljubas@verag.ag;"
-                                            Case "Batinic" : Mail_BCC &= "z.batinic@verag.ag;"
-                                            Case "Vidovic" : Mail_BCC &= "s.vidovic@verag.ag;"
-                                            Case Else
-                                                Mail_BCC &= "z.batinic@verag.ag;n.ljubas@verag.ag;s.vidovic@verag.ag;"
-                                        End Select
-                                    Else
-                                        Mail_BCC &= "z.batinic@verag.ag;n.ljubas@verag.ag;s.vidovic@verag.ag;"
-                                    End If
-
-                            End Select
-                        End If
+                        setBBC_Betreuer(Firma_ID, AD, KD_ERW, Mail_BCC)
 
                         If Mail_To = "" Then Mahndruckart = 2 ' Wenn keine Mahn-Mail hinterlegt, sollte die Mail geöffenet werden
 
@@ -996,6 +976,36 @@ Public Class frmBU_Mahnlauf
         End Try
         Return False
     End Function
+
+    Private Shared Sub setBBC_Betreuer(Firma_ID As Integer, AD As cAdressen, KD_ERW As cKundenErweitert, ByRef Mail_BCC As String)
+
+        If Firma_ID <> 19 Then
+            Exit Sub
+        End If
+
+        If AD.AdressenNr >= 100000 AndAlso AD.AdressenNr < 200000 Then
+            Exit Sub 'diese nicht!
+        End If
+
+        Select Case AD.LandKz
+            Case "RO" : Mail_BCC &= "alex@verag.ag;maut.ro@verag.ag;ma@verag.ag;" 'immer an alle bei RO!
+            Case Else
+
+                If KD_ERW IsNot Nothing AndAlso Not IsDBNull(KD_ERW.kde_betreuer) Then
+                    Select Case KD_ERW.kde_betreuer
+                        Case "Ljubas" : Mail_BCC &= "n.ljubas@verag.ag;"
+                        Case "Batinic" : Mail_BCC &= "z.batinic@verag.ag;"
+                        Case "Vidovic" : Mail_BCC &= "s.vidovic@verag.ag;"
+                        Case Else
+                            Mail_BCC &= "z.batinic@verag.ag;n.ljubas@verag.ag;s.vidovic@verag.ag;"
+                    End Select
+                Else
+                    Mail_BCC &= "z.batinic@verag.ag;n.ljubas@verag.ag;s.vidovic@verag.ag;"
+                End If
+
+        End Select
+
+    End Sub
     Shared Sub initRgFirma(ByRef rpt As rptMahnung, FIRMA As VERAG_PROG_ALLGEMEIN.cFirmen, LandKz As String)
         rpt.lblFirmaOrt.Text = If(FIRMA.Firma_Ort, "")
         rpt.lblFirmaStrasse.Text = If(FIRMA.Firma_Straße, "")