"Fehler" im VBA
07.04.2019 11:37:50
Fred
Hallo Excel-Profis,
ich habe da einen "Fehler" im Code und weis nicht, waran es liegt.
Ich kopiere zusammengefasst von "Basis" (ab Zeile 4) nach "Spiele" (ab Zeile 3)
Angefügt werden dann noch entsprechend Berechnungen.
Das alles klappt auch wie gewollt.
sub Zusammen()
Dim LZ As Long
' kopiert bets nach Spiele
Worksheets("Spiele").Activate
Sheets("Spiele").Range("A3:M2000").ClearContents
With Sheets("Basis")
LZ = .Cells(.Rows.Count, 1).End(xlUp).Row
Union(.Range(.Cells(4, 1), .Cells(LZ, 1)), .Range(.Cells(4, 7), .Cells(LZ, 2))).Copy
End With
ActiveSheet.Cells(3, 1).PasteSpecial xlPasteValues
With Selection
.RemoveDuplicates 1, xlNo
.Sort Key1:=.Cells(1, 1), Order1:=xlAscending, Header:=xlGuess
With Selection.CurrentRegion
With .Columns(.Columns.Count + 1).Resize(, 6)
.Columns(1).FormulaR1C1 = "=CountIf(Basis!C1,RC1)"
.Columns(2).FormulaR1C1 = "=SumIf(Basis!C1,RC1,Basis!C24)"
.Columns(3).FormulaR1C1 = "=SumIf(Basis!C1,RC1,Basis!C25)"
.Columns(4).FormulaR1C1 = "=SumIf(Basis!C1,RC1,Basis!C26)"
.Columns(5).FormulaR1C1 = "=SumIf(Basis!C1,RC1,Basis!C11)"
.Columns(6).FormulaR1C1 = "=SumIf(Basis!C1,RC1,Basis!C18)"
.Formula = .Value
End With
End With
End With
Application.CutCopyMode = False
End Sub
Problem:Ich kann meine SpaltenÜberschriften nicht in "Spiele", Zeile 2 eintragen.
Wenn ich dies mache, verschieben sich meine Berechnungen nach rechts, zum ende meine Liste, beginnend in Zeile 1
Kann mir jemand bitte den Fehler sagen?
vereinfachtes Beispiel
https://www.herber.de/bbs/user/128991.xlsb
Mit freundlichen Gruß
Fred Neumann