ich scheitere mal wieder an einem VBA-Problem und hoffe inständig auf eure Unterstützung. Da ich mir VBA quasi per 'Learning by doing' aneigne, bitte ich um eure Nachsicht.
Ich möchte innerhalb eines Makros in einer Tabelle aus zwei Spalten nach einer alten Bezeichnung (in Spalte B) suchen und das Kürzel in der Zelle daneben (in Spalte A) in eine variable übergeben. Die alte Bezeichnung wird über eine Combobox definiert. Mein Problem ist, dass ich es nicht schaffe den Wert daneben in eine Variable zu übergeben (fett markierte Zeile).
Danach soll im nächsten Tabellenblatt eine Replace Funktion angewendet werden - diese funktioniert aber bereits unter anderen Umständen.
Es geht um die folgende Passage:
Dim AlteBezeichnung As String
Dim AltesKürzel As String
Dim NeuesKürzel As String
AlteBezeichnung = ComboBox1.Value
NeuesKürzel = ActiveSheet.Cells(last, 1).Value
AltesKürzel = ActiveSheet.Cells.Find(AlteBezeichnung ).Cells(2, 1).Value
Sheets(ActiveSheet.Index + 1).Activate
ActiveSheet.Range("B:B").Replace What:=AltesKürzel , Replacement:=NeuesKürzel , LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Sheets(ActiveSheet.Index - 1).Activate
Ich freue mich wirklich über jeden Tipp oder Hinweis!