neue Zeile rahmen mit Formular

Private Sub cmdÜbernehmen_Click() 'Fügt die eingetragenen in das Tabellenblatt und schließt das Formular frmBachelorarbeit Dim intErsteLeereZeile As Long intErsteLeereZeile = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row + 1 ActiveSheet.Cells(intErsteLeereZeile, 2).Value = Me.txtBranche.Value ActiveSheet.Cells(intErsteLeereZeile, 3).Value = Me.txtUnternehmen.Value ActiveSheet.Cells(intErsteLeereZeile, 4).Value = Me.txtNachname.Value ActiveSheet.Cells(intErsteLeereZeile, 5).Value = Me.txtVorname.Value ActiveSheet.Cells(intErsteLeereZeile, 6).Value = Me.txtThema.Value ActiveSheet.Cells(intErsteLeereZeile, 7).Value = Me.txtTitel.Value ActiveSheet.Cells(intErsteLeereZeile, 8).Value = Me.txtSemester.Value Unload frmBachelorarbeit End Sub

Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Andrej,
die Anweisungen zum Formatieren kannst du in den Code des Formulars integrieren.
Es ist aber meistens sinnvoll, die eigentlichen Formatieranweisungen und in einer separaten Sub zu machen, die den zu formatierenden Bereich als Parameter übergeben bekommt. So kann man die Sub beliebig oft aufrufen, ohne jeweils den Code wiederholen zu müssen und bei einem neuen Projekt kann man diese Sub einfach per Copy&Paste übernehmen.
Gruß
Franz

Private Sub cmdÜbernehmen_Click()
'Fügt die eingetragenen in das Tabellenblatt und schließt das Formular frmBachelorarbeit
Dim intErsteLeereZeile As Long
intErsteLeereZeile = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row + 1
ActiveSheet.Cells(intErsteLeereZeile, 2).Value = Me.txtBranche.Value
ActiveSheet.Cells(intErsteLeereZeile, 3).Value = Me.txtUnternehmen.Value
ActiveSheet.Cells(intErsteLeereZeile, 4).Value = Me.txtNachname.Value
ActiveSheet.Cells(intErsteLeereZeile, 5).Value = Me.txtVorname.Value
ActiveSheet.Cells(intErsteLeereZeile, 6).Value = Me.txtThema.Value
ActiveSheet.Cells(intErsteLeereZeile, 7).Value = Me.txtTitel.Value
ActiveSheet.Cells(intErsteLeereZeile, 8).Value = Me.txtSemester.Value
With ActiveSheet
'      Call prcRahmen(.Range(Cells(intErsteLeereZeile, 2), .Cells(intErsteLeereZeile, 8)))
Call prcRahmenRundum(.Range(Cells(intErsteLeereZeile, 2), .Cells(intErsteLeereZeile, 8)))
End With
Unload frmBachelorarbeit
End Sub
'Die folgenden beiden Makros am besten in einem allgemeinen Modul der Datei anlegen
Public Sub prcRahmen(Bereich As Range)
'Rahmen um und zwischen den Zellen des Bereiches
With Bereich
With .Borders
.LineStyle = xlSolid
.Weight = xlThin
End With
End With
End Sub
Public Sub prcRahmenRundum(Bereich As Range)
'Rahmen um Zellen des Bereiches
With Bereich
.BorderAround LineStyle:=xlSolid, Weight:=xlThin
End With
End Sub

Beliebteste Forumthreads (12 Monate)

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread