Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1436to1440
1436to1440
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Text nach PLZ kürzen - Hausnummer entfernen

Forumthread: Text nach PLZ kürzen - Hausnummer entfernen

Text nach PLZ kürzen - Hausnummer entfernen
01.08.2015 22:23:10
da.ricci
Guten Abend,
als Ergebnis einer Split() Funktion werden meine Textboxen wie folgt befüllt:
 Ährenweg 4, 12683 Berlin, Deutschland
 Brückengasse 11, 1060 Wien, Österreich
 Rengoldshauser Straße 11, 88662 Überlingen, Deutschland
 Josefsplatz 123, 1010 Wien, Österreich
  ...

nun sollten der Text nach "PLZ" entfernt werden (gilt für alle Textboxen) und "optional" (über: Textbox_DblClick) die Hausnummer entfernt werden.
hierfür bräuchte ich Eure Unterstützung - meine InStr() scheitern kläglich
Vielen Dank im Voraus
Grüße
  da.ricci

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Text nach PLZ kürzen - Hausnummer entfernen
02.08.2015 02:07:59
Matthias
Hallo
Also soll das Ergebnis so aussehen?
 AB
1 Ährenweg 4, 12683 Berlin, DeutschlandÄhrenweg, 12683
2 Brückengasse 11, 1060 Wien, ÖsterreichBrückengasse, 1060
3 Rengoldshauser Straße 11, 88662 Überlingen, DeutschlandRengoldshauser Straße, 88662
4 Josefsplatz 123, 1010 Wien, ÖsterreichJosefsplatz, 1010


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Gruß Matthias

Anzeige
AW: Text nach PLZ kürzen - Hausnummer entfernen
02.08.2015 02:29:31
da.ricci
Hallo Matthias,
Korrekt ;-)
sollten aber in 2 Arbeitsschritte möglich sein:
zwingend:
 1.) kürzen nach PLZ
optional:
 2.) ersetzen Hausnummer vor KOMMA
Grüße
  da.ricci

