14.12.2015, 14:27
Hallo zusammen,
habe wieder eine für mich knifflige Aufgabe und hoffe auf Eure Hilfe.
In einer Tabelle in Spalte "C" beginnend ab Zeile 4 bis Zeile 250 stehen unterschiedliche Abkürzungen die ich gerne VBA-technisch aktualisieren/austauschen möchte.
In der Spalte sind auch mehrere Leerzellen verteilt in die natürlich nichts geschrieben werden soll.
Als Ansatz und Beispiel habe ich folgenden Code gefunden:
Wie müsste der Code angepasst werden damit nur in Spalte "C" die Werte ausgetauscht werden?
Vielen Dank für Eure Hilfe!
habe wieder eine für mich knifflige Aufgabe und hoffe auf Eure Hilfe.
In einer Tabelle in Spalte "C" beginnend ab Zeile 4 bis Zeile 250 stehen unterschiedliche Abkürzungen die ich gerne VBA-technisch aktualisieren/austauschen möchte.
In der Spalte sind auch mehrere Leerzellen verteilt in die natürlich nichts geschrieben werden soll.
Als Ansatz und Beispiel habe ich folgenden Code gefunden:
Code:
Sub mehrfachSuchenUndErsetzen()
'sucht im aktiven Tabellenblatt jeweils die Eintraege aus
'suchArray und ersetzt mit ersetzArray
Dim suchArray()
Dim ersetzArray()
Dim k As Long
suchArray = Array("az", "bu", "cf")
ersetzArray = Array("b", "z", "r")
For k = LBound(suchArray) To UBound(suchArray)
Call ActiveSheet.UsedRange.Replace(suchArray(k), ersetzArray(k), , , False)
Next k
End Sub
Wie müsste der Code angepasst werden damit nur in Spalte "C" die Werte ausgetauscht werden?
Vielen Dank für Eure Hilfe!