Office: (Office 2007) wenn inhalt in Zellen dann rahmen (Makro)

jensus · 27. November 2004

Hallo

Ich suche dringend ein Makrro welches mir folgendes ermöglicht.

Wenn bei einer Zellenauswahl (A9:P80) ein Inhalt existiert, egal ob text oder zahl etc. dann um jede Zelle einen Rahmen bilden, sonst nichts.

Schon im Voraus muchas gracias

Jens *hands

:)

JFreudens · 29. November 2004

Hi Jens,

das gehz z. B. so:

Code:

Sub Jensus()
Application.ScreenUpdating = False
For Each Zelle In Range("A9:P80")
With Zelle.Borders(xlEdgeLeft)
.LineStyle = xlNone
End With
With Zelle.Borders(xlEdgeTop)
.LineStyle = xlNone
End With
With Zelle.Borders(xlEdgeBottom)
.LineStyle = xlNone
End With
With Zelle.Borders(xlEdgeRight)
.LineStyle = xlNone
End With
Next
For Each Zelle In Range("A9:P80")
If Zelle "" Then
With Zelle.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Zelle.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Zelle.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Zelle.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End If
Next
Application.ScreenUpdating = True
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ciao

Johannes

jensus · 30. November 2004

Bin nun seit gestern registriert und bin absolut beeindruckt, wie rasch und effizient mir dieses Forum weiterhilft. Ich werde noch so einiges lernen...

Thanks a lot!

jinx · 30. November 2004

Moin, Johannes,

nichts gegen Deinen Code (funktioniert), aber versuche doch bitte einmal die folgende Variante; die sieht zumindest etwas kürzer aus *wink.gif*:

Code:

For Each Zelle In Range("A9:P80")
With Zelle
If .Value "" Then
.BorderAround Weight:=xlThin
End If
End With
Next
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

JFreudens · 30. November 2004

Moin jinx,

joh, das ist echt wesentlich eleganter.

Merci
Johannes

Office: (Office 2007) wenn inhalt in Zellen dann rahmen (Makro)

wenn inhalt in Zellen dann rahmen (Makro)

wenn inhalt in Zellen dann rahmen (Makro)

wenn inhalt in Zellen dann rahmen (Makro)

wenn inhalt in Zellen dann rahmen (Makro) - Similar Threads - inhalt Zellen rahmen

Auf die nächst mögliche Zelle mit Inhalt zugreifen

Zelle per VBA auf ihren Inhalt prüfen und reagieren sowie bei Änderung

Prüfung unterschiedlicher Zellen auf Inhalt und Konsequenz

Inhalt Zelle inkl. bedingter Formatierung übernehmen

Zeilen löschen wenn eine Zelle der Zeile einen bestimmten Inhalt hat

Wenn Formel= Wenn etwas erfüllt, zeige Inhalt einer Zelle

Zellen Inhalt zurückgeben