Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Makro Suchen und Ersetzen

Makro Suchen und Ersetzen
14.06.2016 16:06:17
AAG
Ich habe eine Tabelle die so aussieht :
Land Name
AMERICAS ASL Americas (%)
AMERICAS ASL NORAM (%)
AMERICAS ASL LATAM (%)
APAC ASL APAC (%)
APAC ASL APAC FE (%)
Bangladesh ASL Bangladesh (%)
Ich habe nun ein Zelle in der man Auswählen kann ob % oder 100 steht.
Wie kann ich wenn ich z.B in der Zelle 100 auswähle in meiner Tabbelle das (%) durch (100) per Makro ersetzen und und natürlich auch wenn im Auswahlfeld % steht ich wieder auf (%) ersetzen kann.

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

Betreff
Datum
Anwender
Anzeige
AW: Makro Suchen und Ersetzen
14.06.2016 16:38:25
UweD
Hallo
das ginge z.B. so...
Ich habe die Spalte, in der getauscht werden soll mal als Spalte B und die Zelle, in der der Tauschwert steht mit D1 angenommen
- Rechtsclick auf den Tabellenblattreiter
- Code anzeigen
- Diesen Code dort reinkopieren

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Such As String, Neu As String
Dim Sp%
On Error GoTo Fehler
Sp = 2 'Spalte B
If Not Intersect(Target, Range("D1")) Is Nothing Then
If Target.Count = 1 Then
If Target = 100 Then
Such = "(%)"
Neu = "(100)"
ElseIf Target = "%" Then
Such = "(100)"
Neu = "(%)"
Else
MsgBox "Unbekannter Wert"
Exit Sub
End If
Application.EnableEvents = False
Columns(Sp).SpecialCells(xlCellTypeConstants, 3).Replace _
What:=Such, Replacement:=Neu, _
LookAt:=xlPart, SearchOrder:=xlByRows, _
MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Else
MsgBox "Einzeln bearbeiten"
End If
End If
Err.Clear
On Error GoTo Fehler
Fehler:
If Err.Number  0 Then MsgBox "Fehler: " & _
Err.Number & vbLf & Err.Description: Err.Clear
Application.EnableEvents = True
End Sub

Gruß UweD
Über Rückmeldungen würde ich mich freuen

Anzeige
AW: Makro Suchen und Ersetzen
15.06.2016 08:11:29
AAG
Hallo Uwe ,
Danke! werde es heut morgen gleich ausprobieren und werde Dir sagen ob es geklappt hat.

AW: Makro Suchen und Ersetzen
15.06.2016 09:45:27
AAG
Hallo Uwe bekomme ein Laufzeitfehler 424

AW: Makro Suchen und Ersetzen
15.06.2016 10:34:44
UweD
Hallo
Setze mal ein ' vor das
On Error GoTo Fehler und
Application.EnableEvents = False

Wenn dann der Fehler kommt, die Zeile angeben, in der das Makro meckert.
oder lade einen Muster .xlsm hoch
Gruß UweD

AW: Makro Suchen und Ersetzen
15.06.2016 12:47:28
AAG
ok ich Ändere es .Wird aber morgen werden bis ich mich melde
Gruß
AAG

349 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige