Thema Datum  Von Nutzer Rating
Antwort
02.03.2011 20:43:52 wolli730
Solved
Blau Suchen und ersetzen von dicken Rahmenlinien durch dünne in z. T. verbundenen Zellen
 03.03.2011 02:02:28 sigma
*****
NotSolved
05.03.2011 00:23:19 wolli730
NotSolved

Ansicht des Beitrags:
Von:
sigma		 Datum:
03.03.2011 02:02:28		 Views:
807		 Rating:
     
Antwort:
  Ja
Thema:
Suchen und ersetzen von dicken Rahmenlinien durch dünne in z. T. verbundenen Zellen

Hallo wolli730

hoffe einigermaßen deine Frage verstanden zu haben. Du möchtest die dicken Rahmenlinien durch dünnere ersetzen. Ich gehe erstmal davon aus, dass alle Rahmen durch dünne ersetzt werden sollen. Wenn nur bestimmte ersetzt werden sollen musst du dich nochmal melden.

Aber folgender Code ersetz alle Rahmen im Bereich 10 Spalten x 10 Zeilen durch dünne Rahmen. Verbundene Zellen machen dabei keine Probleme nach Test.

Sub test()
For i = 1 To 200
For j = 1 To 200

If Sheets(1).Cells(i, j).Borders(xlEdgeBottom).LineStyle = xlContinuous Then
Cells(i, j).Borders(xlEdgeBottom).Weight = xlThin
End If
If Sheets(1).Cells(i, j).Borders(xlEdgeLeft).LineStyle = xlContinuous Then
Cells(i, j).Borders(xlEdgeLeft).Weight = xlThin
End If
Next j
Next i

End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
02.03.2011 20:43:52 wolli730
Solved
Blau Suchen und ersetzen von dicken Rahmenlinien durch dünne in z. T. verbundenen Zellen
 03.03.2011 02:02:28 sigma
*****
NotSolved
05.03.2011 00:23:19 wolli730
NotSolved