PLZ - Zuordnung | HERBERS Excel Forum

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
du musst die ZuordnungsTabelle so aufbauen.
1. in der erste Spalte stehen immer die jeweils kleinsten PLZ, ab denen ein bestimmtes Gebiet zuständig ist
2. in er zweiten Spalte daneben steht die Gebietsbezeichnung
3. die Liste muss aufsteigend nach den PLZ sortiert sein.
eine Zeile gilt immer ab der angegebenen PLZ bis zur PLZ in der nächsten Zeile.
wenn ein gebiet unterbrochen ist, musst du es mehrmals angeben:
00000 : Gebiet 1
06000 : Gebiet 2
08000 : Gebiet 1
10000 : Gebiet 4
15230 : Gebiet 5
15295 : Gebiet 4
15300 : Gebiet 5
15700 : Gebiet 4
16000 : Gebiet 5
20000 : Gebiet 6
23000 : Gebiet 7
usw.
dann kannst du die Zuordnung einfach mit dem SVeweis mit 4. Parameter = WAHR auslesen.
in dieser Variante wird, wenn der extakte Wert nicht vorhanden werden kann, der nächstkleiner verwendet
beachte, dass Excel beim SVerweis zwischen Text und Zahl unterscheidet. du musst also wissen, ob die PLZ als echte Zahl oder als Texte vorliegen.
hierzu einfach die horizontale Ausrichtung auf "Standard" stellen. Texte stehen links, Zahlen rechts
Gruß Daniel

Wenn doch VBA dann so

Sub PLZ()
    Dim TB, Sp As Integer, ZSp As Integer, LR As Double, i As Double
    
    
    Sp = 1  'PLZ in A 
    ZSp = 6 'Zielspalte F 
    
    Set TB = Sheets("Tabelle1")
    
    LR = TB.Cells(TB.Rows.Count, Sp).End(xlUp).Row 'letzte Zeile der Spalte 

    For i = 2 To LR
        Select Case Int(Left(TB.Cells(i, Sp), 2)) ' 2 ziffrig prüfen 
            Case 1, 2, 3, 4, 8, 9
                TB.Cells(i, ZSp) = 1
            
            Case 6, 7, 98, 99
                TB.Cells(i, ZSp) = 2

            Case 30, 31, 37, 38
                TB.Cells(i, ZSp) = 3

            Case 10, 12, 13, 14, 39
                TB.Cells(i, ZSp) = 4

            'Case weiter 2 Stellig 
        End Select
        
        Select Case Int(Left(TB.Cells(i, Sp), 3)) ' 3 ziffrig prüfen 
            Case 157 To 159
                TB.Cells(i, ZSp) = 4
            
            Case 153 To 155
                TB.Cells(i, ZSp) = 5

            Case 253 To 254
                TB.Cells(i, ZSp) = 6

            Case 255 To 259
                TB.Cells(i, ZSp) = 7
                
            'Case weiter 3 Stellig 
        End Select

        
        Select Case Int(TB.Cells(i, Sp)) ' komplett 5 ziffrig prüfen 
            Case 15295 To 15299
                TB.Cells(i, ZSp) = 4
            
            Case 15230 To 15236
                TB.Cells(i, ZSp) = 5

            Case 25361 To 25368
                TB.Cells(i, ZSp) = 7

                
            'Case weiter 5 Stellig 
        End Select

    Next
    
End Sub

LG UweD

Beliebteste Forumthreads (12 Monate)

PLZ - Zuordnung

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread