2 Makierte Bereiche vereinen und Rahmen rum ziehen



Excel-Version: 2000
nach unten

Betrifft: 2 Makierte Bereiche vereinen und Rahmen rum ziehen
von: Günter
Geschrieben am: 11.04.2002 - 08:38:59

Und Noch eine Frage:
Ich muss ein Makro schreiben, das folgende Eigenschaften enthaelt.
- Man waehlt einen Bereich z.B A1:A4 mit gedruckter Maustaste aus
- Dann wählt man eine weitere (anliegende) Zelle mit gedrueckter Strg Taste aus (z.B B3)
- Das Makro soll nun beide Bereiche vereinen und einen Rahmen herumziehen allerdings ohne eine Rahmenlinie zwischen A3 und B3, es soll also erkennen, das B3 an der ersten auswahl anliegt un einen geschlossenen Rahmen um alle ziehen, ohne interne Rahmen.

Ein wahrlich schwerer Fall.
Welches Excel - Genie traut sich das zu.

Danke im Voraus

Günter

nach oben   nach unten

Re: 2 Makierte Bereiche vereinen und Rahmen rum ziehen
von: lexman
Geschrieben am: 11.04.2002 - 12:28:36

Versuch es mal damit

Sub Fasse()
'
Range("A1:A4,B3").Select
Range("B3").Activate
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Range("B3").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Range("B17").Select
End Sub

nach oben   nach unten

Re: 2 Makierte Bereiche vereinen und Rahmen rum ziehen
von: lexman
Geschrieben am: 11.04.2002 - 12:29:33

Versuch es mal damit

Sub Fasse()
'
Range("A1:A4,B3").Select
Range("B3").Activate
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Range("B3").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Range("B17").Select
End Sub

nach oben   nach unten

Re: 2 Makierte Bereiche vereinen und Rahmen rum ziehen
von: Günter
Geschrieben am: 11.04.2002 - 12:48:31

Vielen Dank

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "2 Makierte Bereiche vereinen und Rahmen rum ziehen"