Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1460to1464
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1460to1464
1460to1464
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Suchen/Ersetzen nur auf einem Tabellenblatt?!?

Suchen/Ersetzen nur auf einem Tabellenblatt?!?
23.11.2015 08:49:21
Marten
Guten Morgen,
ich komme bei dem Suchen/Ersetzen Befehl nicht weiter. Dieser sollte eigentlich nur auf ein Tabellenblatt begrenzt werden. Das funktioniert aber nicht und es wird in der gesamten Mappe ersetzt.
Hier der Code:
With Worksheets("Tabellenblatt").Range("I2:X" & LetzteZeile)
.Replace What:="text1", Replacement:="text2", LookAt:=xlPart
.Replace What:="text3", Replacement:="text4", LookAt:=xlPart
End With

Kann man das verhindern? Könnt ihr mir helfen?

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Suchen/Ersetzen nur auf einem Tabellenblatt?!?
23.11.2015 09:11:12
Nepumuk
Hallo,
das kann nicht sein. Suchen und ersetzen per VBA zeichnet sich dadurch aus, dass es nur auf den angegebenen Tabelle wirkt. Da muss bei dir was anderes nicht passen.
Gruß
Nepumuk

AW: Suchen/Ersetzen nur auf einem Tabellenblatt?!?
23.11.2015 09:21:07
Marten
Ja, keine Ahnung...
Hab es gerade nochmal manuell ausprobiert. Wenn ich Suchen/Ersetzen manuell durchführe und einmal "Durchsuchen: Arbeitsmappe" und einmal "Durchsuchen: Blatt" auswähle, gibt es im Makro-Recorder keinen Unterschied im Code.
Sub Blatt()
' Blatt Makro
Cells.Replace What:="test131", Replacement:="test111", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub


Sub Mappe()
' Mappe Makro
Cells.Replace What:="test131", Replacement:="test111", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub

Anzeige
AW: Suchen/Ersetzen nur auf einem Tabellenblatt?!?
23.11.2015 09:31:46
Nepumuk
Hallo,
es ist tatsächlich so, dass das Ersetzen sich auf die gesamte Mappe auswirkt wenn du einmal manuell "Gesamte Mappe" eingestellt hast, egal was du als Bereich angegeben hast. Wusste ich bisher auch nicht. Das ist echt blöd, denn diese Einstellung lässt sich per Makro weder ändern noch auslesen.
Kommt sofort in meine Bug-Liste.
Gruß
Nepumuk

AW: Suchen/Ersetzen nur auf einem Tabellenblatt?!?
23.11.2015 11:36:21
Mullit
Hallo Nepumuk und Marten,
das ist echt ne böse Falle, aber ich hatte hier mal gelesen, daß das mit einem Dummy-Find-Call wenigstens zu reseten ist, ich weiß aber nicht, ob das in XlVersionen > Xl2010 geht:
Option Explicit

Public Sub test()
Call prcReplaceSheetOnly(pvstrSheetName:="Tabelle2", pvstrAddress:="A1:B10", _
  pvvntWhat:="tt", pvvntReplacement:="zz", pvenmXlLookAt:=xlPart)
End Sub

Private Sub prcReplaceSheetOnly(ByVal pvstrSheetName As String, _
  ByVal pvstrAddress As String, ByVal pvvntWhat As Variant, _
  ByVal pvvntReplacement As Variant, ByVal pvenmXlLookAt As XlLookAt)
  With ThisWorkbook
        Call .Worksheets(1).Cells(1, 1).Find(What:=vbNullString)
        Call .Worksheets(pvstrSheetName).Range(pvstrAddress).Replace( _
            What:=pvvntWhat, Replacement:=pvvntReplacement, LookAt:=pvenmXlLookAt)
  End With
End Sub





VBA/HTML - CodeConverter für Office-Foren

AddIn für Excel/Word 2000-2010 - komplett in VBA geschrieben von Lukas Mosimann
Projektbetreuung durch mumpel


Code erstellt und getestet in Office 14

Gruß, Mullit

Anzeige
AW: Suchen/Ersetzen nur auf einem Tabellenblatt?!?
23.11.2015 12:17:35
Nepumuk
Hallo Mullit,
das funktioniert tatsächlich. Danke für den Tipp. Ich hab's in 2013 getestet.
Gruß
Nepumuk

AW: Suchen/Ersetzen nur auf einem Tabellenblatt?!?
23.11.2015 13:34:22
Marten
Super. Das hat geklappt. Danke!!!

AW: Suchen/Ersetzen nur auf einem Tabellenblatt?!?
23.11.2015 13:48:42
EtoPHG
Hallo Marten,
Das hängt von der letzten Einstellung (Durchsuchen: Blatt/Arbeitsmappe) im der Suchen/Ersetzen Dialog zusammen. Diese Einstellung lässt sich nur mit einem Trick/Workaround übertölpeln und zwar so: 
    With Worksheets(1)
