Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.06.2025 06:38:35
24.06.2025 22:11:12
24.06.2025 21:29:43
24.06.2025 19:48:50
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Macro-Rahmen

Forumthread: Macro-Rahmen

Macro-Rahmen
16.05.2002 12:23:16
T.Hauser
Hallo,
ich versuche gerade einen automatischen Rahmen in Abhängigkeit eines gegebenen Zellenwertes zu erstellen.
Bei Eingabe der Zellen innerhalb des Modules wird der Rahmen realisiert. Mein Problem stellt die Abhängigkeit zu der Variablendar.

Sub automatischer Rahmen()
Dim x, n As Range
n = ActiveSheet.Cells(8, 8)
Set x = 12 + n
With Range("A12:Ix")
.Borders(xlDiagonalDown).LineStyle = xlNone
.Borders(xlDiagonalUp).LineStyle = xlNone
With .Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
'Fetter Rahmen um Alles herum...
.Borders(xlDiagonalDown).LineStyle = xlNone
.Borders(xlDiagonalUp).LineStyle = xlNone
With .Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With .Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With .Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With .Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With .Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End With
End Sub

Ich hoffe ihr könnt mir Helfen.
Danke schon mal im vorraus.


Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Macro-Rahmen
18.05.2002 11:12:50
Hans W. Herber
Hallo,

ich versuche mal zu erahnen, was Du anstellen möchtest.


  • Möglicherweise möchtest D "x" zu einer Variablen für die Zeilennummer machen, wenn ja, deklariere sie als Integer oder als Long.
  • Möglicherweise möchtest Du den Wert, der in Zelle H8 steht, dem Zeilenzähler hinzufügen. Wenn dem so ist, macht die Set-Anweisung in der darauffolgenden Zeile allerdings keinen Sinn mehr.
  • Wenn Du einfach nur eine Schleife bilden möchtest, könnte es so aussehen:
    With Range("A12:I" & x)
    usw.

Formuliere die Frage bitte neu, aus Deinem Code-Ansatz ist nichts vernünftiges rauszulesen.
Dazu: Überlege mal, ob das Ganze nicht einfacher über die bedingte Formatierung zu lösen ist.

hans

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige