Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon Nimal vom 06.03.2020, 23:24 Options

Kundennummern vergleichen

Hallo!

ich brauche Eure Hilfe. Ich möchte gerne in der "Spalte B
Kundennummern" vergleichen und bei nicht 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

Antwort schreiben

Antwort 1 von Casimann vom 07.03.2020, 01:02 Options

Hallo Nimal,

hast du schon mal mit einer Pivot Tabelle gearbeitet ?

Gruss
Carsten

Antwort 2 von Marie vom 07.03.2020, 02:27 Options

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

Antwort 3 von Marie vom 07.03.2020, 02:36 Options

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

Antwort 4 von nimal vom 07.03.2020, 17:21 Options

allen danke danke danke !!

Marie super , es funzt wunderbar !

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Tipp einschicken

News einschicken