VBA - Frage - Makro wiederholen ?
28.08.2007 18:23:00
Selma
ich habe eine Frage.
Mit dem Makro "FilePruefung_Hyperlink" wird für markierten Zeilenbereich (Markierung der Zeilen erfolgt durch das Makro "Markieren_bis_Graue_Zelle") über Hyperlink-Adresse geprüft, ob die Hyperlink-Dateien auf der Festplatte existieren.
Fehlende Dateien werden mit Farbe 22 eingefärbt. Soweit gut.
Ich möchte gern, dass das Makro "FilePruefung_Hyperlink" die Prüfung für die nächsten Zeilenbereich wie folgt fortsetzt. Wenn das Makro "FilePruefung_Hyperlink mit der Prüfung fertig ist, soll die Zeile mit der Farbe 15 (bezogen auf Spalte A) übersprungen werden und dann nochmal die Prüfung für nächsten Bereich durchführen.
Das Makro soll bis nächste leere Zelle der Spalte A durchlaufen.
Was muss ich ändern ?
Sub FilePruefung_Hyperlink()
Call Markieren_bis_Graue_Zelle
Dim brColor As Integer
Dim myRange As Range
For Each myRange In Selection
myRange.Interior.ColorIndex = 0
If myRange.Hyperlinks.Count > 0 Then
If Dir$(myRange.Hyperlinks(1).Address) = "" Then
myRange.Interior.ColorIndex = 22
brColor = brColor + 1
End If
End If
Next
End Sub
Sub Markieren_bis_Graue_Zelle()
'ab aktive Zellenzeile bis die nächste Zelle (bezogen auf Spalte A)
'mit grauer Hintergrundfarbe kommt bzw. nächste leere Zelle (bezogen auf Spalte A)
'werden die Zeilen markiert.
Dim lZeile As Long
Dim lStart As Long
lStart = ActiveCell.Row
For lZeile = lStart To Range("A65536").End(xlUp).Row + 1
If Range("A" & lZeile).Interior.ColorIndex = 15 Or _
Range("A" & lZeile).Value = "" Then
Rows(lStart & ":" & lZeile - 1).Select
Exit For
End If
Next lZeile
End Sub
Vielen Dank im Voraus...
Liebe Grüße
Selma