Office: Makro/VBA: Rahmenlinie ziehen, wenn in Zelle X = "Text"

Hallo zusammen. Wirklich ein tolles Forum hier. Vielleicht könnt ihr mir weiterhelfen:

Ich will ein Makro machen, so dass unter einer gesamten Zeile (oder genauer gesagt von Zelle 1-7) eine Rahmenlinie_unten gezogen wird, wenn in der 2. Zelle einer Reihe eine bestimmte Wortreihenfolge steht ("+AB" oder "+BB" oder "+CB" oder "+B").
Also ich will nicht nur eine Linie unter der betreffenden Zelle, sondern in der gesamten Zeile, wenn in Zelle 2 einer Zeile "+AB" oder "+BB" oder "+CB" oder "+B" steht.
Ist das irgendwie möglich?

Vielen Dank für eure Hilfe!

:)

 

das liest sich so als wäre da kein Makro notwendig, sondern das könnte man mit bedingter Formatierung lösen. Die Au´fgabe ist zu unklar beschrieben um eine Lösung vorzuschlagen.
Für VBA muss die Aufgabe auch ganz genau beschrieben werden.

 

Hi Dude,
keine Ahnung ob ich Dich richtig verstanden habe, aber vielleicht hilft Dir das...

PHP:

         Sub Rahmen()
Dim Bereich As Range
Dim Zelle As Range

Set Bereich = Range("B1:B7")

For Each Zelle In Bereich

If Zelle.Value = " +AB" Or _
Zelle.Value = " +BB" Or _
Zelle.Value = " +CB" Or _
Zelle.Value = " +B" Then

Zelle.EntireRow.Borders(xlEdgeBottom).ColorIndex = 1

Set Bereich = Nothing

End If
Next


End Sub


 

Hi Leute,

vielen Dank, für eure schnellen Antworten!

@totti74: Das klingt gut. Werde allerdings erst später Gelegenheit haben, es auszuprobieren.
Ich melde mich dann mit Feedback.

Danke!

 

Ok, ich habs jetzt ausprobieren können. Klappt soweit ganz gut. Allerdings ist dieses +AB, +BB doch kein eindeutiges Kriterium für die Rahmenlinie.
Was allerdings eindeutig ist:
Wenn in einer Zelle ein Datum (in der Form: dd.mm.yyyy) steht, muss eine obere Rahmenlinie über die gesamte Zeile gezogen werden.

Eventuelles Problem: Es gibt auch Zeilen in denen Wochentage (in der Form: dddd) stehen. Dies darf nicht dazu führen, dass diese Zeile auch mit einer oberen Rahmenlinie versehen wird.
Beispiel:

1 01.01.2011
2 Dienstag
3
4 02.01.2011
5 Mittwoch
6
7
8 03.01.2011
9 Donnerstag
10

Dann will ich hier z.B. NUR über den Zeilen 1, 4 und 8 eine obere Rahmenlinie gezogen wird.

Wäre genial, wenn sich jemand erbarmen könnte, mir zu helfen...

Vielen Dank im Voraus

 

löse es mit einer Hilfsspalte, die kann man ja ausblenden.


Tabelle1

	A	B	C	D	E	F	G	H	I
1	01.01.2011	TT.MM.JJJJ
2	Samstag	TTTT
3		Standard
4	02.01.2011	TT.MM.JJJJ
5	Sonntag	TTTT
6		Standard
7		Standard
8	03.01.2011	TT.MM.JJJJ
9	Montag	TTTT

Bedingte Formatierung wird in dieser Tabelle nicht dargestellt

verwendete Formeln
Zelle	Formel	Bereich
B1	=Format1
A2	=A1
B2	=Format1
B3	=Format1
B4	=Format1
A5	=A4
B5	=Format1
B6	=Format1
B7	=Format1
B8	=Format1
A9	=A8
B9	=Format1

definierte Namen
Name	Bezieht sich auf	Tabelle	Z1S1-Formel
Format1	=ZELLE.ZUORDNEN(7;INDIREKT("ZS(-1)";FALSCH))		=ZELLE.ZUORDNEN(7;INDIREKT("ZS(-1)";FALSCH))

Zahlenformate
Zelle	Format	Wert
A1	TT.MM.JJJJ	40544
A2	TTTT	40544
A4	TT.MM.JJJJ	40545
A5	TTTT	40545
A8	TT.MM.JJJJ	40546
A9	TTTT	40546

Zellen mit Format Standard werden nicht dargestellt

bedingte Formatierung
Zelle	Typ	Operator	Formel1	Formel2	Format	Unterstrichen	Schrift- farbe	Muster	Muster- farbe
A1:I9	1.Bed.: Formel ist		=$B1="TT.MM.JJJJ"		Test

Rahmen
		Links		Rechts		Oben		Unten
Zelle	Nr. Bed.	Linienart	Farbe	Linienart	Farbe	Linienart	Farbe	Linienart	Farbe
A1:I9	1.Bed.					durchgezogen	0

Die Bedingungen wurden mit Excel-Version ab 2007 ausgelesen
Durch die veränderte Bedingte Formatierung kann es vorkommen, dass Bedingungen falsch ausgelesen werden

Gruß Hajo

 

Sorry, für die späte Antwort. Danke (an alle). Das mit der bedingten Formatierung klappt super. (Zumindest von mir) unterschätzte Funktion diese bedingte Formatierung