Live-Forum - Die aktuellen Beiträge
Datum
Titel
09.05.2024 19:15:00
speichern über Makro ändert bedingt formatierte Zellen
09.05.2024 15:49:16
OEE Verlust als Linie an OEE
09.05.2024 13:10:18
Pivot-Tabelle mit Monaten und nicht Tagen
09.05.2024 11:36:45
workbook schließen ohne abfrage
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1876to1880
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1876to1880
1876to1880
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

@Rudi M./ Frage zu Aufrunden-Lösung

@Rudi M./ Frage zu Aufrunden-Lösung
12.04.2022 09:33:36
Daniela
Hallo Rudi,
ich habe eine ergänzende Frage zu Deiner (sehr hilfreichen!) Lösung von gestern für mein Aufrunden-Problem in bestimmten, variablen Zeilen.

Selection.Subtotal GroupBy:=7, Function:=xlSum, TotalList:=Array(1, 12, 19), _
Replace:=True, PageBreaks:=True, SummaryBelowData:=True
With Columns(12)    'L
.Copy
.PasteSpecial xlPasteValues
.Replace What:="0", Replacement:=vbNullString, LookAt:=xlWhole
.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=ROUND(RC1/4,0)"
Nun habe ich das Problem, dass meine Werte erst ab Zeile 3 anfangen und durch das o.g. wird die Leerzelle über meiner Überschrift mit einen Fehler ausgegeben, weil in A1 nur Text steht, auf die er sich dann versucht zu beziehen.
Was muss ich ändern, damit er nicht bei A1, sondern erst bei A3 anfängt?
Das zweite Problem ist, dass einer der ersten Schritte meines Makros ist, dass ich Leerzeilen lösche.
Die Formel geht aber bis zu der ursprünglichen Länge der Liste und schreibt somit unter mein Gesamtergebnis weitere Nullen, obwohl kein Inhalt mehr in diesen Zeilen ist.
Kann man das auch umgehen?
Vielen Dank schon einmal!!!
Gruß
Daniela

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
lad die Datei mal hoch.
12.04.2022 10:11:10
Rudi
AW: Anbei die Datei
12.04.2022 11:21:10
Rudi
Hallo,
da fangen die Daten aber in Zeile 2 an
AW: Anbei die Datei
12.04.2022 11:24:35
Daniela
Hi,
Zeile 2 ist nur für die Ursprungsdaten, die später rausgelöscht werden.
Was jetzt Spalte Q ist, ist später Spalte A und somit fangen die Datensätze dann ab Zeile 3 an.
Zeile 1 und 2 sind Überschriften.
Gruß
Daniel
AW: Anbei die Datei
12.04.2022 13:41:40
Rudi
Hallo,
alles zu überarbeiten habe ich keine Lust.
Um den Fehler zu vermeiden, wird eine leere Zeile eingefügt und ausgeblendet.

'vorhanden
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

'NEU
Rows(2).Insert
Rows(2).Hidden = True
With Range("A3").CurrentRegion
.ClearOutline
.Subtotal GroupBy:=7, Function:=xlSum, TotalList:=Array(1, 12, 19), _
Replace:=True, PageBreaks:=True, SummaryBelowData:=True
With .Columns(12)    'L
.Copy
.PasteSpecial xlPasteValues
.Replace What:="0", Replacement:=vbNullString, LookAt:=xlWhole
.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=ROUND(RC1/4,0)"
End With
End With
Application.CutCopyMode = False
End Sub
Gruß
Rudi
Anzeige
Vielen Dank!! owT
12.04.2022 14:17:10
Daniela
VG
Daniela

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige