Habe ein Dank dieses Forum eine Schöne Code (vom Sepp) erhalten.
er Kopiert ein Tabelle in eine Neue Mappe Eins zu Eins inklusiv Formatierung, Bilder und Ohne Makros einwandfrei.
Jetzt möchte ich noch diese Code Ergänzen wenn das geht mit, wenn im erste Zeile eine X dan diese Spalte nicht mitkopieren, und erste Zeile Löschen beim Kopieren.
Unterstehende Code nur als Ansatz löscht nur im aktive Tabelle.
Sub loeschen()
Dim Such
Dim i As Integer
'A = Spalte 1
'H = Spalte 8
For i = 8 To 1 Step -1
If Cells(1, i).Value = "x" Then Cells(1, i).EntireColumn.Delete
Next i
End Sub
Datei mit Kopier Makro beigefügt und Erlauterunghttps://www.herber.de/bbs/user/74049.xlsm
Viele Grüße
Karel