Microsoft Excel

Herbers Excel/VBA-Archiv

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

Bereich mit Rahmenlinien | Herbers Excel-Forum


Betrifft: Bereich mit Rahmenlinien von: Mark
Geschrieben am: 03.01.2012 15:34:05

Hallo,

ich habe in meinem Excel-Dok. einen CommandButton2 eingebaut, der bislang folgendes macht.

Private Sub CommandButton2_Click()

Worksheets("ARCHIV").Rows(3).Insert Shift:=xlDown

Sheets("Neues Projekt").Cells(5, 3).Copy Sheets("ARCHIV").Cells(3, 1) 
Sheets("Neues Projekt").Cells(11, 3).Copy Sheets("ARCHIV").Cells(3, 4)
Sheets("Neues Projekt").Cells(13, 3).Copy Sheets("ARCHIV").Cells(3, 5) 
Sheets("Neues Projekt").Cells(15, 3).Copy Sheets("ARCHIV").Cells(3, 6)
Sheets("Neues Projekt").Cells(15, 7).Copy Sheets("ARCHIV").Cells(3, 7)

End Sub


Jetzt möchte ich, dass auf dem Excel-Blatt "ARCHIV" der Bereich A3 bis Q3 mit Rahmenlinien (Alle Rahmenlinien) umrandet wird. Im Archiv konnte ich nicht passenes finden, bzw. konnte es nicht auf mein Problem anwenden.

Bitte um Hilfe!

Gruß und Danke!
-Mark-

  

Betrifft: AW: Bereich mit Rahmenlinien von: selli
Geschrieben am: 03.01.2012 15:53:50

hallo mark,

learning by doing.

hast du es schonmal mit dm recorder versucht?

gruß
delli


  

Betrifft: AW: Bereich mit Rahmenlinien von: fcs
Geschrieben am: 03.01.2012 16:03:57

Hallo Mark,

der von Selli vorgeschlagene Weg über den Makrorecorder erzeugt einen etwas langatmigen Code.

Für eine einheitliche Formatierung aller Rahmen (Stil, Farbe, Dicke, Shade) geht folgende Kurzfassung.

Gruß
Franz

Private Sub CommandButton2_Click()

  Worksheets("ARCHIV").Rows(3).Insert Shift:=xlDown
  
  Sheets("Neues Projekt").Cells(5, 3).Copy Sheets("ARCHIV").Cells(3, 1)
  Sheets("Neues Projekt").Cells(11, 3).Copy Sheets("ARCHIV").Cells(3, 4)
  Sheets("Neues Projekt").Cells(13, 3).Copy Sheets("ARCHIV").Cells(3, 5)
  Sheets("Neues Projekt").Cells(15, 3).Copy Sheets("ARCHIV").Cells(3, 6)
  Sheets("Neues Projekt").Cells(15, 7).Copy Sheets("ARCHIV").Cells(3, 7)
  With Sheets("ARCHIV").Range("A3:Q3")
      With .Borders
          .LineStyle = xlContinuous
          .ColorIndex = 0
          .TintAndShade = 0
          .Weight = xlThin
      End With
      .Borders(xlDiagonalDown).LineStyle = xlNone
      .Borders(xlDiagonalUp).LineStyle = xlNone
  End With
End Sub



  

Betrifft: AW: Bereich mit Rahmenlinien von: selli
Geschrieben am: 03.01.2012 16:11:07

hallo franz,

der von Selli vorgeschlagene Weg über den Makrorecorder erzeugt einen etwas langatmigen Code.
...das ist sicherlich richtig, aber vielleicht bietet der weg eine möglichkeit selbst etwas zu lernen.
dass im archiv nichts passendes gefunden wurde, kann ich (auch ohne selbst recherchiert zu haben) nicht glauben.
da gehe ich von einem nutzer aus, der es sich sehr einfach macht.

muss doch aber nicht sein, oder?

gruß selli


  

Betrifft: AW: Bereich mit Rahmenlinien von: Mark
Geschrieben am: 03.01.2012 16:20:50

Hallo selli,

vielen Dank für Deine Rückmeldung. Hab es mehrmals mit dem Makrorekorder versucht!
Hat jedoch leider bei mir nicht geklappt!

Im Archiv gesucht habe ich vielleicht nicht gründlich genug? Ja!

"Immer den leichteren Weg gehen" trifft bei mir leider nicht zu!

Gruß
-Mark-

PS: Vielen Dank auch für die anderen Rückmeldungen


  

Betrifft: AW: Bereich mit Rahmenlinien von: Rudi Maintaire
Geschrieben am: 03.01.2012 16:10:12

Hallo,

Private Sub CommandButton2_Click()
  With Sheets("ARCHIV")
    .Rows(3).Insert Shift:=xlDown
    Sheets("Neues Projekt").Cells(5, 3).Copy .Cells(3, 1)
    Sheets("Neues Projekt").Cells(11, 3).Copy .Cells(3, 4)
    Sheets("Neues Projekt").Cells(13, 3).Copy .Cells(3, 5)
    Sheets("Neues Projekt").Cells(15, 3).Copy .Cells(3, 6)
    Sheets("Neues Projekt").Cells(15, 7).Copy .Cells(3, 7)
    With .Range("A3:Q3").Borders
      .LineStyle = xlContinuous
      .Weight = xlThin
    End With
  End With
End Sub

Gruß
Rudi


Beiträge aus den Excel-Beispielen zum Thema "Bereich mit Rahmenlinien"