Bereich einrahmen

Bild

Betrifft: Bereich einrahmen von: johfri
Geschrieben am: 14.03.2005 17:36:47

hallo,

habe ein problem. ich kann in meiner tabelle im bereich a14:a53 artikelnummern eingeben und in der zelle rechts daneben steht dann die bezeichnung. nun möchte ich den bereich der verwendet wurde umrahmen.

z.B

Art.Nr. Bezeichnung
1000 Haus
2222 Auto
5555 Baum

hier möchte ich den bereich von 1000 bis Baum einrahmen.
da ich mit vba kaum erfahrung habe bitte ich um hilfe.

gruß johfri

Bild


Betrifft: AW: Bereich einrahmen von: Herbert H.
Geschrieben am: 14.03.2005 18:11:06

hallo jofri,

Bereich Selektieren/ausführen:


Sub Rahmen()
  With Selection
    .Borders(xlEdgeLeft).LineStyle = xlContinuous
    .Borders(xlEdgeTop).LineStyle = xlContinuous
    .Borders(xlEdgeBottom).LineStyle = xlContinuous
    .Borders(xlEdgeRight).LineStyle = xlContinuous
  End With
End Sub


gruß Herbert


Bild


Betrifft: AW: Bereich einrahmen von: johfri
Geschrieben am: 14.03.2005 18:37:24

hallo herbert h.

das problem ist, dass ich nicht weiß wie ich nur den benutzten bereich in dem bereich a14:b53 selektiere.
von a14 bis a53 sind es 40 zellen in denen ich meine artikelnummer eingeben kann. die anzahl dieser nummern werden fast immer verschieden sein, d.h. die umrahmung soll variable sein und sich nach der anzahl der artikelnummern richten.

gruß johfri


Bild


Betrifft: AW: Bereich einrahmen von: Herbert H.
Geschrieben am: 14.03.2005 18:51:14

dann probiers so:


Sub Rahmen()
Dim lz%
lz = Cells(54, 1).End(xlUp).Row
  With Range(Cells(14, 1), Cells(lz, 2))
    .Borders(xlInsideHorizontal).LineStyle = xlNone
    .Borders(xlEdgeLeft).LineStyle = xlContinuous
    .Borders(xlEdgeTop).LineStyle = xlContinuous
    .Borders(xlEdgeBottom).LineStyle = xlContinuous
    .Borders(xlEdgeRight).LineStyle = xlContinuous
  End With
End Sub


Gruß Herbert


Bild


Betrifft: AW: Bereich einrahmen von: johfri
Geschrieben am: 14.03.2005 19:07:17

DANKE

es klappert wunderbar und ich bin mehr als zufrieden.

1000 Dank

gruß johfri


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Bereich einrahmen"