VBA Programm zum Suchen und Ausgeben der Fundorte in drei Spalten A, B und C?

Um ein VBA-Programm zu erstellen, das in den Spalten A, B und C nach einem bestimmten Gegenstand sucht und die Ergebnisse in einer MsgBox ausgibt, kannst du den folgenden Code verwenden:

```vba
Sub SucheGegenstand()
Dim ws As Worksheet
Dim suchbegriff As String
Dim gefundenePositionen As String
Dim letzteZeile As Long
Dim i As Long

' Arbeitsblatt festlegen
Set ws = ThisWorkbook.Sheets("Tabelle1") ' Ändere "Tabelle1" nach Bedarf

' Suchbegriff eingeben
suchbegriff = InputBox("Bitte den Gegenstand eingeben, den Sie suchen möchten:")

' Letzte Zeile in Spalte A ermitteln
letzteZeile = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

' Durch die Zeilen iterieren und nach dem Suchbegriff suchen
For i = 1 To letzteZeile
If ws.Cells(i, 1).Value = suchbegriff Or _
ws.Cells(i, 2).Value = suchbegriff Or _
ws.Cells(i, 3).Value = suchbegriff Then
gefundenePositionen = gefundenePositionen & "Gefunden in Zeile " & i & vbCrLf
End If
Next i

' Ergebnis ausgeben
If gefundenePositionen = "" Then
MsgBox "Der Gegenstand wurde nicht gefunden."
Else
MsgBox gefundenePositionen
End If
End Sub
```

### Erklärung des Codes:
1. **Worksheet festlegen**: Das Arbeitsblatt wird festgelegt, in dem die Suche durchgeführt werden soll.
2. **Suchbegriff**: Der Benutzer wird aufgefordert, den gesuchten Gegenstand einzugeben.
3. **Letzte Zeile**: Die letzte Zeile in der Spalte A wird ermittelt, um die Schleife zu begrenzen.
4. **Schleife**: Der Code durchläuft jede Zeile und prüft, ob der Suchbegriff in einer der drei Spalten gefunden wird.
5. **Ergebnis**: Wenn der Gegenstand gefunden wird, wird die Zeilennummer in einer Variablen gespeichert und am Ende in einer MsgBox angezeigt.

Du kannst diesen Code in das VBA-Editor-Fenster deiner Excel-Datei einfügen und das Makro ausführen, um die Suche durchzuführen.