VBA per if-Schleife formatieren

Hallo!
Mein erster Beitrag hier Smile
Ich würde mich als Excel-Profi, aber VBA-programmierunerfahren bezeichnen. Nun also zu einer für mich schwierigen Aufgabe.
Ich habe eine Excel-Tabelle mit Teilergebnissen versehen. Es ist eine Konzern-Kunden-Umsatzliste.
Sie ist wie folgt aufgebaut:
Konzern Kunde Konto Name Umsatz Saldo
2123 123 23 xy 1000 500
2123 123 24 xyz 2000 1500
Teilergenis für Kunde 123 (mittels sverweis Konzernsumme 2123 dazugeholt)
2123 124 25 xy 1000 500
2123 124 26 xyz 2000 1500
Teilergenis für Kunde 123 (mittels sverweis Konzernsumme 2123 dazugeholt)
2711 711 50 pq 1000 500
2711 711 51 pq 1000 500
Teilergenis für Kunde 123 (mittels sverweis Konzernsumme 2711 dazugeholt)
Die Konzernsummen habe ich mittels sverweis in drei zusätzliche Spalten in der Teilergebnis-(je Kunde)-Zeile eingebunden.
Nun möchte ich, per Makro ausführen:
Wenn es sich um eine Kunden-Teilergebniszeile handelt: Zeile fett, Schriftgröße 11 sowie dünner Rahmen unten.
Wenn es sich in der nächsten Zeile um einen anderen Konzern handelt, soll statt eines dünnen unteren Rahmens ein dicker unterer Rahmen gesetzt werden.
Ich hoffe ihr versteht mich Smile
Wie bekomme ich solche if-Schleifen und den entsprechenden Formatierungen hin?
Danke euch jetzt schon mal!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi IThö
das Ding ist zwar ne Gurke (d.h. geht garantiert eleganter) aber es ist getestet ;-)
Du musst ggf noch Anpassungen der Spaltennummer vornehmen.

Sub test()
Dim Lrow As Long, i As Long, rng As Range
'letzte gefüllte Zelle in Spalte B (=2)
Lrow = Cells(Rows.Count, 2).End(xlUp).Row
'ab Zeile 2 bis Letzte
For i = 2 To Lrow
'wenn in Spalte B, 6 Zeichen rechts ="gebnis", dann
If Right(Cells(i, 2), 6) = "gebnis" Then
'definierter Bereich = durchsuchte Zeile, Spalte 1 bis 10
Set rng = Range(Cells(i, 1), Cells(i, 10))
With rng.Font
.Size = 11
.Bold = True
End With
'wenn in Spalte A (Lieferant) die Werte über und unter der durchsuchten Zeile ungleich
'dann verschiedener Lieferant und dicke Linie
If Cells(i - 1, 1) <> Cells(i + 1, 1) Then
With rng.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
Else
With rng.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End If
End If
Next i
End Sub

Sub LinienUndFetteSchriftWeg()
With UsedRange
.Borders.LineStyle = xlNone
.Font.Bold = False
End With
End Sub

Gruss Harald

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

316 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA per if-Schleife formatieren

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

316 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread