Zellen kopieren und in einem Sheet einfügen - Problem

[so.egal]

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:

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

[Elex]

Hi

Einfach mal ignore.

Code:

       'kopiert sichtbare Zellen im Sheet im Bereich G1:GJ28 und fügt sie im Worksheet ein
       On Error Resume Next
        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)
       On Error GoTo 0

Gruß Elex