09.03.2022, 16:56
Hallo zusammen,
ich habe folgendes Problem. Ich habe einen Code, der mir sichtbare Zellen kopiert und in ein anderes Sheet einfügt. Sind diese Zellen aber leer, bekomme ich einen Laufzeitfehler. Wenn die Zellen leer sind, soll er das einfach auslassen und nicht kopieren.
Hier der Code:
Vielleicht habt ihr ne Idee. Ich denke das ist nicht so schwierig.
LG Tina
ich habe folgendes Problem. Ich habe einen Code, der mir sichtbare Zellen kopiert und in ein anderes Sheet einfügt. Sind diese Zellen aber leer, bekomme ich einen Laufzeitfehler. Wenn die Zellen leer sind, soll er das einfach auslassen und nicht kopieren.
Hier der Code:
Code:
'Briefe GME Copieren
Sheets("Brief 1 (GME)").Cells.Delete
'Sheets("Brief Test").Cells.clear
'kopiert sichtbare Zellen im Sheet im Bereich G1:GJ28 und fügt sie im Worksheet ein
Sheets("Brief 1 (G)").Range("G1:GJ28").SpecialCells(xlCellTypeVisible).Copy Worksheets("Brief 1 (GME)").Cells(1, 1)
Sheets("Brief 1 (M)").Range("G1:GJ28").SpecialCells(xlCellTypeVisible).Copy Worksheets("Brief 1 (GME)").Cells(29, 1)
Sheets("Brief 1 (E)").Range("G1:GJ28").SpecialCells(xlCellTypeVisible).Copy Worksheets("Brief 1 (GME)").Cells(58, 1)
'Seitenumbruch vor Zeilen 29 und 58
Worksheets("Brief 1 (GME)").HPageBreaks.Add Before:=Worksheets("Brief 1 (GME)").Rows(29)
Worksheets("Brief 1 (GME)").HPageBreaks.Add Before:=Worksheets("Brief 1 (GME)").Rows(58)
'Spaltenbreite auf 2,8 cm bei allen Spalten (4,58 ist der Faktor zum Umrechnen in Pt)
Worksheets("Brief 1 (GME)").Columns("A:GE").ColumnWidth = 2.8 * 4.58
Worksheets("Brief 1 (G)").Protect
Worksheets("Brief 1 (M)").Protect
Worksheets("Brief 1 (E)").Protect
'springe zu Brief 1 (GME)
Application.Goto reference:=Brief1_GME.Range("G26")Vielleicht habt ihr ne Idee. Ich denke das ist nicht so schwierig.
LG Tina