AW: Inhalt suchen und dann in die nächste Spalte
06.12.2012 12:25:54
Klaus
Hi,
mache ein Makro mit dem Shortcut STRG+d (oder was immer du magst).
Rekordere dir einmal das "Finden" eines Suchbegriffes. Flicke den Rekordercode in dein Makro, aber mit einem offset(0,1) vor dem activate.
Das könnte dann so aussehen:
Sub MacroFindThenRight()
' Keyboard Shortcut: Ctrl+d
Dim sSearch As String
sSearch = InputBox("Finde Mich!")
Cells.Find(What:=sSearch, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Offset(0, 1).Activate
End Sub
Grüße,
Klaus M.vdT.