Office: Mehrere Werte in Spalte suchen und Text ersetzen

chrissi0907 · 7. Juli 2013

Hallo,

ich habe folgendes vor:

Ich möchte eine Datei in Excel einlesen und die Liste enthält Nummer, welche jede nur 1x vorkommt. Meine Gesamtliste ist mit 4000 Nummern bestückt, die jeweils eine Spalte weiter den dazugehörigen Text hat. Die eingelesene Datei welche geänderte Texte enthält, soll nun eingelesen werden und eben nur die z.B: 5 neuen Texte zur jeweiligen Nummer ersetzen.

Meine Überlegung:

Ich erstelle zwei Arrays. 1. Array für die Nummer 2. Array für den dazugehörigen Inhalt.

Dann lese ich die Datei ein und schreibe die Zahlen in Array 1 und den Text in Array 2.

Anschließend lasse ich die Nummer von Array 1 suchen und schreibe mir die Zeilennummer in eine Variable.
Anschließend schreibe ich den Inhalt aus Array 2 in die passende Zelle. (Im Endeffekt reicht mir die Zeilennummer, da der Spalten Buchstaben immer gleich bleibt).

Dies wiederhole ich solange, bis ich ein leeres Array bekomme vom 1. Array.

Ist meine Überlegung korrekt oder gibt es hier schon vorhersehbare Probleme?

Hier mal mein Suche Sub. Natürlich sind hier jetzt noch Variablen drin, die später ersetzt werden müssen. Außerdem ist "iWhileCount" später durch "ZahlenArray = "" " ersetzt.

Code:

Sub Find_More()

Dim i As Integer
Dim strCell(100) As String
Dim strNewText(100) As String
Dim iWhileCount As Integer

'Init Anfang############
For x = 0 To 100
strCell(x) = 0
Next x
iWhileCount = 0
'Init Ende############

With Worksheets(1).Range("B1:B500")
i = 0
Do While (strNewText(i) = "") And iWhileCount < 101

Set c = .Find(i, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
strCell(i) = firstAddress
i = i + 1
End If
iWhileCount = iWhileCount + 1
Loop
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Für Vorschläge etc. bin ich offen, deshalb dieser Post *Smilie

:)

Hajo_Zi · 8. Juli 2013

warum nicht einfach Sverweis() als Formel?

chrissi0907 · 8. Juli 2013

Weil die einzulesende Datei eine XML-Datei ist und ich somit erstmal die TAGS ausfiltern muss etc. Die Datei kann nachher (diese Funktion funktioniert schon) über eine Export-Funktion im UTF-8 Format ausgegeben werden.

Office: Mehrere Werte in Spalte suchen und Text ersetzen

Mehrere Werte in Spalte suchen und Text ersetzen

Mehrere Werte in Spalte suchen und Text ersetzen

Mehrere Werte in Spalte suchen und Text ersetzen - Similar Threads - Werte Spalte Text

Häufigste Wert/Text aus einer Spalte ermitteln ohne leere oder 0

Text auflisten wenn Wert in gleicher Spalte enthält X

Wert aus Zeile in Spalte suchen und bei Übereinstimmung Text aus andere Zeile anzeigen

Zwei Spalten nach gleichen Text suchen und Wert aus ander Zelle anzeigen

In Spalte erste Leere Spalte dann Wert/Text ausgeben

Wenn Text in Spalte x dann Wert in Spalte y

Werte aus Text in Spalten auflisten