ich habe schon wieder ein Problem und finde keine Lösung :-(
Also ich habe auf tabelle1 (Symboltabelle) ein Liste mit Zuordnungen z.B. A1 = Name1 B1 = P100 in A2 = Irgenwas2 B2 = PS5
u.s.w auf Tabellenblatt2 (Beschriftung) habe ich im Bereich C2..AE20 wahllos Werte die übereinstimmen mit dennen aus Tabelle1.Spalte B. Ich versuche jetzt die Liste auf Tabelle1 Zeilenweise durchzugehen und wenn dann einen Übereinstimmung mit einer Zelle im Bereich auf Tabellenblatt (Beschriftung) gefunden wird soll
er dort den zugehörigen Wert aus Spalte A reinschreiben.
In kurz : Auf Blatt Symboltabelle ist die Schleife bei Zeile 5 angekommen und dort steht in Spalte B z.b. PAW300 und auf Blatt Beschriftung steht im Bereich C2.. AE20 auch irgendwo PAW300 dann steht nach dem das Makro fertig ist im Bereich C2..AE20 nicht mehr PAW300 sondern das was auf Blatt Symboltabelle in Zelle A5
steht.
Mein Makro dazu :
Sub Austausch()
r = Worksheets("Symboltabelle").Range("B65536").End(xlUp).Row
For z = 1 To r Step 1
Operand = WorksheetFunction.Trim(Worksheets("Symboltabelle").Cells(z, 2).Value)
For Each cell In Worksheets("Beschriftung").UsedRange
If cell.Value = Operand Then
cell.Value = WorksheetFunction.Trim(Worksheets("Symboltabelle").Cells(z, 1).Value)
End If
Next cell
Next z
End Sub
bringt aber immer Laufzeitfehler !
Brauch Eure Hilfe !
Petra