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

Suchen und ersetzen

Forumthread: Suchen und ersetzen

Suchen und ersetzen
26.01.2009 09:32:40
zink
Hallo,
in einer Spalte stehen untereinander mehrere Hundert Namenseinträge nach dem Muster:
>
Name und Vorname also in einer Zelle, getrennt durch ein Komma.
Ich möchte jetzt, dass nur der 1. Buchstabe des Vornamens mit einem Abkürzungspunkt in der Zelle steht, also
>
Und dies für alle Einträge der Spalte.
Wie krieg ich das hin? Suchen geht mit Stellvertreterzeichen, aber Ersetzen nicht ... Oder überseh ich da was?
Wäre für Hilfe dankbar.
Grüße
Joachim
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Suchen und ersetzen
26.01.2009 09:47:11
RS
Hi Joachim,

=LINKS(A1;FINDEN(", ";A1)+1) & TEIL(A1;FINDEN(", ";A1)+2;1) & "."

in eine Hilfspalte.
Dann Kopieren-Inhalte einfügen-Werte und die Namenspalte damit überschreiben.
Grüsse RS

AW: Suchen und ersetzen
26.01.2009 09:49:47
Jens
Hallo Joachim
Mit Hilfspalte:
Angenommen die Einträge stehen in A1 abwärts, dann mit Formel so:
=LINKS(A1;FINDEN(" ";A1))&" " &TEIL(A1;FINDEN(" ";A1)+1;1)&"."
Gruß aus dem Sauerland
Jens
Anzeige
AW: Suchen und ersetzen (Nachtrag)
26.01.2009 09:52:24
Jens
Sry, is wohl noch zu früh :-(
Nimm die Formel von RS.
Meine berücksichtigt keine getrennten Doppel-Nachnamen.
Gruß aus dem Sauerland
Jens
AW: Suchen und ersetzen
26.01.2009 09:50:00
Tino
Hallo,
teste mal diesen Code.
Sub test()
Dim Bereich As Range
Dim meAr
Dim L As Long
Set Bereich = Range("A2", Cells(Rows.Count, 1).End(xlUp))

meAr = Bereich

    For L = 1 To Ubound(meAr)
        If meAr(L, 1) <> "" And InStr(meAr(L, 1), " ") > 0 Then
         meAr(L, 1) = Left$(meAr(L, 1), InStr(meAr(L, 1), ",") + 2) & "."
        ElseIf meAr(L, 1) <> "" And InStr(meAr(L, 1), ",") > 0 Then
         meAr(L, 1) = Left$(meAr(L, 1), InStr(meAr(L, 1), ",") + 1) & "."
        End If
    Next L

Bereich = meAr

End Sub


Gruß Tino

Anzeige
AW: Suchen und ersetzen
26.01.2009 10:52:17
zink
Vielen Dank für Eure Hilfe!
Grüße
Joachim

Forumthreads zu verwandten Themen

Zelle Formel durch Inhalt ersetzen VBA
GerdL
Hallo,
ich suche ein VBA code

Zelle A1 ist eine Formel hinterlegt - wenn jetzt der Zellwert 95 erreicht dann soll die Formel in der Zelle durch den Inhalt ersetzt werden.

ist sowas möglich? ich habe gefühlt das ganze Netzt jetzt schon durch.

über eine Antwort, besten...
09.07.2022 12:03:56
Thread-ID: 1890461
4 Beiträge
Suchen - Ersetzen mit VBA in Formeln
Thomas

Hallo,
ich habe folgendes Problem:
Ich möchte in einer Tabelle in allen Formeln einen benannten Bereich gegen einen anderen Bereich austauschen. Mit dem Dialog suchen und ersetzen geht es problemlos.
Ich habe die ganze Aktion mit dem Makrorecorder aufgezeichnet. Lasse ich das Makro...
16.07.2008 17:35:00
Thread-ID: 994105
1 Beitrag
Ersetzen in VBA zur Formelauslösung
Hundeliebhaber
Hallo,
ich habe folgendes Problem:
Ich habe mir individuelle Formeln mit & und Zellinhalten aus mehreren Zellen gebaut, die ich auslösen möchte, in dem ich das führende Zeichen entferne. Dies ist meinem Fall die #.
Es funktioniert über Strg+F und dann dort entsprechend die # Suchen u...
08.03.2023 13:49:45
Thread-ID: 1923257
7 Beiträge
Suchen und Ersetzen Makro
Hendrik

Hallo Zusammen,
ich lerne gerade ein bisschen VBA, jetzt bin ich bei einem Problem, welches ich durch googeln _
nicht lösen konnte. Ich möchte in einer Zeile innerhalb einer Formel gewisse Zahlen austauschen. Mit suchen und ersetzten geht das auch wunderbar in Excel, wenn ich das aber...
15.04.2014 12:12:05
Thread-ID: 1357344
2 Beiträge
Problem mit suchen und ersetzen..
Alexej
Ich bin es mal wieder :(

Dieses Stueckchen Code, das mir so lieb gegeben wurde, funktioniert einwandfrei. Leider zu einwandfrei.
Ich habe in vielen Zellen, wo gesucht werden sollte, Bezuege zu anderen Blaettern, die volgendermassen aussehen:

=summe'Blt.1$A1:$A20'+'Blt.2$A1:A20'
15.12.2003 14:01:30
Thread-ID: 352134
3 Beiträge
AW: Update: Dynamische Listen & auto. Anpassung
Dip

Hallo Allerseits,
Für die folgende Problemstellung würde ich gerne um Eure Unterstützung bitten.
In der folgenden Datei:
https://www.herber.de/bbs/user/88856.xlsx
stehen im Blatt "Legende" die Quellwerte. Dort werden die Auswahlwerte für die Dropdownlisten verwaltet.
Im Bla...
27.01.2014 12:07:13
Thread-ID: 1346821
3 Beiträge
vba - suchen, ersetzen
Fred


Hallo Excel,- VBA Profis,
ich habe in Blatt "Basis" teilweise "fehlerhafte Werte".
In Blatt "Reparatur" stehen die benötigten "richtigen Werte".
Ich habe ein Makro, welches mir die fehlerhaften Einträge in Basis (durch die Einträge in "Reparatur") ersetzt.
Das Makro; Sub ko...
11.02.2021 12:43:27
Thread-ID: 1812450
4 Beiträge
Anzeige
Ersetzen ohne Abfragedialog
Christoph

Hallo zusammen und frohes neues Jahr,
ich schlage mich jedes Jahr auf´s neue mit einem Problem rum. Daher hoffe ich auf eurer Know-How.
Ich muss in einer Gesamtstatistik die Bezüge ändern.
Bspw. soll auf einem Tabellenblatt in der folgenden Formel die 2020 durch 2021 ersetzt werden...
02.01.2021 12:44:57
Thread-ID: 1802969
6 Beiträge
Formel mittels VBA ändern (Tabellenblattnamen)
Andreas

Hallo zusammen,
weiß wieder mal nicht weiter.
Hab eine Vorlage für Zeiterfassung erstellt. Diese Liste ist für 30 Personen gedacht.
Für jede Person gibt es einen Reiter.
ABER: In einem Reiter befindet sich für jede Person extra, ein Formular (also 30).
Jetzt das eigentliche...
08.03.2018 14:19:15
Thread-ID: 1613048
6 Beiträge
VBA Jahr in Verknüpfung erkennen und aktualisieren
Werner

Hallo Gemeinde!
Folgendes Problem:
Ich habe in einer Arbeitsmappe VERWEIS-Formeln mit Verknüpfungen zu einer anderen Excel-Datei, welche im Dateinamen das aktuelle Jahr besitzt.
Es existiert jeweils immer eine Datei des aktuellen Jahres im immer gleichen Pfad.
Um dies jedes Jahr...
03.12.2015 02:10:22
Thread-ID: 1462084
7 Beiträge
Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum