Thema Datum  Von Nutzer Rating
Antwort
10.04.2011 02:04:47 D_u_d_e_
NotSolved
Blau Rahmenlinie ziehen, wenn Datum in Zelle
 10.04.2011 02:30:02 Severus
NotSolved
17.04.2011 19:27:03 Gast70932
Solved

Ansicht des Beitrags:
Von:
Severus		 Datum:
10.04.2011 02:30:02		 Views:
846		 Rating:
     
Antwort:
  Ja
Thema:
Rahmenlinie ziehen, wenn Datum in Zelle		 
Option Explicit

Sub Linien()
Dim lngLetzteZeile As Long
Dim rngSEARCH As Excel.Range
Dim Zelle As Excel.Range
With ThisWorkbook.ActiveSheet
    'Das "A" in der folgenden Zeile ggf. durch die Spalte ersetzen, in der in der Tabelle IMMER ein Wert steht!
    lngLetzteZeile = .Cells(.Cells.Rows.Count, "A").End(xlUp).Row
    'Das A in der foldenen Zeile ggf. durch die Spalte ersetzen, in der die zu prüfenden Daten stehen!
    Set rngSEARCH = .Range("$A$1:$A$" & CStr(lngLetzteZeile))
    For Each Zelle In rngSEARCH
        If IsDate(Zelle) And Zelle.NumberFormat <> "dddd" Then
            'Das "A:A" in der folgenden Zeile ggf. durch den beschriebenen Tabellenbereich,
            'z.B. "A:M", ersetzen!
            With Zelle.EntireRow.Columns("A:A").Borders(xlEdgeTop)
                .LineStyle = xlContinuous
                'Das xlThin in der folgenden Zeile ggf. durch xlMedium oder xlThick ersetzen,
                'wenn dickere Linien gewünscht sind
                .Weight = xlThin
                'xlAutomatic ggf. durch einen anderen Farbindes (z.B. 3 für Rot, ersetzen
                .ColorIndex = xlAutomatic
            End With
        Else
            'Das "A:A" in der folgenden Zeile ggf. durch den beschriebenen Tabellenbereich,
            'z.B. "A:M", ersetzen!
            Zelle.EntireRow.Columns("A:A").Borders(xlEdgeTop).LineStyle = xlNone
        End If
    Next
End With
Set rngSEARCH = Nothing
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
10.04.2011 02:04:47 D_u_d_e_
NotSolved
Blau Rahmenlinie ziehen, wenn Datum in Zelle
 10.04.2011 02:30:02 Severus
NotSolved
17.04.2011 19:27:03 Gast70932
Solved