Office: Rahmen außen setzen

User · 3. Februar 2008

Hallo Zusammen*Smilie ,

habe ein problem, Ich habe eine Tabelle die von der Spalte A bis Spalte P geht.

Jetzt möchte ich gerne das mir ab der Zeile 14 einen äußeren Rahmen erzeugt, sobald ich irgendeine Zelle im Bereich von Spalte A - P irgendwas reingetippt habe.

Der äußeren Rahmen muss sich von der Spalte A bis Spalte P erzeugt werden?

Wie kann man dies umsetzten über einen Makro?

Hoffe ich konnte mein Problem, verständlich rüberbringen!

Bedanke mich im Voraus.

gruss

Samu*Smilie

:)

heebu · 4. Februar 2008

Hallo samu

Ich hab das mit bedingter Formatierung gemacht (siehe Anhang).

Gruss heebu

User · 4. Februar 2008

Hallo heebu,

vielen dank für die schnelle antwort!

Ich habe das problem das ich schon mehrere Bedingung habe.

Kann man es nicht mit einen Makro erzeugen.

Leider bin ich kein so großer Makro programmieren.

gruss

samu

heebu · 5. Februar 2008

Hallo samu

Da kenn ich mich leider auch zu wenig aus. Sorry.

Gruss heebu

chris-kaiser · 5. Februar 2008

hiho

füge das im jeweiligen Tabellenblatt ein (rechte Maustaste auf dem Blattregister -> Code anzeigen)

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
If Target.Row > 14 And Target.Count = 1 Then
Set rng = Range("A" & Target.Row & ":P" & Target.Row)
With rng.Borders
.LineStyle = xlContinuous
.Weight = xlThick
End With
rng.Borders(xlInsideVertical).LineStyle = xlNone
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

User · 5. Februar 2008

Hallo Chris,

vielen dank für den Code.

Wie kann ich den Code so verändern das mir den Rahmen der einzelnen Zellen erscheint bis Spalte P z.B. siehe Skizze
______________________________________
|_________|_______|_________|__________|

Und wie geht es wenn man den Inhalt irgendeine Zelle in diesen Bereich (Spalte A bis Spalt P) löscht, das mir den Rahmen auch mit löscht?

Auf eine Vorschlag bedanke ich mich im Voraus

gruss

samu*Smilie

chris-kaiser · 5. Februar 2008

hiho

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
If Target.Row > 14 And Target.Count = 1 Then
Set rng = Range("A" & Target.Row & ":P" & Target.Row)
If Target.Value "" Then
With rng.Borders
.LineStyle = xlContinuous
.Weight = xlThick
End With
Else
rng.Borders.LineStyle = xlNone
End If
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

User · 5. Februar 2008

Hallo Chris,

hat alles wunderbar geklappt habe die Strichstärke auf xlThin geändert.

Vielen Dank,

gruss

Samu*Smilie

Office: Rahmen außen setzen

Rahmen außen setzen

Rahmen außen setzen

Rahmen außen setzen

Rahmen außen setzen

Rahmen außen setzen - Similar Threads - Rahmen

Adressbox für Fenstercouvert positionieren

Rahmen in jeder neuen Leerzeile

Excel Registrierkarte Start Pfeil Rahmen

Bekomme Rahmen im Druck nicht weg

Unterschiedliche Liniendicken Gitter

Word -> PDF : weiße Linien (Rahmen?)

Rahmen um Bilder