AW: Text nach PLZ kürzen - Hausnummer entfernen
03.08.2015 06:44:17
da.ricci
Hallo Matthias,
vielen Dank für Deine Hilfe.
WOW - Ist ja eine Wahnsinnslange Formel - sie funktioniert - wenn auch nicht ganz nach meiner Vorstellung. (es ist in der selben Textbox entweder Aktion1 oder Aktion2 möglich)
Und da ich, diese Formel beim besten Willen nicht "entschlüsseln" kann, (bei den ganzen: Trim-Len-Mid-Find Verschachtelungen steig ich trotz F1 und F8 -> einfach aus ;-( ), und sich zwischenzeitlich die Vorgaben geändert bzw. erweitert haben, bitte ich nochmals um Deine Unterstützung.
nähere Infos inside:
https://www.herber.de/bbs/user/99261.xlsm
Frage am Rande: lässt sich eigentlich mit Left/Right/Mid/Len/Find .. auch nach "ist Zahl" suchen?
Vielen Dank im Voraus
schönen Tag
   da.ricci


Anzeige
AW: Text nach PLZ kürzen - Hausnummer entfernen
03.08.2015 08:43:47
MCO
Guten Morgen!
Ich habe die ganze Sache mal vereinfacht:
Eine Sub für 3 Funktionen, 3 Aufrufe mit Parametern
Was sonst noch drin stand hab ich nicht bewertet oder geändert.
Fehleingaben werden natürlich auch fehlerhaft wiedergegeben.(Via Trezzo, 31, 30174 Venezia VE, Italien)
https://www.herber.de/bbs/user/99264.xlsm
Gruß, MCO

Anzeige
Hausnummer entfernen mit VBA
03.08.2015 08:48:11
Matthias
Hallo
 Hier noch ein paar weitere Ansätze
 Beispiel zum Entfernen der Hausnummer mit VBA (in der Datei)
 Das setzt aber immer den gleichen Aufbau der Strings voraus.
 A
2Ährenweg 4, 12683 Berlin, Deutschland
3Brückengasse 11, 1060 Wien, Österreich
4Rengoldshauser Straße 11, 88662 Überlingen, Deutschland
5Josefsplatz 123, 1010 Wien, Österreich
6 
7 
8Ährenweg, 12683 Berlin, Deutschland
9Brückengasse, 1060 Wien, Österreich
10Rengoldshauser Straße, 88662 Überlingen, Deutschland
11Josefsplatz, 1010 Wien, Österreich


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4

https://www.herber.de/bbs/user/99263.xls

 ABCD
1Adresseohne Land (Formel)nur StraßeStraße + Nr.
2Ährenweg 4, 12683 Berlin, DeutschlandÄhrenweg 4, 12683 BerlinÄhrenwegÄhrenweg 4
3Brückengasse 11, 1060 Wien, ÖsterreichBrückengasse 11, 1060 WienBrückengasseBrückengasse 11
4Rengoldshauser Straße 11, 88662 Überlingen, DeutschlandRengoldshauser Straße 11, 88662 ÜberlingenRengoldshauserRengoldshauser Straße 11
5Josefsplatz 123, 1010 Wien, ÖsterreichJosefsplatz 123, 1010 WienJosefsplatzJosefsplatz 123

Formeln der Tabelle
ZelleFormel
B2=ERSETZEN(A2;FINDEN("#";WECHSELN(A2;",";"#";2));LÄNGE(A2);"")
C2=LINKS(A2;FINDEN(" ";A2)-1)
D2=ERSETZEN(B2;FINDEN("#";WECHSELN(B2;",";"#";1));LÄNGE(B2);"")
B3=ERSETZEN(A3;FINDEN("#";WECHSELN(A3;",";"#";2));LÄNGE(A3);"")
C3=LINKS(A3;FINDEN(" ";A3)-1)
D3=ERSETZEN(B3;FINDEN("#";WECHSELN(B3;",";"#";1));LÄNGE(B3);"")
B4=ERSETZEN(A4;FINDEN("#";WECHSELN(A4;",";"#";2));LÄNGE(A4);"")
C4=LINKS(A4;FINDEN(" ";A4)-1)
D4=ERSETZEN(B4;FINDEN("#";WECHSELN(B4;",";"#";1));LÄNGE(B4);"")
B5=ERSETZEN(A5;FINDEN("#";WECHSELN(A5;",";"#";2));LÄNGE(A5);"")
C5=LINKS(A5;FINDEN(" ";A5)-1)
D5=ERSETZEN(B5;FINDEN("#";WECHSELN(B5;",";"#";1));LÄNGE(B5);"")


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4

Für Deine Datei musst Du das bitte selbst umsetzen
Gruß Matthias

Anzeige
AW: Hausnummer entfernen mit VBA
03.08.2015 13:51:58
da.ricci
Hallo Matthias,
hallo MCO,
vielen, vielen Dank -
@ MCO:
 perfekte Sache - so "wenig" Code - so viel Ergebnis - auch der ex­pli­zite Aufruf über Sub-Parameter
 ist der Wahnsinn - diese Select Case gehört ab sofort zu meinen "Favorites" - und wird so
 weiterverwendet.
@Matthias:
 auch Deine Beispiele sind immer ziehlführend - vielleicht bekomme ich mithilfe der Zellformel(n)
 die Left/Right/Mid/Len/Find Funktionen endlich mal in den Griff. ;-)
 Deine If-Schleifen schreibweise (im letzten Beispiel) und auch die Verwendung des ControlSource für
 Textboxen, sowie die Verwendung des ".Tag", sind von hohem Potential und werden "gespeichert".
nochmals Danke Euch Beiden - für mich gilt die Aufgabe "mehr" als gelöst.
schönen Tag noch
Grüße
 da.ricci
Anzeige

Forumthreads zu verwandten Themen

Textinhalte aus Zellen zusammenkopieren
zehetner

Liebe Profis,
ich habe die Ergebnisse einer Befragung in ein Excel-Sheet eingegeben, jeder Befragte in ein Registerblatt. Nun möchte ich die Antworten der Befragten, die in Textfeldern (immer in den selben, zB E145 stehen) gesammelt in eine neue Tabelle bringen.
Ziel ist es, die Antwort...
21.09.2008 18:29:25
Thread-ID: 1011343
2 Beiträge
Text aus einer Zelle in ein anderes Tabellenblatt
grigolet

Hallo,
ich erstelle gerade eine Arbeitsmappe in der auf verschiedenen Tabellenblättern die gleichen Namen erscheinen sollen (aus dem Blatt 'Verhandlungsergebnis' sollen die Personendaten der Beteiligten in ein erstelltes Vertragsformular übernommen werden). Ich habe das z.B. mit = gelöst. J...
09.10.2008 11:24:26
Thread-ID: 1015295
2 Beiträge
Zeilen mit bestimmten Inhalt löschen
sascha76er

Hallo,
ich möchte immer alle Zeilen via Makro löschen, wenn der Inhalt der Zeile indentisch mit der ersten ist.
Ist das möglich, wenn ja wie?
Vorab vielen Dank
Sascha
08.12.2008 13:35:00
Thread-ID: 1031058
6 Beiträge
Text in Fußzeile aus Zelle ziehen
Sandra

