Ausgabe in einem neuem Fenster ?
14.05.2004 09:38:33
ralle
Habe folgendes Makro:
Sub ArbeitsmappeDurchsuchen()
Dim zelle As Range
Dim Blatt As Worksheet
Dim str As String
str = InputBox("Bitte geben Sie den Suchbegriff ein!")
If str = "" Then Exit Sub
For Each Blatt In ActiveWorkbook.Worksheets
For Each zelle In Blatt.UsedRange
If zelle = str Then
Debug.Print Blatt.Name & vbTab & zelle.Address
End If
Next zelle
Next Blatt
End Sub
Mit diesem Makro kann ich meine ganze Arbeitsmappe nach einem bestimmten Wert durchsuchen, dieser wird dann im Direktfenster der Entwicklungsumgebung ausgegeben.
Wie muss ich dieses Makro ändern, damit die Ausgabe nicht im Direktfenster ausgegeben wird sondern in einem neuen kleinem Fenster wo alle Ergebnisse aufgelistet werden.
Für Eure Hilfe vielen Dank.
Gruß
ralle