Suchen und Ersetzen mit Makro in Excel

Computer: Software & Programmierung Office Software
#1

Hallo Alle Zusammen, :smile:

ich hoffe ihr könnt mi weiter helfen…
denn ich verzweifel langsam hier…

Mein Problem:

Ich sitze an einer Excel File die mit Makros ausgestattet werden soll um das ganze zu automatisieren.

Und zwar suche ich eine Lösung die Folgendes kann:

Ich habe 2 Tabs, in dem einen ist eine Tabelle mit Links(Zahlentab) und in dem anderen Tab sind die alten und neuen Links(Linktab). Nun soll das Makro einen Teil des Textes der Links im Zahlentab durch einen neuen Textteil ersetzen der im Linktab steht (dieser steht allerdings in einer Zelle).

Kurz: ein Makro das einen teil eines alte Links durch einen neuen Teil in einer Zelle ersetzt

Ist das überhaupt möglich?
Denn mit MakroAufzeichnung hat es nicht geklappt, da ich keine Zelle auswählen konnte, sondern nur den neuen und alten Text eingeben konnte.

Vielen Dank schonmal für die Antworten.

#2

Puuuuh, da bin ich etwas überfragt. Wenn ich es richtig verstanden habe sollen mit einem VBA-Makro Links verändert werden, also nicht mit der Funktion „Suchen und Ersetzen“? Ich habe mal Links per Programm generiert, also muss diese Eigenschaft einer Zelle zugreifbar sein, wahrscheinlich unter „cells(row,col).hyperlinks(1).subaddress“. Ich würde mal folgendes ausprobieren: einer Zelle einen Link zuweisen und das per Makromitschnitt aufzeichnen. Viel Erfolg
Rainer

#3

Danke für deine Hilfe… :smile: nach Studium weiterer Forenbeiträge und ein bissl rumexperimentieren hat es geklappt…:

Makro das den Bereich einer Tabelle nach alten Teilen eines Links durchsucht und durch den Inhalt einer Zelle( hier: Cells(1,1) = A1 ersetzt

Sub Makro1()
’
’ Makro1 Makro
’
’ Tastenkombination: Strg+q
’
Range(„E11“).Select
ActiveCell.FormulaR1C1 = _
„=’\PLE-FILE\PRIVAT\Kahl.R\Desktop\Neue DBB[13 week CF FC week 35_2012-47_2012.xlsx]SUMMARY (by Entity)’!R[2]C[2]“
Cells.Replace What:=„13 week CF FC week 35_2012-47_2012“, Replacement:= _
Cells(1, 1), LookAt:=xlPart, SearchOrder:=xlByRows _
, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub

#4

Ja das ist möglich. In VBA ist alles möglich :wink: Dazu musst du wohl aber eine eigene Routine schreiben, die alle Zeilen verarbeitet.

sub Machwas()
strGesucht = „test.html“
strErsetzt = „andererlink.html“

for i = 1 to 300 '(bis zur 300. Zeile)
sheets(1).cells(i,1).value = Replace(sheets(1).cells(i,1).value, strGesucht, strErsetzt)

next i

end sub

Für mehr Infos über eigene Makros suche mal nach VBA und Excel bei google oder beschreibe dein Problem genauer. (Zellen, Zeilen, was soll wie wo passieren)

Falls dir das zu aufwendig ist, dann meld dich mal per Mail bei mir.

ovmueller(-at-)gmail.com

Beste Grüße