Message Boxen zusammenfassen
16.06.2009 14:56:37
Jochen
ich hab folgendes Problem.
Ich habe drei Abfragen gemacht bei denen jeweils mehrere Message Boxen beim öffnen erscheinen.
Kann ich die Meldungen irgendwie in eine Message Box zusammenfassen, oder in eine extra Tabelle in meiner Mappe ausgeben?
Extra Tabelle wäre sogar fast geschickter- als Art Report.
So sieht mein Modul aus:
Sub SucheAlle()
Dim rZelle As Range
Dim lCount As Long
Dim scount As Long
Application.ScreenUpdating = False
Sheets("Ausgang").Activate
'Suche in Spalte 1 alles Zellen die mit Name1 beginnen
scount = 8
'For scount = 1 To 3
lCount = Application.WorksheetFunction.CountIf(Columns(scount), "Mahnen")
For lCount = 1 To lCount
If lCount = 1 Then
Set rZelle = Columns(scount).Find("Mahnen", , xlValues, 1, 1, 1, True, False)
Else
Set rZelle = Columns(8).FindNext(rZelle)
End If
'MsgBox rZelle.Address
MsgBox "Kunde " & Range(rZelle.Address).Offset(0, -3) & " sollte gemahnt werden!"
Next lCount
'Next scount
Application.ScreenUpdating = True
Sheets("Artikelstamm").Activate
End Sub
Das steht in meiner Arbeitsmappe:
Private Sub Workbook_Open()
Call SucheAlle1
Call SucheAlle
Call SucheAlle2
End Sub
Hoffe ihr könnt mir weiterhelfen.