ich brauch mal Licht ans Fahrrad.
Die ActiveCell.Value bzw. ActiveCell.Address ist immer in Spalte A (falls wichtig)
Mein Code:
Sub malnurgucken()
Dim Suchbegriff As Variant
Suchbegriff = ActiveCell.Value
For i = 1 To 35000
With ActiveSheet
If Workbooks("Datentabellen.xlsx").Sheets("Besondere Hinweise").Cells(i, 1) = Suchbegriff Then
' Ergebnis soll in MsgBox ausgegeben werden
MsgBox (Workbooks("Datentabellen.xlsx").Sheets("Besondere Hinweise").Cells(i, 2))
End If
End With
Next i
MsgBox "Suchbegriff: " & Suchbegriff & " wurde nicht gefunden"
End Sub
Ich bekomme das richtige Ergebnis aber gleich danach Laufzeitfehler 6 der Debugger hier:
If Workbooks("Datentabellen.xlsx").Sheets("Besondere Hinweise").Cells(i, 1) = Suchbegriff Then
k.A. Warum...
Für Rückmeldungen schon mal Danke.
MfG
Thorben