' Setzt den Suchen/Ersetzen Dialog auf Blatt zurück
.Cells.Find What:="Something stupid, that is nowhere in the f*cking Workbook"
End With

Im Anschluss an dieses Codeteil müsste deines laufen.
Gruess Hansueli

Anzeige
PS: .Cells.Find What:="" genügt natl. ;-) (owT)
23.11.2015 13:51:44
EtoPHG

327 Forumthreads zu ähnlichen Themen

In Spalte nach Anzahl eines Begriffs suchen?
Lauren

Hall Leute!
ich will nach einem Begriff, in meinem Fall nach "SUMs" in der Spalte C suchen und wissen wie oft es in der Spalte vorkommt.
Bei Berechnungen funktioniert es mit ZÄHLENWENN ohne Probleme aber wie erhalte ich die "absolute" Zahl?
Vielen Dank für Eure Hilfe!
Grüße
...
19.08.2008 11:08:23
Thread-ID: 1002846
5 Beiträge
Anzeige
Häufigkeit einer Uhrzeit aus einer Spalte
wolfgang

Hallo Leute
Ich habe eine Spalte mit einer menge Uhrzeiten und möchte die Häufigkeit einer Uhrzeit ( wie oft ist eine eintrag vorhanden)zum Beispiel zwischen 08:00 und 17:00!! Ich weiß das für euch sicher ein leichtes ist jemanden wie mir zu helfen!
Schon jetzt besten Dank für eure Mühe...
02.09.2008 15:11:51
Thread-ID: 1006816
2 Beiträge
von Datum bis Datum suchen und Werte in die Spalte
Datum

Hallo liebe Excel-Könner,
ich habe folgendes Problem und finde keine Lösung.
Ich habe in Spalte A von 2006 bis heute Datum stehen, über eine UserForm möche ich in zwei TextBoxen von bis Datum eintragen und in Spalte B in diesem Bereich den WertX.
Ich hoffe Ihr könnt mir helfen!
...
07.09.2008 09:31:20
Thread-ID: 1007931
8 Beiträge
Anzeige
Berechnen von Werten in einer Spalte
Werten

Folgendes Problem:
In der Spalte A möchte ich wissen, wieviel unterschiedliche Werte es gibt.
Wer kann mir helfen.
Danke
Alex
05.10.2008 12:52:00
Thread-ID: 1014231
5 Beiträge
Filtern, gefilterte Daten benutzen, Suchen und Aus
Merle


Hallo alle zusammen,
ich habe ein mittelschweres Problem. Und zwar habe ich hier ein Beispiel:
https://www.herber.de/bbs/user/55986.xls
In 'Tabelle1' sind ganz viele verschiedene Waren (C17:57) hinterlegt. Ich möchte nun, wenn ich eine dieser Waren rausfilter z.B H025, dass da...
13.10.2008 15:48:00
Thread-ID: 1016087
3 Beiträge
Gleiche Eintäge in einer Spalte nacheinander finde
Malcolm_p

Hallo zusammen!
Wenn ich einen bestimmten Eintrag - per VBA - in einer Spalte finden möchte verwende ich der Regel den folgenden Code:
Dim NameSP As Range
Set NameSP = Sheets("Konten").Rows(1).Find( _
What:=Textbox1, _
Lookat:=xlWhole, _
LookIn:=xlValues)
Dim Erfdat...
15.10.2008 23:08:59
Thread-ID: 1016705
5 Beiträge
Suchen und Ersetzen schnelleres Makro
Susi

Hallo liebe Excel-Freunde,
ich habe folgendes kleines Makro.
Sub Suchen_Ersetzen() out = "15200" 'zu ersetzender String in = "43900" 'einzufügender String For Each cell In Selection If cell.HasFormula = True Then cell.Formula = Application.WorksheetFunction.Substitute(cell.Formula, ou...
20.10.2008 12:19:00
Thread-ID: 1017624
17 Beiträge
Doppelte Einträge in einer Spalte farbig markieren
Robert

Hallo,
ich hab eine Tabelle mit riesigem Datenbestand. Mein Problem ist nun, dass doppelte Eintrage, die in einer Spalte vorkommen, farbig markiert werden sollten - und das gleiche bei jeder weiteren Spalte mit Inhalt.
Sollten in einer Spalte doppelte Einträge vorhanden sein, müsste die...
27.10.2008 19:09:00
Thread-ID: 1019713
11 Beiträge

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
8
1
7
5
4
2
4
16
10
2
3
6
8
4
2
3
4
2
15
10
5
1
5
3