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

suchen und ersetzten

Forumthread: suchen und ersetzten

suchen und ersetzten
20.07.2015 12:51:01
Hans
Hallo,
ich habe folgendes Problem in einer Excel Tabelle:
Ab Zelle E2 werden in der Spalte E dreistellige Zahlenwerte nach untern aufgeführt.
Immer wenn in einer Zelle der Wert "900" vorkommt soll dieser geändert werden durch
"900-2000", alle anderen Werte (immer dreistellig) sollen geändert werden in
"###-3000".
Das Makro soll immer individuell bis zum Ende der gefüllten Spalte die Änderung durchführen.
Hat hier jemand eine Makrolösung? Vielen Dank!
VG Hans

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: suchen und ersetzten
20.07.2015 13:16:43
UweD
Hallo
so ?
Sub Neunhundert()
On Error GoTo Fehler
Dim i%
Dim SP%, ZE&, LR&
Application.ScreenUpdating = False
SP = 5 'Spalte E
ZE = 2 'ab Zeile 2 wegen Überschrift
With ActiveSheet
LR = .Cells(Rows.Count, SP).End(xlUp).Row 'letzte Zeile der Spalte
For i = ZE To LR
If Len(.Cells(i, SP)) = 3 Then
If .Cells(i, SP) = 900 Then
.Cells(i, SP).Formula = "900-2000"
Else
.Cells(i, SP).Formula = .Cells(i, SP) & "-3000"
End If
Else
MsgBox "falscher Wert in ZEnd If"
Next
End With
'*** Fehlerbehandlung
Err.Clear
Fehler:
If Err.Number  0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description: Err.Clear
End Sub
gruß Uwe,de

Anzeige
AW: suchen und ersetzten
20.07.2015 14:28:03
Hans
Hallo Uwe,
vielen Dank für die schnell Hilfe. Ich habe das Makro von Jochen eingebaut, aber auch dir Danke!
VG Hans

AW: suchen und ersetzten
20.07.2015 13:25:50
JoWE
Hallo Hans,
oder so:
Private Sub changeValues()
Dim ze As Range
Dim myRng As Range
Set myRng = ActiveSheet.Range("E2:E" & _
ActiveSheet.Cells(Rows.Count, 5).End(xlUp).Row)
For Each ze In myRng
If IsNumeric(ze.Value) And ze.Value >= 100 And ze.Value
Gruß
Jochen

Anzeige
AW: suchen und ersetzten
20.07.2015 14:25:57
Hans
Hallo Jochen,
super Vielen Dank. Genau so soll es sein, also ohne die Raute sondern mit Werten.
Danke!
VG Hans

AW: suchen und ersetzten
20.07.2015 13:30:50
Hajo_Zi
Hallo Hans,
wenn es nur um die Ansicht geht.

Tabelle3
 E
1895
2896
3897
4898
5899
6900
7901
8902
9903
10904

Zahlenformate
Zelle Format Wert
E1 '[=900]000"-2000";000"-3000" 895
E2 '[=900]000"-2000";000"-3000" 896
E3 '[=900]000"-2000";000"-3000" 897
E4 '[=900]000"-2000";000"-3000" 898
E5 '[=900]000"-2000";000"-3000" 899
E6 '[=900]000"-2000";000"-3000" 900
E7 '[=900]000"-2000";000"-3000" 901
E8 '[=900]000"-2000";000"-3000" 902
E9 '[=900]000"-2000";000"-3000" 903
E10 '[=900]000"-2000";000"-3000" 904
Zellen mit Format Standard werden nicht dargestellt
Excel-Inn.de
Hajo-Excel.de
XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007
Add-In-Version 19.07 einschl. 64 Bit



Anzeige
AW: suchen und ersetzten
20.07.2015 14:29:05
Hans
Hallo Hajo,
danke dir. Die Lösung von Jochen war genau das was ich gesucht habe.
VG Hans
;

Forumthreads zu verwandten Themen

Txt - Text suchen und ersetzen VBA
Stevie

Hie zusammen,
ich hoffe mir kann hier jemand helfen, ich habe einen Code aus dem Internet (oder sogar von der Seite hier) und den muss ich leider ein bisschen anpassen. Der Code sucht in einer Textdatei nach einer bestimmten Zeichenfolge STxtA und ersetzt diesen Text durch STxtB. Soweit so...
30.10.2008 13:09:28
Thread-ID: 1020573
3 Beiträge
Suchen und >Ersetzen mit VBA macht komische Sachen
SteffenS

