ich habe eine Tabelle, deren alte Werte ich löschen möchte, bevor ich neue Daten einfüge. Allerdings habe ich auch noch ein Diagramm auf dem Tabellenblatt liegen, wes wegen er mir meinen Makro nicht ausführt. Lösche ich dieses Diagramm pere Hand, führt er mir den Makro fehlerfrei aus.
(er markiert mir den Punkt: Cells.Select, ich habe es schon mit ChartObjects(1).Select vor dem Cells.Select probiert, damit er das Diagramm auch löscht, aber er nimmt es mir nicht an)
(Ich würde mich über eine schnelle Hilfe freuen.
Danke,
Stephanie)
Hier mein Makro:
Public Sub SortierenStrategie_BetrWoh()
Dim a, b As Integer
Windows("Gesamt-Betreutes Wohnen.xls").Activate
Sheets("Original_Betreutes Wohnen").Select
For a = 6 To 2150 Step 1
If Cells(a, 17).Value = "" Then
b = a
End If
Next a
Weiter:
Sheets("Sortieren Strategie").Select
Cells.Select
Selection.ClearContents
Sheets("Original_Betreutes Wohnen").Select
Range(Cells(7, 1), Cells(b - 1, 22)).Select
Selection.Copy
Sheets("sortieren Strategie").Select
Range("A7").Select
ActiveSheet.Paste
Range(Cells(7, 1), Cells(b - 1, 22)).Select
Application.CutCopyMode = False
Selection.Sort Key1:=Range("U8"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub
Anmerkung: Das Diagramm wird aus den Daten dieser Tabelle erstellt, somit könnte ich vielleicht auch einen Befehl eingeben, der zuerst das Diagramm löscht und danach die Inhalte der Zellen entfernt. (wenn ich nur wüßte, wie dieser Befehl lautet!!)