MsgBox mit Druck Funktion
13.05.2004 20:03:05
Moritz
ich habe ein Makro, mit dem ich Arbeitsblätter nach diversen Sachen durchsuche und diese dann in einer Msg Box wieder gebe. Nun würde ich den Inhalt dieser Msg Box gerne drucken. Geht das?
Hier der Code:
Sub Kunde()
Dim ws As Object, i As Long, Name As String, Liste As String
Name = InputBox("Welcher Kunde wird gesucht?")
Stil = vbOKOnly
For Each ws In Worksheets
For i = 1 To ws.Cells(Rows.Count, 1).End(xlUp).Row
Prüf = ws.Cells(i, 4)
If InStr(1, ws.Cells(i, 4), Name) Then
Liste = Liste & ws.Cells(i, 1) & "|" & ws.Cells(i, 3) & vbCr
End If
Next
Next
MsgBox Liste, vbExclamation
End Sub