Hallo Zusammen,
mit dem Code:
WSZ.Cells.Replace What:="""", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
ersetze ich " in allen Zellen.
Mache ich dies manuell so wird aus:
1348,52102" --> richtig 1348,...
11.01.2009 18:08:38
Thread-ID: 1038681
3 Beiträge
Anzeige
Suchen und ersetzen
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
><...
26.01.2009 08:32:40
Thread-ID: 1043740
6 Beiträge
Suchen und Ersetzen durch
pitt_111@gmx.de

Hallo Excel Gemeinde,
brauche wieder Eure EErfahrung und Hilfe.
In angehängter Tabelle soll nach Werten gesucht werden und diese
sollen entsprechend durch 1 ersetzt werden.
https://www.herber.de/bbs/user/59198.xls
Das suchen und ersetzen soll sich aber nur auf das betreffen...
07.02.2009 09:50:37
Thread-ID: 1047999
2 Beiträge
Durchsuchen und in Zelle daneben ersetzen
Holger

Hallo,
irgendwie komme ich nicht weiter. Ich möchte mit einem Makro die Spalte "A1:A5000" nach der
Zeichenfolge "SV" durchsuchen und überall wo "SV" gefunden wird in der Zelle rechts daneben
(also in der gleiche Zeile in Spalte "B") das Datum "01.01.2008" eintragen.
Ein Ansat...
26.02.2009 12:25:07
Thread-ID: 1054317
4 Beiträge
Suchen und ersetzen ohne Neuanfang bei Zeile 1
Stefan

Hallo liebes Froum,
ich habe eine Spalte mit Werten, ca. 200 Zeilen. Die Werte bestehen aus 3ziffrigen Zahlen (010,011,100,271...). Diese Zahlen sollen durch andere 3ziffrige Zahlen ersetzt werden (z.B. 010 durch 001, 011 durch 004, 100 durch 200, 271 durch 355,...). Nun habe ich das Proble...
03.03.2009 11:26:38
Thread-ID: 1055879
19 Beiträge
Suchen und ersetzen per Makro...?
Horst

Hey !
Ich möchte Tabellenblätter kopieren und während oder nach dem kopieren des Tabellenblattes im kopierten Tabellenblatt eine Volltextsuche mit Textersetzung durchführen.
Kann mir jemand dazu einen Tipp geben?
Und gibt es zur Suche/Ersetzen eine bessere Variant als die aus der Ma...
02.04.2009 11:43:43
Thread-ID: 1066267
3 Beiträge
suchen und ersetzen
Detlef

Hallo alle zusammen,
ich habe mehrere Arbeitsblätter in denen ich immer den Inhalt einer Spalte überprüfe. Dabei wird der jeweilige Inhalt der Zelle mit dem Inhalt eines KorrekturArbeitsblattes verglichen. Wird der Zellinhalt gefunden, wird er ersetzt.
Im Moment mache ich das mit folgen...
04.06.2009 14:35:31
Thread-ID: 1079155
5 Beiträge
Marko zum Suchen und Ersetzen von Listenbegriffen
Listenbegriffen

Hallo Forum!
Ich verzweifele gerade (seit 2 Tagen) an einem Makro, das irgendwie nicht laufen will. Dabei klang es eigentlich relativ einfach.
Also, ich habe diverse Tabellenblätter, von denen das eine z.B. „BA2“ und ein anderes „Datenbank“ heißt. In „BA2“ stehen in Spalte A ab Zeile 5...
08.09.2009 11:56:07
Thread-ID: 1101193
7 Beiträge
Anzeige
Werte teilweise suchen und ersetzen
Ahmadian

Hallo zusammen,
ich möchte mit einem VBA-Code im z.B. Tabelle 1, Range("A1:B100") alle darin befindlichen "TO" durch ein "D" ersetzen.
Z.B.
In Zellen stehen: 18:00 - 06:00 TO (durch ein "D" die kompletten Zelleninhalte ersetzen).
Leere Zellen sollen leer bleiben.
Für eine...
08.09.2009 14:45:06
Thread-ID: 1101262
5 Beiträge
Anzeige
Wert suchen und ersetzen
VBAmateur

Hallo an alle,
bin noch Neuling in VBA und hier im Forum, und hoffe ich mache nicht zuviel falsch.
Ich habe ein Problem das ich auch nach vielen Stunden probieren mit meinen mageren Kenntnissen nicht lösen konnte. Hoffentlich kann mir jemand helfen.
Ich habe 10 Spalten von denen 3 i...
13.09.2009 15:45:57
Thread-ID: 1102420
6 Beiträge
Suchen und Ersetzen mit Ergebinsliste
Horst

Hey!
Ich möchte gerne Das Suchen und Ersetzen im Excel per VBA nachimplementieren.
Ich habe dann den VBA-Recorder angeschissen und dan kam dieses heraus:
------------------------------------------------------------------------
Cells.Replace What:="ABC", Replacement:="def", LookA...
24.09.2009 09:33:51
Thread-ID: 1105113
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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