HERBERS Excel-Forum - die Beispiele

Thema: Zellen mit Postleitzahlen separieren

Home

Gruppe

Allgemein

Problem

Aus einer Tabelle sollen die Zellen mit Postleitzahlen separiert werden.

Lösung
Geben Sie den Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: Modul1

Sub GetPLZ()
   Dim rng As Range, rngSource As Range
   Set rngSource = Range("A1").CurrentRegion
   Workbooks.Add 1
   For Each rng In rngSource
      If rng.Value Like "##### [A-Z]*" Then
         Cells(rng.Row, 6).Value = Left(rng.Value, 5)
         Cells(rng.Row, 7).Value = Right(rng.Value, Len(rng.Value) - 6)
      Else
         Cells(rng.Row, rng.Column).Value = rng.Value
      End If
   Next rng
End Sub

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Bereich

Dynamischer Datenbereich im Diagramm Bereich als Bild speichern.
1. freie Zelle in nicht zusammenhängenden Bereich Bestimmtheitsmass nach vorgegebenen Bereich
Bestimmten Bereich anhand Zeilenabgabe kopieren Bereich löschen
Array - Index außerhalb des gültigen Bereichs zoom auf Druckbereichsbreite anpassen
Bereich syncronisieren II Zeilenbereich auf Tabelle übertragen
Druchbereiche auf eine Seite Definitionsbereich
Bereich von rechts nach links auslesen? Namen definieren für bestimmten Bereich
Nur einen Eintrag im Bereich zulassen Kommentar in erste zelle einess Bereiches
bedingte Formatierung für zellenbereich Summewenn mit abhängigen Bereichen
Bereiche in separates sheet Summewenn mit abhängigen Bereichen
Absturz bei lokalen Bereichsnamen Teilbereich einer Zelle einfärben
Abfrage ob Druckbereich zu groß für Seitenbreite Gruppierten Bereich sperren
Bestimmte Zahlen aus einem Bereich Bereich nur unter best. Voraussetzg. summieren
Name eine benannten Bereiches finden Farbigen Rangebereich auswählen
Wert-Suche in Bereich Bereich als Grafik speichern
Zeile löschen in Bereich variablen Druckbereich definieren
Wertebereich definieren Vergleich Datum in CB mit Datum in einem Bereich
Zeilen und Spalten von Bereich markieren verlinkungen in markiertem bereich erneuern
Differenz zweier Summe im dynamischen Bereich Zelbereiche(Matrizen) an Variablen zuweisen
Löschen eines Bereiches Höchsten Wert aus einem Bereich auslesen
bereichsnamen mit indirekt zusammensetzen Copy - paste von Zellbereich in Tabelle abfangen
per Makro markierten Bereich auslesen Teilbereich einer Arbeitsmappe speichern
Summenprodukt und Namensbereich Vorkommen von Werten eines Bereiches zählen
Allgemeine Frage zur Fehlerbehandlung allgemeine Fragen zu einer Datenbank
Bereiche festlegen / verknüpfen bestimmten Bereich sortieren