Makro beginnt nicht mit der richtigen Seite

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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub ÜbersichtErstellen() Dim LetzteZeile As Long, x As Long Application.ScreenUpdating = False Application.Calculation = xlCalculationManual ThisWorkbook.Worksheets("Abzug").Range("A1:AB200").ClearContents ThisWorkbook.Worksheets("Übersicht").Range("A1:AB200").ClearContents With ThisWorkbook.Worksheets("Abzug") .Range("A1:AB200").Copy _ Destination:=ThisWorkbook.Worksheets("Übersicht").Range("A1") 'Spalten löschen ### in welchem Blatt? derzeit im Blatt Abzug### 'Blattnamen vor Columns schreiben .Columns("A:N").Delete End With 'Zahl vom Textformat ins Zahlenformat umwandeln '### ich bin mal davon ausgegangen im Blatt "Übersicht" ### With ThisWorkbook.Worksheets("Übersicht") LetzteZeile = .Cells(.Rows.Count, 3).End(xlUp).Row For x = 2 To LetzteZeile .Cells(x, 3) = CLng(.Cells(x, 3)) Next .Columns(3).NumberFormat = "General" 'Werte dazuschreiben .Range("K1") = "Summe" .Range("N1") = "check" Worksheets("Makros").Range("J4:J6").Copy _ .Range ("K2") End With Application.Calculation = xlCalculationSemiautomatic End Sub

Hallo Werner,
also mit dem Tipp "Application.ScreenUpdating = False" und noch aus Google-Recherche "Thisworkbook" weglassen,scheint das Makro ohne zu Meckern zu laufen.
ALLERDINGS einige Formatierungsteile vom Makro "Übersichterstellen" macht er nicht im Blatt "Übersicht" - wie es geschrieben ist-, sondern im Blatt "Makros" :-( (z.B. erste Zeile fest und gelb markieren). Dafür die Zeilen mit Werte dazuschreiben macht er es wieder im richtigen Blatt "Übersicht".
.....Ich bin ratlos!!! finde den Fehler nicht, warum er das macht.
HIer ein Testdatei und der Code
https://www.herber.de/bbs/user/125724.xlsm

Sub ÜbersichtErstellen()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Sheets("Abzug").Range("A1:AB200").Copy Sheets("Übersicht").Range("A1")
'Spalten löschen
With Sheets("Übersicht")
.Columns("A:A").Delete
.Columns("B:C").Delete
.Columns("C:C").Delete
.Columns("D:N").Delete
.Columns("H:J").Delete
.Columns("J").Delete
End With
'Formatieren()
With Sheets("Übersicht")
Columns("A:A").EntireColumn.AutoFit
Columns("B:B").ColumnWidth = 10
Columns("C:C").ColumnWidth = 9
Columns("D:D").EntireColumn.AutoFit
Columns("E:E").EntireColumn.AutoFit
Columns("J:J").ColumnWidth = 3.44
Columns("K:K").ColumnWidth = 8
Columns("M:M").ColumnWidth = 3.44
End With
With Sheets("Übersicht")
Range("A1:AB1").Font.Bold = True
Range("A1:AB1").Interior.ColorIndex = 6
End With
With ActiveSheet.PageSetup
.Orientation = xlLandscape
.FitToPagesWide = 1
.FitToPagesTall = 1
.FirstPage.CenterFooter.Text = "Übersicht der My-Taxi-Kosten"
.CenterHorizontally = True
.PrintArea = ActiveSheet.UsedRange.Address
End With
'Werte dazuschreiben
Sheets("Übersicht").Range("k1").Value = "Summe"
Sheets("Übersicht").Range("N1").Value = "check"
'falls neue KST dazu kommen, dann Range "J3:J5" anpassen
Sheets("Makros").Range("J3:J5").Copy Sheets("Übersicht").Range("K2")
'Errechnen der Summen pro Kostenstelle
Dim Arg1 As Range 'the range I want to sum
Dim Arg2 As Range 'criteria range
Dim Arg3 As Variant 'the criteria as VARIANT
Dim i As Integer
Dim LastColumn As Integer: LastColumn = 12
Set Arg1 = Sheets("Übersicht").Range("H1:H200") 'Arg1 and Arg2 must be the same size
Set Arg2 = Sheets("Übersicht").Range("C1:C200") 'Arg1 and Arg2 must be the same size
Set Arg3 = Sheets("Übersicht").Range("K2:K13")  'criteria can have different size
'falls neue KST dazu kommen, dann Range letzten Wert von i anpassen - je nach Zeilenanzahl
For i = 2 To 4
Sheets("Übersicht").Cells(i, LastColumn) _
= Application.WorksheetFunction.SumIfs(Arg1, Arg2, Arg3.Cells(i - 1, 1).Value)
Next
'Errechnen der Gesamtsumme + Check
Sheets("Übersicht").Cells(1, 12).Formula = "=SUM(L2:L15)"
Sheets("Übersicht").Cells(1, 15).Formula = "=SUM(H:H)-L1"
Application.Calculation = xlCalculationSemiautomatic
'ActiveWorkbook.Save
End Sub

Beliebteste Forumthreads (12 Monate)

Makro beginnt nicht mit der richtigen Seite

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread