Supportnet / Forum / Tabellenkalkulation

Hallo! ich brauche Eure Hilfe. Ich möchte gerne in der "Spalte B Kundennummern" vergleichen und bei [b]nicht [/b]identischen Kundenummern eine "Rahmenlinie unten" drüber von A bis I ziehen Wäre für Eure Hilfe sehr dankbar! Gruß, Nimal Bsp. 4154400000 4154400000 4154400000 4154400000 ------------------ 4154399000 4154399000 4154399000 4154399000 ----------------- 4151577000 4151577000 4151577000 4151577000 ----------------- 4153628000 4153628000 4153628000 4153628000

Hallo Nimal,

hast du schon mal mit einer Pivot Tabelle gearbeitet ?

Gruss
Carsten

Public Sub fktKundennummer()
Dim intZeile    As Integer
Dim intFarbe    As Integer
Dim letzteZeile As Long

'letzte beschriebene Zeile
letzteZeile = Range("B65536").End(xlUp).Row

For intZeile = 1 To letzteZeile
    If Cells(intZeile, 2).Value <> Cells(intZeile + 1, 2).Value Then
        Cells(intZeile, 2).Select
        'Linie unter Kundennummer
        With Selection.Borders(xlEdgeBottom)
            .LineStyle = xlContinuous
            .Weight = xlMedium
            .ColorIndex = xlAutomatic
        End With
    End If
Next
End Sub

Gruß Marie

Upps sorry, mal wieder nicht ordentlich gelesen:

Public Sub fktKundennummer()
Dim intZeile    As Integer
Dim letzteZeile As Long

'letzte beschriebene Zeile
letzteZeile = Range("B65536").End(xlUp).Row

For intZeile = 1 To letzteZeile
    If Cells(intZeile, 2).Value <> Cells(intZeile + 1, 2).Value Then
        Range(Cells(intZeile, 1), Cells(intZeile, 9)).Select
        'Linie unter Kundennummer
        With Selection.Borders(xlEdgeBottom)
            .LineStyle = xlContinuous
            .Weight = xlMedium
            .ColorIndex = xlAutomatic
        End With
    End If
Next
End Sub

Nochmal Gruß marie

allen danke danke danke !!

Marie super , es funzt wunderbar !

• Zellen in Spalte A vergleichen und bei Übereinstimmung Werte aus Spalte B addieren
• Tabellenvergleich
• Tabellen vergleichen
• Zwei Spalten vergleichen