AW: Per VBA suchen, Ergebniszeile ausgeben
15.02.2010 09:54:29
Tanja
Hallo Björn,
habe soeben mal wieder "rumprobiert" und festgestellt, dass das Makro zwar soweit läuft, aber, dass ich in der Textbox nicht das Ergebnis der Formel ausgegeben kriege, sondern die Formel an sich?
Ich poste mal den Code, vielleicht findest du ja den Grund, wieso es nciht geht?
Private Sub CommandButton2_Click()
Dim eingabe As Double
Dim Zeile As Long
Dim Formel
If TextBox1 = "" Then
MsgBox "Bitte eine Nummer eingeben!"
Else
eingabe = TextBox1.Value
Zeile = Sheets("Verzeichnis").Columns("A:A").Find(What:=eingabe, After:=ActiveCell, LookIn:= _
xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Row
Formel = "=VLOOKUP(" & Range("A" & Zeile) & ";A:F;4;FALSE)"
TextBox2.Value = Formel
End If
End Sub
Für deine weitere Unterstützung wäre ich sehr dankbar.
VG und einen guten Wochenstart wünscht
Tanja