Loesche leere zeilen ab Zeile 8

Computer: Software & Programmierung Visual Basic
#1

Mein Problem ist ein ganz simples und ich denke auch dass meine Loesung nicht ganz verkehrt ist, trotzdem bekomme ich immer einen Run-time error 1004: cannot use that command on overlapping sections.

Kann jemand von euch den fehler finden?

Es geht darum bei Antwort Yes in der Combobox zellen in ein anderes Worksheet zu kopieren und dannach zu pruefen ob dabei leerzeilen im neuen worksheet auftreten. diese sollen dann geloescht werden, aber erst ab Zeile 8.

Private Sub ComboBox1\_Change()
 Select Case ComboBox1.Value
 Case "Yes"

 Sheets("Template2").Select
 Range("D21:I21").Select
 Selection.Font.ColorIndex = 0
 Selection.Copy
'if YES: selects the Doc&Actions, copies and formats to black

 Application.Goto Worksheets("Changeplan").Range("C8")
 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks \_
 :=False, Transpose:=True
'goes to Worksheet CHangeplan and pastes the selection



 ThisWorkbook.Worksheets("Changeplan").Range("A8:H200").Select
 Selection.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
'deletes all empty rows in Changeplan

end sub
#2

Hallo Antonia,

Mein Problem ist ein ganz simples und ich denke auch dass
meine Loesung nicht ganz verkehrt ist, trotzdem bekomme ich
immer einen Run-time error 1004: cannot use that command on
overlapping sections.
Kann jemand von euch den fehler finden?

wieso den Fehler, da sind wohl mehrere drin :smile:
Das End Select fehlt komplett.
Die Fehlermeldung deutet auf evtl. Probleme mit verb. Zellen hin oder sonstwas noch unklares.

Mir ist auch noch nicht ganz klar welche leeren zellen entscheiden ob die Zeile gelöscht wird.

Und Specialcells hat die sehr unangenehme Angewohnheit einen dicken Fehler zu bringen wenn es keine Leeren zellen findet --> Errorhandler einbauen.

Probiers mal erstmal (ungetestet) so:

Private Sub ComboBox1\_Change()
With Worksheets("Changeplan")
 Select Case ComboBox1.Value
 Case "Yes"
 Sheets("Template2").Range("D21:I21").Font.ColorIndex = 0
 Sheets("Template2").Range("D21:I21").Copy
 .Range("C8").PasteSpecial Paste:=xlPasteValues, Transpose:=True
 Case Else
 'nix
 End Select
End With
End Sub

Gruß
Reinhard

#3

Und an welcher stelle loescht das meine leeren zeilen ab zeile 8???

sorry, aber das hat mein Problem noch nicht geloest.