Thema Datum  Von Nutzer Rating
Antwort
28.06.2017 12:36:00 sb.arc
NotSolved
28.06.2017 17:16:25 Ben
Solved
28.06.2017 17:18:43 Ben
NotSolved
29.06.2017 09:05:25 sb.arc
NotSolved
Rot Automatische Rahmenlinie, bedingter Zeilentrenner
 29.06.2017 11:53:28 Gast33403
Solved
29.06.2017 15:25:32 sb.arc
NotSolved

Ansicht des Beitrags:
Von:
Gast33403		 Datum:
29.06.2017 11:53:28		 Views:
588		 Rating:
     
Antwort:
 Nein
Thema:
Automatische Rahmenlinie, bedingter Zeilentrenner		 
Sub MyBorders()
Dim Rng As Range, rw As Range

   'Zeile 10 Überschrift, daher
   Set Rng = Range(Cells(10, 1).Offset(1), Cells(Rows.Count, 5).End(xlUp).Offset(-1))
   Rng.Borders(4).LineStyle = xlNone
   For Each rw In Rng.Rows
      
      Select Case rw.Cells(1).Offset(1)
         Case ""
            rw.Borders(4).LineStyle = xlNone
         Case rw.Cells(1)
            rw.Borders(4).LineStyle = 1
            rw.Borders(4).Weight = 2
         Case Else
            rw.Borders(4).LineStyle = 1
            rw.Borders(4).Weight = 4
      End Select
   Next rw
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
28.06.2017 12:36:00 sb.arc
NotSolved
28.06.2017 17:16:25 Ben
Solved
28.06.2017 17:18:43 Ben
NotSolved
29.06.2017 09:05:25 sb.arc
NotSolved
Rot Automatische Rahmenlinie, bedingter Zeilentrenner
 29.06.2017 11:53:28 Gast33403
Solved
29.06.2017 15:25:32 sb.arc
NotSolved