Variable über Find definieren

Guten Morgen liebe Excelisten,
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!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo,
hier mal dein Code angepasst.
1. die Variable last ist nicht deklariert und es ist ihr auch kein Wert zugewiesen
2. sollte man bei Find immer die Parameter mit angeben.
-Warum? Excel speichert die Parameter der letzten Suche. Ohne Angabe der Parameter werden die von Excel die gespeicherten Parameter genommen. Wenn du aber bei der letzten Suche z.B. in Formeln gesucht hast, jetzt aber in Werten suchst, dann stimmt dein Suchergebnis nicht, weil du die Parameter nicht angegeben hast.
3. Bei Find würde ich das Suchergebnis immer per Set in einer Range-Variablen ausgeben lassen.
Warum? Lass deinen Code mal laufen und lösch vorher mal in der Tabelle den Suchbegriff, so dass die Suche ins Leere läuft. -dann knallts- Das kann man mit der Range-Variablen einfach abfangen.
4. Suchst du mit Cells im ganzen Blatt, du willst doch aber nur in der Spalte B suchen
5. Das Activat habe ich raus geschmissen, braucht kein Mensch und kostet nur Zeit

Public Sub aaa()
Dim AlteBezeichnung As String, AltesKürzel As String
Dim NeuesKürzel As String, raFund As Range
AlteBezeichnung = ComboBox1.Value
NeuesKürzel = ActiveSheet.Cells(last, 1).Value
Set raFund = ActiveSheet.Columns(2).Find(AlteBezeichnung, LookIn:=xlValues, LookAt:=xlWhole)
If Not raFund Is Nothing Then
AltesKürzel = raFund.Offset(, -1)
Else
MsgBox "Suchbegriff nicht vorhanden."
End If
With Sheets(ActiveSheet.Index + 1)
.Range("B:B").Replace What:=AltesKürzel, Replacement:=NeuesKürzel, LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End With
Set raFund = Nothing
End Sub

Und jetzt zum Offset:
Das ist ein Versatz, ausgehend von der ausgewählten/angesporochenen Zelle.
Bei obigem Code ist der Fund in der Addresse raFund
Ein Offset geht von dieser Zelle aus, der erste Wert in der Klammer des Offset ist der Zeilenversatz, der zweite Wert in der Klammer ist der Spaltenversatz
Positive Werte sind bei Zeilenversatz nach unten, negative nach oben
Beim Spaltenversatz sind positive Werte nach rechts, negative Werte nach links
Beispiel:
Range("D5").Offset(1,0) = D6
Range("D5").Offset(-1,0) = D4
Range("D5").Offset(0,1) = E5
Range("D5").Offset(0,-1) = C5
lässt sich natürlich auch kombinieren
Range("D5").Offset(1,1) = E6
Gruß Werner

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Variable über Find definieren

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread