Formatierung

[Leonhard]

Hi,

folgender Sachverhalt:

In Spalte A werden über ein Makro Buchstaben geladen. z.B.:

A
A
B
C
C
C

Da sich das Tabellenblatt, welches als Referenz für das Makro dient ändern kann und somit die Buchstaben und die Anzahl dieser sich ändern kann, glaube ich meine Vorstellung ist nicht umsetzbar?

-Ich hätte gerne einen Code der erkennt das (in diesem Fall) die ersten 2 Eintragungen gleich sind und einen Rahmen um diese bis zur Spalte AS zieht usw. für die folgenden Zeilen. 
Im Anhang mal visualisiert..

Ist sowas überhaupt möglich  
Grüße
Leo

[WillWissen]

Hallo Leo,

mit bedingter Formatierung wirst du nach meiner Meinung nichts erreichen. Eventuell können dir die VBAler mit einem Makro weiterhelfen.

[Leonhard]

Hi Günter,

denke auch das man hier was mit einem Makro machen muss, aber habe nicht den Ansatz einer Idee

[steve1da]

Hola,

zur Info...

http://www.vba-forum.de/forum/View.aspx?...rmatierung

Gruß,
steve1da

[Leonhard]

Jap, sry Thema Crossposting habe ich nicht berücksichtigt..

[WillWissen]

Hi Leonhard,

CP ist bei uns unter bestimmten Bedingungen geduldet. Hier ist dazu etwas Lesestoff: http://www.clever-excel-forum.de/misc.php?action=help&hid=10

[schauan]

Hallöchen,

ich wusste doch, ich hatte da mal was programmiert - 16.01.2003, 11:58 - sollte aber auch heute noch funktionieren. Daher ausnahmsweise mal ohne die von mir gewohnten Kommentare und auch nicht optimiert .

Sub RahmenUmGleicheDaten()
'
Start = 1
ende = 1
For i = Start To Rows.Count
If Cells(i, 1) = Cells(i + 1, 1) Then
ende = i + 1
Else
ende = i
Range(Cells(Start, 1), Cells(ende, 1)).Select
With Selection.Borders()
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Start = i + 1
End If
If Cells(Start, 1) = "" Then Exit Sub
Next

End Sub

[Leonhard]

Hi,
super das passt perfekt =)
Habe es so "angepasst" das die Rahmen bis zur Spalte 20 gemacht werden. Ist es auch möglich das man die vertikalen Linien i wie weg bekommt?

Schon vielen Dank vorab, das hat mir schon sehr geholfen

[Leonhard]

Sowas in die Richtung:

[Leonhard]

Mit
Selection.Borders(xlInsideVertical).LineStyle = xlNone

Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

hast mir super weiter geholfen, nochmals vielen Dank