Hallo zusammen!
Ich brauche mal wieder Eure Hilfe.
Meine Exceltabelle (ein Protokoll) soll im linken Teil der Fußzeile einen Text bekommen, der automatisch aus einer Zelle gezogen wird. So das sich die Fußzeile immer aktualisiert, wenn die Zelle geändert wird. Mit einer Formel geht es j...
29.01.2009 11:29:24
Thread-ID: 1044904
23 Beiträge
Zufällig einen Text ausgeben aus best. Zellen
Eddie

Hallo und Guten Abend.... habe mal wieder ein Problem...
Ich will gerne aus einer Anzahl von zellen (ca 100 Zeilen) .. wo bestimmte Sätze drin stehen diese Zufällig in einer Bestimmten zelle anzeigen lassen ....
Vielleicht hat ja jemand schon sowas gemacht ?
thx schon einmal
G...
15.02.2009 20:14:00
Thread-ID: 1050974
7 Beiträge
Anzeige
gewisse sonderzeichen aus zelle entfernen
Tobias

Hallo allerseits,
Ich würde gerne ein gewisses sonderzeichen aus einer zelle entfernen
nämlich dieses: •
If ((cells(i,2) = ?) then ' wenn die zelle dieses zeichen enthält
cells(i,2) = ? ' entfernen
End if
Was muss ich in diesen code einb...
28.02.2009 15:56:56
Thread-ID: 1055091
8 Beiträge
Teilwert aus Zelle suchen und selektieren
Addi

Hallo Zusammen,
folgendes Problem:
Ich habe eine Excel Liste mit Buchungstexten, die zum Teil so aussehen:
"Rg. Hilton/Beherb./F.Schulze/10.03.08"
Aus dieser Zelle möchte ich den Namen selektieren und einzeln in die Zelle daneben schreiben.
Die jeweiligen Namen sind bekannt...
20.03.2009 07:54:45
Thread-ID: 1062031
10 Beiträge
Anzeige
Zugriff auf auf Teilinhalte einer Zelle
Der

Hallo da Draußen!
Habe mal wieder ein Problem mit meiner VBA Programmierung. Ich möchte innerhalb einer Exceltabelle auf einzelne Zellen zugreifen, die ein bestimmtes Merkmal haben. Der Inhalt der Zelle beginnt mit einer Zahl (in diesem fall mit einer Postleitzahl). Ich möchte also meine Ab...
20.03.2009 14:52:09
Thread-ID: 1062230
5 Beiträge
Teilinhalte aus Zellen löschen
Der

Hallo da draußen,
ich möchte aus einer Zelle die ersten x Zeichen von links löschen und die Restlichen beibehalten. Mit dem Befehl left(cells(R,C),x) kann ich auf diese Zeichen zugreifen und sie auch auslesen. Wie kann ich sie nun löschen?
Danke für Eure Hilfe!
Grüße aus der Hauptst...
25.03.2009 15:20:24
Thread-ID: 1063841
9 Beiträge
Text aus mehreren Zellen in eine Zelle schreiben.
Wolle

Hallo Forum,
möchte Texte aus mehreren Zellen in eine Zelle schreiben. Diese "Gesamtzelle" muss ich mit Strg+V nach Word kopieren können.
Ich denke mit Formeln ist da nichts zu machen, sondern mit VBA?
Könnt Ihr helfen.
Danke und Gruß
Wolle
https://www.herber.de/bbs/user...
31.03.2009 08:34:39
Thread-ID: 1065488
4 Beiträge
Tabelle als Text speichern, Dateiname aus Zelle
Jürgen

Hallo Excel-Profis,
ich möchte über ein Makro folgendes ausführen:
- das aktuelle Tabellenblatt soll im Textformat gespeichert werden
- das Dialogfeld "Speichern unter" soll am Bildschirm erscheinen
- der Dateiname soll aus der Zelle I1 in das Dialogfeld übernommen werden
Im...
08.04.2009 13:05:46
Thread-ID: 1067706
2 Beiträge
Teil einer Formel in Zelle einlesen
Bernd

Hallo Freaks,
ich bastle nun schon geraume Zeit an einem Code, der mir in eine Zelle den Teil einer Formel (Kostenstellennamen) aus einer anderen Zelle schreibt.
Der nachstehene Code (von einem ausgeschiedenen Kollegen) ersetzt einen KST-Namen in einem Link mit einem neuen KST-Namen aus...
13.04.2009 12:55:24
Thread-ID: 1068432
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige