Excel VBA Rahmen erstellen und diese Rahmen von Tabelle1 in Tabelle2 mit Übernehmen


Chaos338

Grünschnabel
Hallo,

ich habe da ein kleines Problem und zwar ich habe ein Programm entwickelt aber um es schöner zu gestalten wollte ich einen Rahmen um alle Zellen haben. Diese soll dann auch mit übertragen werden auf die Tabelle2.

Hier der Code den ich bisher habe:

Sub Makro1()
Dim lng As Long
Dim lngZeileMax As Long
Dim lngZ As Long


Tabelle2.UsedRange.Clear

With Tabelle1



.Rows(1).Copy Destination:=Tabelle2.Range("A1")



lngZ = 2

lngZeileMax = .Cells(.Rows.Count, 9).End(xlUp).Row

For lngZeile = 1 To lngZeileMax

If .Cells(lngZeile, 9).Value = "Ja" Then
Tabelle2.Rows(lngZ).Value = .Rows(lngZeile).Value
lngZ = lngZ + 1
End If


Next lngZeile

End With


End Sub

Kann einer mir da behilflich sein.

Danke im Voraus