Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Rahmen hinzufügen | Herbers Excel-Forum


Betrifft: Rahmen hinzufügen von: Heinz H
Geschrieben am: 11.01.2010 11:51:18

Guten Tag im Forum

Im unteren Makro wird bei einen neuen Tab.Blatt alles neu berechnet und Zellen eingefügt.
Nun möchte ich bei
Range(Cells(iRow, 1), Cells(iRow, 15)).Interior.ColorIndex = 34
Das ein dicker Rahmen horizontal eingefügt wird.

Habe selbst mal mir Recorder aufgezeichnet.

Aber im zusammenhang mit unteren Code bekomme ich es nicht fertig.
Könnte mir bitte jemand helfen ?

Gruß
Heinz

Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
End Sub

For lDay = datStart To datEnd
  Select Case WeekDay(lDay, 2)
    Case Is < 6
      Cells(iRow, 1) = lDay
      Cells(iRow, 2) = lDay
      iRow = iRow + 1
    Case Is = 6
      Range(Cells(iRow, 1), Cells(iRow, 15)).Interior.ColorIndex = 34
      Range(Cells(iRow, 1), Cells(iRow, 15)).Font.Bold = True
      
      For lngCol = 7 To 11
        Cells(iRow, lngCol).Formula = "=Sum(" & Range(Cells(lngStart, lngCol), _
            Cells(iRow - 1, lngCol)).Address & ")"
      Next
      iRow = iRow + 1
      lngStart = iRow
  End Select

Next

Range(Cells(iRow, 1), Cells(iRow, 15)).Interior.ColorIndex = 34
Range(Cells(iRow, 1), Cells(iRow, 15)).Font.Bold = True


For lngCol = 7 To 11
  Cells(iRow, lngCol).Formula = "=Sum(" & Range(Cells(lngStart, lngCol), _
      Cells(iRow - 1, lngCol)).Address & ")"
Next
  
   Dim sp#, Such$, LR%, TB1, i#, m%, Z1%

Dim M1%


Fehler:
    If Err.Number <> 0 Then MsgBox "Fehler: " & Err.Number & vbLf & _
        Err.Description

Application.EnableEvents = True

Application.ScreenUpdating = True


End Sub

  

Betrifft: AW: Rahmen hinzufügen von: Rudi Maintaire
Geschrieben am: 11.01.2010 12:03:25

Hallo,

Select Case Weekday(lDay, 2)
  Case Is < 6
    Cells(iRow, 1) = lDay
    Cells(iRow, 2) = lDay
    iRow = iRow + 1
  Case Is = 6
    With Range(Cells(iRow, 1), Cells(iRow, 15))
      .Interior.ColorIndex = 34
      .Font.Bold = True
      .Borders(xlDiagonalDown).LineStyle = xlNone
      .Borders(xlDiagonalUp).LineStyle = xlNone
      .Borders(xlEdgeLeft).LineStyle = xlNone
      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
    End With
For lngCol = 7 To 11
  Cells(iRow, lngCol).Formula = _
    "=Sum(" & Range(Cells(lngStart, lngCol), Cells(iRow - 1, lngCol)).Address & ")"
Next
iRow = iRow + 1
lngStart = iRow
End Select
Gruß

Rudi


  

Betrifft: AW: Rahmen hinzufügen von: Heinz H
Geschrieben am: 11.01.2010 12:15:14

Hallo Rudi

Super - Danke

Recht herzlichen Dank

Gruß
Heinz


Beiträge aus den Excel-Beispielen zum Thema "Rahmen hinzufügen"