Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Suchen und ersetzen durch Tabellenaktivierung

Suchen und ersetzen durch Tabellenaktivierung
20.09.2007 16:34:00
Gunter
Hallo Zusammen,
ich hätte gern gewusst, ob es eine Möglichkeit gibt ein "Suchen und ersetzen" durch die Aktivierung eines Tabellen Blattes auszulösen. Ich möchte beim wechsel von einem Blatt auf ein anderes, dass in einer Spalte ein Wert gesucht und dieser in eine bestimmte Zelle des aktivierte Blattes kopiert wird.
Sollte doch für einen Anfänger nicht zu schwierig sein?
Gruss Gunter

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Suchen und ersetzen durch Tabellenaktivierung
21.09.2007 10:49:12
fcs
Hallo Gunther,
prinzipiell kann man das wie folgt lösen. Bereich, Tabellennamen etc. muss du entsprechend anpassen.
Prozedur muss im VBA-Editor unter der Tabelle eingefügt werden, die Aktiviert wird.
Gruß
Franz

Private Sub Worksheet_Activate()
Dim wksquelle As Worksheet, wksZiel As Worksheet, Zelle As Range
Dim Bereich As Range, varSuchen, varErsetzen
Set wksZiel = Me
Set wksquelle = Worksheets("Tabelle1")
varSuchen = wksquelle.Cells(2, 1).Value
varErsetzen = wksquelle.Cells(2, 2).Value
Set Bereich = wksZiel.Range("A1:A25") 'zu durchsuchender Bereich
Bereich.Replace what:=Suchen, replacement:=Ersetzen, lookat:=xlWhole
End Sub


Anzeige
AW: Suchen und ersetzen Korrektur
21.09.2007 10:51:47
fcs
Fehler bei den Variablen korrigiert:

Private Sub Worksheet_Activate()
Dim wksquelle As Worksheet, wksZiel As Worksheet, Zelle As Range
Dim Bereich As Range, varSuchen, varErsetzen
Set wksZiel = Me
Set wksquelle = Worksheets("Tabelle1")
varSuchen = wksquelle.Cells(2, 1).Value
varErsetzen = wksquelle.Cells(2, 2).Value
Set Bereich = wksZiel.Range("A1:A25") 'zu durchsuchender Bereich
Bereich.Replace what:=varSuchen, replacement:=varErsetzen, lookat:=xlWhole
End Sub


Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

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