PDA

Vollständige Version anzeigen : Makro mit MsgBox erweitern


Darwin
21.09.2003, 07:17
Hallo,
ich habe hier ein Makro im Forum gefunden das meine Wünsche eigentlich erfüllt, nur will ich eine zusätzliche MsgBox als Hinweis:
Sub DoppelteMarkieren()
Dim Spalte As Long
Dim Erstezeile As Long
Dim LetzteZeile As Long
Dim Suchkriterium
Dim i As Integer
Dim j As Integer

Application.ScreenUpdating = False
Spalte = 4
Erstezeile = 12
LetzteZeile = ActiveSheet.Cells(65535, Spalte).End(xlUp).Row

For i = Erstezeile To LetzteZeile - 1
Suchkriterium = Right(Cells(i, Spalte), 4)
For j = i + 1 To LetzteZeile
If Right(Cells(j, Spalte), 4) = Suchkriterium Then
With Cells(i, Spalte).Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
With Cells(j, Spalte).Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
End If
Next
Next
Application.ScreenUpdating = True
End Sub
Wenn jetzt doppelte Daten vorhanden sind, sollen diese auch markiert werden und als Hinweis soll dann noch diese Box kommen.
Müßte dann ja irgendwie so sein:
If ... Then
MsgBox "Habe was gefunden!"
Else
MsgBox "Alles ok!"

Ist das machbar? Ich habe keinen Plan wie das geht.

Nepumuk
21.09.2003, 07:34
Hallo Darwin,
so geht's:
<pre><span style="font-family=MS Sans Serif,Arial; font-size=10pt"; ><span style="color:#0000FF"; >Option</span> <span style="color:#0000FF"; >Explicit</span>
<b><span style="color:#0000FF"; >Sub</span> DoppelteMarkieren()</b>
<span style="color:#0000FF"; >Dim</span> Spalte <span style="color:#0000FF"; >As</span> <span style="color:#0000FF"; >Long</span>
<span style="color:#0000FF"; >Dim</span> Erstezeile <span style="color:#0000FF"; >As</span> <span style="color:#0000FF"; >Long</span>
<span style="color:#0000FF"; >Dim</span> LetzteZeile <span style="color:#0000FF"; >As</span> <span style="color:#0000FF"; >Long</span>
<span style="color:#0000FF"; >Dim</span> Suchkriterium
<span style="color:#0000FF"; >Dim</span> i <span style="color:#0000FF"; >As</span> <span style="color:#0000FF"; >Integer</span>
<span style="color:#0000FF"; >Dim</span> j <span style="color:#0000FF"; >As</span> <span style="color:#0000FF"; >Integer</span>
<span style="color:#0000FF"; >Dim</span> gefunden <span style="color:#0000FF"; >As</span> <span style="color:#0000FF"; >Boolean</span>

Application.ScreenUpdating = <span style="color:#0000FF"; >False</span>
Spalte = 4
Erstezeile = 12
LetzteZeile = ActiveSheet.Cells(65535, Spalte).End(xlUp).Row

<span style="color:#0000FF"; >For</span> i = Erstezeile <span style="color:#0000FF"; >To</span> LetzteZeile - 1
Suchkriterium = Right(Cells(i, Spalte), 4)
<span style="color:#0000FF"; >For</span> j = i + 1 <span style="color:#0000FF"; >To</span> LetzteZeile
<span style="color:#0000FF"; >If</span> Right(Cells(j, Spalte), 4) = Suchkriterium <span style="color:#0000FF"; >Then</span>
<span style="color:#0000FF"; >With</span> Cells(i, Spalte).Interior
.ColorIndex = 3
.Pattern = xlSolid
<span style="color:#0000FF"; >End</span> <span style="color:#0000FF"; >With</span>
<span style="color:#0000FF"; >With</span> Cells(j, Spalte).Interior
.ColorIndex = 3
.Pattern = xlSolid
<span style="color:#0000FF"; >End</span> <span style="color:#0000FF"; >With</span>
gefunden = <span style="color:#0000FF"; >True</span>
<span style="color:#0000FF"; >End</span> <span style="color:#0000FF"; >If</span>
<span style="color:#0000FF"; >Next</span>
<span style="color:#0000FF"; >Next</span>
Application.ScreenUpdating = <span style="color:#0000FF"; >True</span>
MsgBox IIf(gefunden, <span style="color:#800000"; >"Habe was gefunden."</span>, <span style="color:#800000"; >"Alles Ok."</span>), 64, <span style="color:#800000"; >"Information"</span>
<b><span style="color:#0000FF"; >End</span> <span style="color:#0000FF"; >Sub</span></b>
</span></pre>
<br><span style=" font-weight:bold;"> Code eingef&uuml;gt mit: </span> <a style ="color:#ffff00; background-color:#000080; font-weight:bold;" href="http://www.haserodt.de/cj_pro/cj_ex.htm" target="blank">Excel Code Jeanie</a>

Gruß
Nepumuk

Darwin
21.09.2003, 07:54
Super danke. :top:
Funktioniert einwandfrei, genau das brauchte ich.