Aus unserem AGLB lassen sich Schnittstellen erzeugen, die Excel verarbeitet werden können. Diese eignen sich dann sehr gut für Serienbriefe. Jedoch sind teilweise die rohen Daten nicht einfach so zu verwenden. Unter anderem stehen die Flurstückzähler und -nenner jeweils getrennt in einer eigenen Spalte. Außerdem werden keine Buchstaben als Flurstücksnenner angezeigt, sondern ein Zahl über 9000. So ist die Zahl 9001 der Buchstabennenner "a". Damit in einer Zelle eine normale Flurstücksnummer steht können Sie folgenden Visual Basic Code verwenden:

 

Voraussetzung
Zeile 1: Überschriften
Spalte K: Flurstückszähler
Spalte L: Flurstücksnenner
Spalte M: ohne Inhalt (normale Flurstücksnummer wird hier erzeugt)
In Zeile 2 des Codes bitte die Zahl 1685 austauschen gegen die Anzahl der Excel-Zeilen die bearbeitet werden sollen

 

Sub normale_Flurstücksnummer()
  For i = 2 To 1685
    If Range("L" & i).Value = 0 Then
        Range("M" & i).NumberFormat = "@"
        Range("M" & i).Value = Range("K" & i).Value
    Else
        Select Case Range("L" & i).Value
            Case "9001"
                Range("M" & i).Value = Range("K" & i).Value & "a"
            Case "9002"
                Range("M" & i).Value = Range("K" & i).Value & "b"
            Case "9003"
                Range("M" & i).Value = Range("K" & i).Value & "c"
            Case "9004"
                Range("M" & i).Value = Range("K" & i).Value & "d"
            Case "9005"
                Range("M" & i).Value = Range("K" & i).Value & "e"
            Case "9006"
                Range("M" & i).Value = Range("K" & i).Value & "f"
            Case "9007"
                Range("M" & i).Value = Range("K" & i).Value & "g"
            Case "9008"
                Range("M" & i).Value = Range("K" & i).Value & "h"
            Case "9009"
                Range("M" & i).Value = Range("K" & i).Value & "i"
            Case "9010"
                Range("M" & i).Value = Range("K" & i).Value & "j"
            Case "9011"
                Range("M" & i).Value = Range("K" & i).Value & "k"
            Case "9012"
                Range("M" & i).Value = Range("K" & i).Value & "l"
            Case "9013"
                Range("M" & i).Value = Range("K" & i).Value & "m"
            Case "9014"
                Range("M" & i).Value = Range("K" & i).Value & "n"
            Case "9015"
                Range("M" & i).Value = Range("K" & i).Value & "o"
            Case "9016"
                Range("M" & i).Value = Range("K" & i).Value & "p"
            Case "9017"
                Range("M" & i).Value = Range("K" & i).Value & "q"
            Case "9018"
                Range("M" & i).Value = Range("K" & i).Value & "r"
            Case "9019"
                Range("M" & i).Value = Range("K" & i).Value & "s"
            Case "9020"
                Range("M" & i).Value = Range("K" & i).Value & "t"
            Case "9021"
                Range("M" & i).Value = Range("K" & i).Value & "u"
            Case "9022"
                Range("M" & i).Value = Range("K" & i).Value & "v"
            Case "9023"
                Range("M" & i).Value = Range("K" & i).Value & "w"
            Case "9024"
                Range("M" & i).Value = Range("K" & i).Value & "x"
            Case "9025"
                Range("M" & i).Value = Range("K" & i).Value & "y"
            Case "9026"
                Range("M" & i).Value = Range("K" & i).Value & "z"
            Case Else
                Range("M" & i).NumberFormat = "@"
                Range("M" & i).Value = Range("K" & i).Value & "/" & Range("L" & i).Value
        End Select
    End If
  Next
End Sub