Sub Suchen_und_ausgeben()
Ich schreib grad an nem Programm in Exel, indem man einen Suchbegriff eingibt,
der dann in der gesamten Tabelle gesucht wird und ausgegeben wird, ich bin jetzt schon soweit:
Dim rng As Range
Dim sFind As String
Dim myStr As String
Dim intC As Integer
sFind = InputBox("Bitte Suchbegriff eingeben!", "SUCHE", "")
If sFind = "" Then Exit Sub
Set rng = Cells.Find(What:=sFind, LookIn:=xlValues, LookAt:=xlWhole)
If Not rng Is Nothing Then
For intC = 1 To 27
myStr = myStr & Format(intC, "00") & ". " & Cells(intC, rng.Column) & vbLf
Next
MsgBox "Das Ergebnis der Suche nach " & sFind & ":" & vbLf & vbLf & myStr
End If
End Sub
Aber die Datei hat mehrere Tabellenbläter, meine Frage ist jetzt wie bekomm ich das hin?