Office: Makro zum Zelleninhalt löschen und Laufzeitfehler dank Diagramm

Hallo ihr VBA-Spezialisten,

ich hoffe hier auf die Hilfe einiger eingefleischter VBA Profis, da ich leider noch Anfänger bin.
Ich bin studentische Hilfskraft und arbeite für meinen Prof. gerade an ner Sache in Excel mit VBA.
Mein Problem liegt in folgendem Code:

Sub löschen()

Sheets("Eingabemaske-Bilanz+GuV").Select

Dim Bereich As Range
Dim Zelle As Range

Set Bereich = ActiveSheet.Range("A1:A200")
For Each Zelle In Bereich
If Zelle = "" Then
Zelle.Offset(0, 1).ClearContents

End If

Next Zelle

Set Bereich = ActiveSheet.Range("B1:B200")
On Error Resume Next
For Each Zelle In Bereich
If Zelle = "" Then
Zelle.Offset(0, -1).ClearContents
End If

Next Zelle

Set Bereich = ActiveSheet.Range("B1:B200")
For Each Zelle In Bereich
If Zelle.Value = 0 Then
Zelle.Offset.ClearContents
Zelle.Offset(0, -1).ClearContents
End If

Next Zelle

Selection.Range ("A1")

End Sub

Soweit, so simpel. Damit sollen einfach nur Zellen gelöscht werden, sobald der Inhalt obsolet ist.
Bis vor kurzem hat auch alles noch tatellos funktioniert. Nun musste ich im Rahmen meiner Aufgabe aber einen Diagrammtacho und eine dynamische Prozentanzeige in Excel integrieren.
Hier begann nun das Problem. Jedes mal wenn der oben genannte Code ausgeführt wird: Laufzeitfehler, Excel stürzt ab.
Besagte Diagramme sind nicht im selben Datenblatt und greifen auch auf keine gemeinsamen Zellen zu.
Soblad ich besagte Diagramme wieder lösche, kein Problem. Mein Prof. will die Diagramme allerdings drin haben.
Bin mit meinem Latein leider am Ende.
Leider kann ich nicht einfach die Datei zur Verfügung stellen, da das Ganze wie gesagt mit der Arbeit zu tun hat.
Falls jemand ne Idee hat bzw. einfach nen anderen Code mit der selben Funktion wäre ich sehr dankbar.

Mfg J.D.

PS: Meinen Prof. kann ich nicht Fragen, der hat noch eigenen Angaben keine Anhnung von VBA.

:)

 

Hallo J.D. *wink.gif*

Vielleicht so!

Gruß Poltergeist

Ich hoffe das ich nichts durcheinander brachte *grins

Code:

 

Hallo Hallo J.D. *wink.gif*

Sollten keine Formeln in den Zellen sein,liesse sich das Array auch in einem Rutsch zurückschreiben ohne Cells zugriffe
oder
Mit Überschrift!
Nutzung des Autofilters und Bearbeitung von den sichtbaren Zellen!

Gruß Poltergeist

 

Hallo Poltergeist,

danke für den Code. Der funktioniert auch, nur leider nicht wenn die oben schon erwähnten Diagramme eingefügt sind.

Sobald die Diagramme gelöscht sind, funktioniert dein Code. Das tut meiner aber auch. *Smilie

Hatte ja wirklich die Hoffnung, das sich der Fehler durch nen anderen Code einfach in Luft auflösen würde. *frown.gif*

Trotzdem vielen Dank für die Hilfe.

Mfg
J.D.

 

Hallo J.D. *wink.gif*

Lege mal eine neue Mappe an,ob das Problem reproduzierbar ist!
Diagramme neu anlegen!

Als Tip zu deinem Code!
On Error Resume next(Fehler unterdrückung) kompliziert solche Problematik

Gruss Poltergeist

 

Hallo Poltergeist,

ich hab mich jetzt mal überwunden und mal den kritischen Teil als Anhang hochgeladen.
Dabei sind nur die problematischen Blätter enthalten. Somit wird mir mein Prof. hoffentlich nicht den Kopf abreißen. *Smilie
Vielleicht kannst du dir ja nen Reim drauf machen, wenn du es mal vor dir siehst.
Es geht dabei ums Makro "Formatieren" in Modul 1.

Schonmal danke fürs anschauen.

Passwort: cw2017

Mfg
J.D.

 

Hallo Warlord45 *wink.gif*

Bitte im Xls Format,unter saveas erreichbar *wink.gif*
Oder andere User schauen mal drüber *wink.gif*

Gruß poltergeist

 

Hi,

deine Daten beginnen doch erst ab Zeile 4, deshalb solltest du auch den Bereich erst ab Zeile 4 definieren.

Der Fehler kommt weil du verbundene Zellen verwendest - du musst also vorher prüfen, ob es sich um verbundene Zellen handelt und wenn nicht, dann den eigentlichen Code ausführen:

Code:

Den Code an sich habe ich jetzt nicht überprüft.