|
Hi zusammen,
mir wurde ja schon sehr gut weitergeholfen mit dem überprüfen ob schon ein Tabelle mit dem Namen vorhanden ist. Jetzt würde ich geren noch in der fertigen Tabelle die leeren Zeilen löschen. In derVorlage geht das ganze bis 305 allerdings brauceh ich selten so viele.
Verwendet wird Excel 2016, meine Kentnisse sind immer noch sehr dünn
Das ist der jetzige Code
Sub Tabelle_075_dbl()
'
' erstellt Tabelle mit 0,75 dbl und überprüft ob schon vorhanden
'
'
If Not WorksheetExists("0,75 dbl") Then
Worksheets("Vorlage").Copy Before:=Worksheets(1)
Set Worksheet = Worksheets(1)
Worksheet.Name = "0,75 dbl"
Else
MsgBox "Tabelle 0,75 dbl existiert bereits", 48
Exit Sub
End If
Sheets("0,75 dbl").Range("A1").Value = "0,75_dbl_Lapp"
With Sheets("Drahtsatz kopieren")
.Range("$A$2:$M$200").AutoFilter Field:=4, Criteria1:="DBU"
.Range("$A$2:$M$200").AutoFilter Field:=5, Criteria1:="0,75"
.Range("F:F").Copy Sheets("0,75 dbl").Range("C8")
.Range("I:I").Copy Sheets("0,75 dbl").Range("M8")
.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 .AutoFilterMode Then If .FilterMode Then .ShowAllData
.Select
Range("A1").Select
End With
MsgBox "Tabelle 0,75 dbl wurde erstellt", 64
End Sub
Hier die Tabelle als Beispeil
| 0,75_dbl_Lapp |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| Material |
|
Artikel |
|
|
Kontakte |
|
Abisolierungen |
|
Kabelbeschriftung Kabelende |
Endlostext |
Kabelbeschriftung Kabelanfang |
|
|
| Materialnummer |
Artikel nummer |
Länge |
Stück zahl |
Losgrösse |
Kontakt_li |
Kontakt_re |
Abisol_li |
Abzug_li |
Abisol_re |
Abzug_re |
Schriftzuweisung |
Text 1_li |
Text 1_inv_li |
Textabst 1_li |
Text_mittig |
Text_inv_mittig |
Textabst_mittig |
Text 1_re |
Text 1_inv_re |
Textabst 1_re |
Textabstand li berechnen |
Textabstand re berechnen |
| 0,75_dbl_Lapp |
Bund_BT |
1000 |
1 |
|
|
|
9 |
3 |
9 |
3 |
M5_K |
Beispiel |
ja |
30 |
Beispiel<<>>Beispiel |
ja |
50 |
Beispiel |
|
30 |
|
|
| 0,75_dbl_Lapp |
Bund_BT |
1000 |
1 |
|
|
|
9 |
3 |
9 |
3 |
M5_K |
Beispiel |
ja |
30 |
Beispiel<<>>Beispiel |
ja |
50 |
Beispiel |
|
30 |
|
|
| 0,75_dbl_Lapp |
Bund_BT |
|
1 |
|
|
|
9 |
3 |
9 |
3 |
M5_K |
|
ja |
30 |
<<>> |
ja |
50 |
|
|
30 |
|
|
| 0,75_dbl_Lapp |
Bund_BT |
|
1 |
|
|
|
9 |
3 |
9 |
3 |
M5_K |
|
ja |
30 |
<<>> |
ja |
50 |
|
|
30 |
|
|
| 0,75_dbl_Lapp |
Bund_BT |
|
1 |
|
|
|
9 |
3 |
9 |
3 |
M5_K |
|
ja |
30 |
<<>> |
ja |
50 |
|
|
30 |
|
|
| 0,75_dbl_Lapp |
Bund_BT |
|
1 |
|
|
|
9 |
3 |
9 |
3 |
M5_K |
|
ja |
30 |
<<>> |
ja |
50 |
|
|
30 |
|
|
Ich hätte gerne das ab C7 abwärts geschaut wird ob die Zelle leer ist oder nicht und dann die Zeile gelöscht wird wenn sie leer ist. Wir gesagt es geht bis 305
|