AW: neue Tabelle erzeugen und dann werte drin schreibe
30.07.2017 12:52:10
richar
funktioniert besten vielen Dank!
Ich habe noch eine Frage bitte. In tabelle3 und 4 nachdem ich gefilter habe eliminiere ich noch ein paar Zeile und kommt deswegen meine neue Tabelle ganz unten. Bitte wie kann ich machen sodass egal wie viel zahle ich eliminiere in Tabelle3, und 4 trotzdem nach 4 Zeile die neue Tabelle kommt
Call ErstelleTabelle(.Cells(.Rows.Count, 1).Offset(4).Resize(, 6))
Sub ErstelleTabelle(rng As Range)
rng.Borders(xlEdgeTop).LineStyle = xlContinuous
rng.Font.Size = 9
rng.Font.Name = "Courier New"
rng.Cells(1, 2).Value = "Name haufigkeit"
rng.Cells(1, 3).Value = "Anzahl Zeichnung gut"
rng.Cells(1, 4).Value = "Anzahl Zeichnung schlecht"
End Sub
Gruß
Richar