Makro beginnt nicht mit der richtigen Seite
28.11.2018 13:39:04
Meli
ich habe in der gleichen Datei wie das selbst geschriebene Makro ein sheet "Makros", wo ich ein Command-Button eingefügt habe und das Makro "ÜbersichtErstellen" zugewiesen habe.
Nun wird das Ergebnis im Blatt "Makros" gezeigt und nicht im Blatt "Übersicht". Wenn ich es aber im VBA-Editor die Einzelne Schritte meines Makros mit F8 durchgehe, dann passt alles wunderbar.
FRAGE: Wie löse ich das Problem? Ich dachte mit "ThisWorkbook.Sheets("Übersicht").Range("A1").Select", aber es funktioniert nicht :-(
Sub ÜbersichtErstellen()
'Inhalte in Blätter "Abzug" und "Übersicht" leeren
ThisWorkbook.Sheets("Übersicht").Range("A1").Select
ThisWorkbook.Sheets("Abzug").Range("A1:AB200").Clear
ThisWorkbook.Sheets("Übersicht").Range("A1:AB200").Clear
ThisWorkbook.Sheets("Abzug").Range("A1:AB200").Copy Destination:=ThisWorkbook.Sheets("Übersicht" _
).Range("A1:AB200")
'Spalten löschen
ActiveSheet.Columns("A:A").Delete
ActiveSheet.Columns("B:C").Delete
ActiveSheet.Columns("C:C").Delete
ActiveSheet.Columns("D:N").Delete
ActiveSheet.Columns("H:J").Delete
ActiveSheet.Columns("J").Delete
'Zahl vom Textformat ins Zahlenformat umwandeln
Dim LetzteZeile As Long
Dim x As Long
LetzteZeile = Range("C200").End(xlUp).Row
For x = 2 To LetzteZeile
Cells(x, 3) = CLng(Cells(x, 3))
Cells(x, 3).NumberFormat = "General"
Next
'Werte dazuschreiben
ActiveSheet.Range("k1").Value = "Summe"
ActiveSheet.Range("N1").Value = "check"
'falls neue KST dazu kommen, dann Range "J4:J6" anpassen
ThisWorkbook.Sheets("Makros").Range("J4:J6").Copy Destination:=ThisWorkbook.Sheets("Übersicht"). _
Range("K2")
End Sub