Hallo zusammen,
ich quäle mich grad mit dem Versuch per vba in der Tabelle einen Text zu suchen und daraufhin in dem angrenzenden Feld einen Text eintragen zu lassen.
Das Ereignis kann leider mehrfach aber auch garnicht vorkommen.
Mein letzter Stand ist das:
"""
Dim mis As Range
Set mis = Selection.Find(What:="A123456", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
If Not mis Is Nothing Then
ActiveCell.Offset(0, 1).Range("A1:L1").Select
ActiveCell.FormulaR1C1 = "Text123"
Else
End If
"""
klappt leider nicht. Es soll ein IF fehlen.
Mit
"""
ElseIf mis Is Nothing Then
""" klappt es auch nicht.
--- und wo bitte ist der "Code-Button im Text-Editor"?
Viele Grüße, Sven |