mal wieder habe ich ein Problem und bitte um Eure Hilfe. Ich habe für die Arbeit ein ausdruckbares Blatt auf einem Tabellenblatt entwickelt, dass auf eine Tabelle auf einem anderen Tabellenblatt zugreift.
Nun sollen auf dem Blatt vor dem Einfügen von neuen Daten die alten immer gelöscht werden. (sieh: Alt-Daten im Vorkontierungsblatt löschen) was auch bei Zellen funktioniert, die nicht zusammengefügt sind.
Und das ist mein Problem. Ich bekomme die Fehlermeldung: "Laufzeitfehler 1004 - Kann Teil einer verbundenen Zelle nicht ändern."
In meinem Beispiel sind die Zellen D4 und E4 zusammengefügt. Wie muss ich es schreiben, dass keine Fehlermeldung kommt?
vielen Dank und Gruß
Andy
Private Sub Worksheet_Change(ByVal Target As Range)
'Prüfung der Wertänderung in Spalte K ab Zeile 5
If Target.Column = 11 And Target.Row > 4 Then
Call Vorkontierungsblatt(Target.Row, Me, ActiveWorkbook.Worksheets("Vorkontierungsblatt"))
End If
End Sub
Sub Vorkontierungsblatt(Zeile As Long, BlattListe As Worksheet, BlattBericht As Worksheet)
If MsgBox("Vorkontierungsblatt drucken?", vbYesNo, "Vorkontierungsblatt") = vbNo Then Exit Sub
With BlattBericht
'Alt-Daten im Vorkontierungsblatt löschen
.Range("D4").ClearContents 'Leistung
.Range("D5").ClearContents 'Kostenstelle
.Range("H4:H5").ClearContents 'Konto, Betrag
.Range("G2").ClearContents 'AZ Fachdienst
.Range("B19:B22").ClearContents 'Schriftfelder
'Daten aus Liste in Vorkontierungsblatt übertragen
.Range("D4").Value = BlattListe.Cells(Zeile, "F") 'Leistung
.Range("D5").Value = BlattListe.Cells(Zeile, "G") 'Kostenstelle
.Range("H4").Value = BlattListe.Cells(Zeile, "E") 'Konto
.Range("H5").Value = BlattListe.Cells(Zeile, "D") 'Betrag
.Range("B19").Value = BlattListe.Cells(Zeile, "H") 'Fälligkeit
' .PrintPreview 'Druck-Vorschau
.PrintOut 'Ausgabe auf Drucker
End With
End Sub