---

hallo,

habe ein problem 
in einer exceltabelle hat es zahlen z.b 1,2,3,4,6,7,8 wie man sieht fehlt die 5 nun sollte man mit einem makro die 5 finden und z.b 6 fett machen oder zwischen 4 und 6 eine zeile einfügen.  oder 5 fett oder rot schreiben so das man sieht welche zahl gefehlt hat.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Sherp,

kleiner Ansatz,
ABER:
das ist bezogen auf Spalte A und diese sollte auch KEINE Leerzellen
enthalten, sonst gehts nicht!
Auch Überschriften & dergleichen habe ich nicht berücksichtigt.

HTH Nancy
--

Sub zahlen()
Dim RowNr As Long
Dim i As Long
RowNr = Range("A1").CurrentRegion.Rows.Count
For i = 1 To RowNr
  If ActiveCell.Offset(1, 0) <> ActiveCell + 1 Then
  MsgBox "Fehler Nr.: " & ActiveCell + 1 & " fehlt"
  ActiveCell.Offset(1, 0).Activate
  ActiveCell.Interior.ColorIndex = 3
  Else: ActiveCell.Offset(1, 0).Activate
End If
Next i
End Sub

[Diese Nachricht wurde von startrek am 02. November 2003 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

hallo startrek

vielen dank hat mir super weitergeholfen !

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP