VBA bedingte Formatierung

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Steuerfuzzi,
theoretisch ja - praktisch nein. Die Bereiche und Formeln kann ich mit der Datenüberprüfung nicht wirklich abdecken oder ich stelle mich zu blöd an.
Ich habe schon mal im Archiv gestöbert und von Herbert einen Code gefunden, der eigentlich ganz gut passt. Ich müsste nur die Bereiche jedes Blatts (
A18 : A38 / A42 : A43 / A47 : A48 / A52 : 54 ) eingrenzen können, da es eben, wie immer scheinbar, natürlich auch Außnahmen für Dubletten gibt. ;-)
Eine MsgBox anhängen mit dem Makro Ergebnis bzw. der Anzahl der Dubletten wäre dann sozusagen die perfekte Lösung.


Sub NamenPruefen()
Dim strVergleich As String
Dim intActiveSheet As Integer
Dim intAnzahl As Integer
Dim lngLast As Long
Dim i As Long
Dim x As Long
Application.ScreenUpdating = False
Application.EnableEvents = False
'Vergleichen und farbig stellen
With ThisWorkbook
For intAnzahl = 1 To .Worksheets.Count
lngLast = .Worksheets(intAnzahl).Cells(Rows.Count, 1).End(xlUp).Row
For intActiveSheet = 1 To .Worksheets.Count
If intActiveSheet  intAnzahl Then
For i = 1 To lngLast
If .Worksheets(intAnzahl).Cells(i, 1).Value  "" Then
strVergleich = .Worksheets(intAnzahl).Cells(i, 1).Value
For x = 1 To Worksheets(intActiveSheet).Cells(Rows.Count, 1).End(xlUp).Row
If strVergleich = Worksheets(intActiveSheet).Range("A" & x).Value Then
.Worksheets(intAnzahl).Cells(i, 1).Font.Color = vbRed
GoTo ENDE
End If
Next x
End If
ENDE:
Next i
End If
Next intActiveSheet
Next intAnzahl
End With
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

Crosspost hin oder her - ich suche eine möglichst gute Lösung für das Problem und zweifle nicht an deiner Kompetenz oder der des Forums. Ich arbeite ja im Hintergrund auch weiter daran (siehe andere VBA). Ich kann dich nur um Hilfe bitten, daher beantworte ich dir dennoch deine Fragen.
Also, dann wäre noch zu klären, ob ...
... der Aufbau wirklich identisch zu Deiner Beispielmappe ist nicht zu 100%, aber ich kann mit Codes (die ich verstehe) arbeiten
... Unter den Daten in Spalte A noch weitere Daten kommen können es geht tatsächlich nur um diese Bereiche - das ist fix "A18:A38,A42:A43,A47:A48,A52:A54"
... alle Blätter gleichzeitig oder immer nur ein Blatt für sich auf doppelte Nummern geprüft werden sollen Alle Blätter gleichzeitig (das Beispiel "12036" zu 12036A ändern sollte verdeutlichen, dass es eine fortlaufende Nummer ist - entschuldige
... doppelte Nummern automatisch ergänzt werden sollen nein nein, nur prüfen
... die Teilenummern immer numerisch sind nicht immer - Buchstaben können auch vorkommen
... die Teilenummern immer aufsteigend sortiert sein sollten nein, nicht zwingend

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

309 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA bedingte Formatierung

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

309 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread