Kopieren u. Einfügen mit Bedingung

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Nabend Werner
Danke für deine Schnelle Antwort u. Lösung meines Problems.
Habe nun die Datei Testen können, sieht Super aus Danke nochmals dafür.
Beim Testen viel mir auf das wenn Kopiert wird u. dann in Tab.4 Eingefügt wird das dann die Formatierung mit Kopiert wird.


loLetzteZ = .Cells(.Rows.Count, "A").End(xlUp).Row
If loLetzteZ > 2 Then
With .Range("A3:A" & loLetzteZ)
.Borders(xlDiagonalDown).LineStyle = xlNone
.Borders(xlDiagonalUp).LineStyle = xlNone
'                        With .Borders(xlEdgeLeft)
'                            .LineStyle = xlContinuous
'                            .ColorIndex = xlAutomatic
'                            .TintAndShade = 0
'                            .Weight = xlThin
'                        End With
'                        With .Borders(xlEdgeTop)
'                            .LineStyle = xlContinuous
'                            .ColorIndex = xlAutomatic
'                            .TintAndShade = 0
'                            .Weight = xlThin
'                        End With
'                        With .Borders(xlEdgeBottom)
'                            .LineStyle = xlContinuous
'                            .ColorIndex = xlAutomatic
'                            .TintAndShade = 0
'                            .Weight = xlThin
'                        End With
'                        With .Borders(xlEdgeRight)
'                            .LineStyle = xlContinuous
'                            .ColorIndex = xlAutomatic
'                            .TintAndShade = 0
'                            .Weight = xlThin
'                        End With
.Borders(xlInsideVertical).LineStyle = xlNone
.Borders(xlInsideHorizontal).LineStyle = xlNone
End With
End If

Dies habe Ich korrigiert in dem ich einen Teil des Codes aus kommentiert habe.
Nun lauft es Perfekt, auch beim Öffnen der Mappe u. dem dazugehörigen neu Einlesen in Tab.4.
Vielen, Vielen Dank!!!
Gruß Charly

Hallo Werner
weil in deiner Beispielmappe im Zielblatt ein Rahmen um die Daten war.
Sorry für das Missverständnis, dies hab ich wohl Vergessen zu entfernen.
Den Auskommentierten Code hab ich bereits entfernt.
Könntest du mir eventuell noch mal bei einer kleinen Sache Helfen.
Ich habe jetzt den Code in mein Projekt Eingefügt, Angepasst u. nun mit der eigentlichen Mappe gestartet.
Dabei viel mir auf das wenn der Code durchlauft u. jede Tabelle abarbeitet auch leere Tabellen mit kopiert.
Soll heißen, in der Bsp.-Mappe hatte ich ja 3 Tabellen angegeben, in der Eigentlichen Mappe habe ich 7 Tabellen. Zwei von dehnen sind noch nicht in der Spalte ("B") befühlt, dort steht nur die Überschrift "Name" in Zelle ("B2"). Beim Kopiervorgang wird dann aber die Überschrift Kopiert, was eigentlich nicht sein sollte.


loLetzteQ = .Cells(.Rows.Count, "B").End(xlUp).Row
.Range(.Cells(3, "B"), .Cells(loLetzteQ, "B")).Copy

Frage:
Ist es möglich bei der Suche zu berücksichtigen das wenn "loLetzteQ" nur bis Zeile 2 kommt, dies dann abbricht u. zur Nächten Tabelle springt.
Hier die Bsp.-Mappe zum oben genanten Problem, in Tabelle3 ist die Spalte "B" leer.
https://www.herber.de/bbs/user/138230.xlsm
Danke im Vorfeld
Gruß Charly

loLetzteQ = .Cells(.Rows.Count, "B").End(xlUp).Row 'wenn .Rows.count nur den bestimmten bereich durchzählt, dann ist die erste Zeile die Ü _ berschrift if loLetzte@ > 1 then .Range(.Cells(3, "B"), .Cells(loLetzteQ, "B")).Copy end if

Beliebteste Forumthreads (12 Monate)

Kopieren u. Einfügen mit Bedingung

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread