Office-Fragen.de
Range mit 2 Spalten - Druckversion

+- Office-Fragen.de (https://office-fragen.de)
+-- Forum: Microsoft Office (https://office-fragen.de/forum-1.html)
+--- Forum: Excel (https://office-fragen.de/forum-2.html)
+--- Thema: Range mit 2 Spalten (/thread-1174.html)

Range mit 2 Spalten - Simsala - 06.07.2019

Hallo zusammen

ich hoffe und bin mir sicher, dass ihr mir weiterhelfen könnt.

ich habe ein Makro das mir eine Reihe nach doppelten Einträgen durchsucht und diese dann farblich hervor hebt - soweit klappt das prima.

Jetzt habe ich aber 2 Reihen - mit Vorname und Nachname - ich möchte gerne das die beiden zusammengenommen werden und dann auf Duplikate überprüft werden.


Code:
Sub CheckDoppelte()

'Doppelte Einträge von Reihe F+G unterschiedlich farbig markieren

Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim xChar As String
Dim xCellPre As Range
Dim xCIndex As Long
Dim xCol As Collection
Dim I As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If

                                        Set xRg = Range("F10:G100")

If xRg Is Nothing Then Exit Sub
xCIndex = 2
Set xCol = New Collection
For Each xCell In xRg
On Error Resume Next
If xCell.Value <> "" Then
xCol.Add xCell, xCell.Text
If Err.Number = 457 Then
xCIndex = xCIndex + 1
Set xCellPre = xCol(xCell.Text)
If xCellPre.Interior.ColorIndex = xlNone Then xCellPre.Interior.Color = RGB(xRed, xGreen, xBlue)
xCell.Interior.Color = xCellPre.Interior.Color
ElseIf Err.Number = 9 Then
MsgBox "Zu viele Duplikate - Frabe ist ausgegangen!", vbCritical, "Dupplikate markieren"
Exit Sub
End If
xRed = Application.WorksheetFunction.RandBetween(0, 255)
xGreen = Application.WorksheetFunction.RandBetween(0, 255)
xBlue = Application.WorksheetFunction.RandBetween(0, 255)
On Error GoTo 0
End If
Next

End Sub

mein bislang letzter Versuch leider geht das nicht

Im Anhang ist ein Beispielfile - Vorname und Zuname sollten zusammengenommen werden und dann, falls es andere Einträge mit demselben Vornamen+Zunamen gibt, farbig gekennzeichnet werden

Hat jemand eine Idee was und wie ich das ans laufen bringe?

Danke im Voraus

Simsala
.xlsm   Mappe2.xlsm (Größe: 31,37 KB / Downloads: 0)

RE: Range mit 2 Spalten - GMG-CC - 06.07.2019

Für alle Mit-Helfer C/P pur, zumal im Nachbarforum bereits einige Vorschläge existieren.
=> http://www.excel-ist-sexy.de/forenhilfe/crossposting/

RE: Range mit 2 Spalten - Simsala - 06.07.2019

Ich habe auch nie einen Hehl daraus gemacht, dass ich in einem anderen Forum ebenfalls gefragt habe - allerdings gibt es keine Lösungsvorschläge die funktionieren

Ist es verwerflich mehr als eine Quelle um Unterstützung an zu fragen?


Hier habe ich meine Frage gestellt
https://www.ms-office-forum.net/forum/showthread.php?t=361084

RE: Range mit 2 Spalten - Simsala - 06.07.2019

Das Problem ist behoben - danke für die Unterstüzung

RE: Range mit 2 Spalten - steve1da - 07.07.2019

Hola,

Zitat:Ist es verwerflich mehr als eine Quelle um Unterstützung an zu fragen?


wenn alle voneinander wissen, nicht. So lässt du 3 Foren für dich arbeiten und keiner weiß vom anderen.
Oder arbeitest du gerne völlig umsonst?

Gruß,
steve1da