|
Hi zusammen,
ich hab mir was erstellt das eine Vorlage kopiert, diese bennent und von einer weitern Vorlage Daten filtert und dies einfügt. Das ganze hat den Hintergrund für einen Kabeldrucker der ein gewisses Format benötogt entsrpechedn aufgeteilt.
Was ich gerne noch häte das überprüft wird ob eine Tabelle mit dem Namen schon besteht bevor die Tabelle erstellt wird. Insgesamt gibt es 37, wo sich die Benneung sowie die Suchkriterien unterscheiden.
Verwendet wird Excel 2016, meine Kentnisse sind sehr dünn hab mir das zusammen gelsen und 2 Tage rumprobiert bis es funktioniert hat
Sub Tabelle_075_dbl()
'
' erstellt Tabelle mit 0,75 dbl
'
'
Sheets("Vorlage").Copy Before:=Sheets(1)
Sheets("Vorlage (2)").Name = "0,75 dbl"
Sheets("0,75 dbl").Range("A1").Value = "0,75_dbl_Lapp"
Sheets("Drahtsatz kopieren").Range("$A$2:$M$200").AutoFilter Field:=4, Criteria1:="DBU"
Sheets("Drahtsatz kopieren").Range("$A$2:$M$200").AutoFilter Field:=5, Criteria1:="0,75"
Sheets("Drahtsatz kopieren").Range("F:F").Copy Sheets("0,75 dbl").Range("C8")
Sheets("Drahtsatz kopieren").Range("I:I").Copy Sheets("0,75 dbl").Range("M8")
Sheets("Drahtsatz kopieren").Range("J:J").Copy Sheets("0,75 dbl").Range("S8")
Sheets("0,75 dbl").Range("8:8,9:9").Delete
Sheets("0,75 dbl").Range("A1").Select
If Sheets("Drahtsatz kopieren").AutoFilterMode Then _
If Sheets("Drahtsatz kopieren").FilterMode Then _
Sheets("Drahtsatz kopieren").ShowAllData
Sheets("Drahtsatz kopieren").Select
Range("A1").Select
MsgBox "Tabelle 0,75 dbl wurde erstellt", 64
End Sub
|