Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
988to992
988to992
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Gleichzeitiges Ersetzen mehrerer Zellen

Forumthread: Gleichzeitiges Ersetzen mehrerer Zellen

Gleichzeitiges Ersetzen mehrerer Zellen
24.06.2008 19:42:50
Marco
Hallo,
ist es möglich mit Suchen und Ersetzen mehrere Zellen gleichzeitig zu ersetzen? Beispiel
xxxxxxx Spalte 1xxxxSpalte 2
Zeile1xx Name:xxxxxMüller
Zeile2xx xxxxxxxxxxxMartin
Hier soll jetzt automatisch in Zeile2, Spalte 1 "Vorname" erscheinen.

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Gleichzeitiges Ersetzen mehrerer Zellen
25.06.2008 00:34:00
Tino
Hallo,
Also verstehe ich Dich richtig, es soll nach allen Zellen mit dem Inhalt “Name:” Suchen und
eine Zelle darunter „Vorname:“ rein schreiben?
Sollte dies so sein, teste mal dieses Makro.

Sub test()
Dim Anzahl As Long, A As Long
Dim FZelle As Range, sBereich As Range
With Application
'Sicherheit wegen Abschaltung der Events usw.
On Error GoTo Fehler:
.ScreenUpdating = False
.EnableEvents = False
Anzahl = .WorksheetFunction.CountIf(Tabelle1.UsedRange, "Name:")
Set sBereich = Tabelle1.UsedRange
For A = 1 To Anzahl
If A = 1 Then
Set FZelle = sBereich.Find(What:="Name:", LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=True, SearchFormat:=False)
If Not FZelle Is Nothing Then
FZelle.Offset(1, 0).Value = "Vorname:"
End If
Else
Set FZelle = sBereich.FindNext(FZelle)
If Not FZelle Is Nothing Then
FZelle.Offset(1, 0).Value = "Vorname:"
End If
End If
Next A
Fehler:
.ScreenUpdating = True
.EnableEvents = True
End With
Set FZelle = Nothing
Set sBereich = Nothing
End Sub


Gruß Tino

http://www.VBA-Excel.de


Anzeige
AW: Gleichzeitiges Ersetzen mehrerer Zellen
25.06.2008 16:59:10
Marco
Super genau was ich suche-danke. Ist es auch möglich, wenn nun in Spalte 2 z. B. eine c/o Adresse steht, in Spalte 1 automatisch c/o reinschreiben zu lassen?

AW: Gleichzeitiges Ersetzen mehrerer Zellen
26.06.2008 00:55:03
Tino
Hallo,
jetzt musst Du mir erst mal helfen, was ist eine c/o Adresse?
Gruß Tino
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige