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
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