Ich habe ein Problem:
Ich öffne eine Input-Box in die ich den Suchbegriff eingebe.
Daraufhin wird mir in einer MsgBox der Inhalt der Zelle rechts neben der gefundenen angezeigt.
Dies geschieht wie folgt:
Sub auto_open()
Dim Zelle As Range
Dim str As String
str = InputBox _
("Bitte Usernamen eingeben")
If str = "" Then Exit Sub
ActiveSheet.Cells.Select
For Each Zelle In Selection
If Zelle = str Then
Zelle.Select
ActiveCell.Offset(0, 1).Select
MsgBox "Die ID lautet:" & Chr(13) & ActiveCell
Exit Sub
End If
Next Zelle
MsgBox "User nicht bekannt!"
End Sub
Jetzt möchte ich dies allerdings so steuern, dass ich lediglich die Input-Box angezeigt bekomme (am besten über ein Shortcut), die Excel-Tabelle sich im Hintergrund öffnet und, nachdem ich die MsgBox angezeigt bekommen habe, wieder schliesst.
Ist das realisierbar?
Mfg
Azubi CPFT