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

Forumthread: Suchen und Ersatzen per VBA

Suchen und Ersatzen per VBA
04.06.2009 13:09:31
Peter
Hallo
Ich möchte gerne, wie beim Suchen und Ersetzen Dialog, nach einem Defaultwert suchen und diesen durch einen beliebig eingegebenen Wert in einer Dialogbox ersetzen. In meinem Beispiel würde mein Default Suchwert folgendermassen aussehen:
='O:\Z\XY\Ordner1\Ordner2\Ordner3\[XXL-KW01-2009.xlsx]Gesamt'!B6
Wenn ich nun z. B. 'KW02-2009' als Wert zum ersetzen in der Dialogbox angebe, sollte die Formel folgendermassen aussen :
'O:\Z\XY\Ordner1\Ordner2\Ordner3\[XXL-KW02-2009.xlsx]Gesamt'!B6
Ich bin da momentan noch etwas ratlos, wie ich da vorgehen sollte. Über Hilfe würde ich mich sehr freuen, und danke schon mal im voraus dafür.
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Suchen und Ersatzen per VBA
04.06.2009 14:38:30
Hans
Hallo Peter,
wie folgt:

Sub Ersetzen()
Dim sTxtA As String, sTxtB As String
sTxtA = InputBox("Zu ersetzen:", , "XXL-KW01-2009.xlsx")
sTxtB = InputBox("Durch:", , "XXL-KW02-2009.xlsx")
If sTxtA  "" And sTxtB  "" Then
ActiveSheet.UsedRange.Replace sTxtA, sTxtB, xlPart
End If
End Sub


gruss hans

Anzeige
AW: Suchen und Ersatzen per VBA
04.06.2009 15:22:43
Peter
Hallo Hans,
genau wie ich mir das vorgestellt habe.
Vielen Dank nochmals für die Lösung !!!!
Gruss
Peter
;

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