VBA: Summewenn mit relativen Verweisen

Sub LeerzeilenEinfügen() Dim altNr As String Dim anzLZ As Long ' Anzahl der einzufügenden Leerzeilen Dim letzteZeile As Long Dim neuNr As String Dim startZeile As Long Dim ws As Worksheet Dim zeile As Long startZeile = 2 anzLZ = 4 Set ws = ActiveSheet altNr = Left$(ws.Cells(startZeile, "A"), 4) zeile = startZeile Do Until IsEmpty(ws.Cells(zeile, "A")) neuNr = Left$(ws.Cells(zeile, "A"), 4) If neuNr altNr Then ' Leerzeilen einfügen ws.Rows(zeile).Resize(anzLZ).Insert zeile = zeile + anzLZ altNr = neuNr End If zeile = zeile + 1 Loop End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Leerzeilen_Formeln_Einfuegen() Dim altNr As String Dim neuNr As String Dim anzLZ As Long ' Anzahl der einzufügenden Leerzeilen Dim Zeile_L As Long Dim startZeile As Long Dim zeile As Long Dim ws As Worksheet Dim sFormel As String startZeile = 2 anzLZ = 4 Set ws = ActiveSheet With ws 'letzte Zeile in Spalte A Zeile_L = .Cells(.Rows.Count, 1).End(xlUp).Row altNr = .Cells(Zeile_L, 1).Value For zeile = Zeile_L To startZeile Step -1 neuNr = .Cells(zeile - 1, 1).Value If neuNr altNr Then ' Leerzeilen unter Block einfügen .Rows(Zeile_L + 1).Resize(anzLZ).Insert 'Werte eintragen With .Cells(Zeile_L + 1, 2) .Value = "Total" .Font.Bold = True End With .Cells(Zeile_L + 1, 6).Value = 3010 .Cells(Zeile_L + 2, 6).Value = 3020 .Cells(Zeile_L + 3, 6).Value = 3510 'Formel einfügen sFormel = "=SUMIF(R" & zeile & "C6:R" & Zeile_L _ & "C6,R[0]C6,R" & zeile & "C[0]:R" & Zeile_L & "C[0])" .Range(.Cells(Zeile_L + 1, 7), .Cells(Zeile_L + 3, 9)).FormulaR1C1 = sFormel 'Linien formatieren With .Range(.Cells(Zeile_L, 2), .Cells(Zeile_L, 9)) With .Borders(xlEdgeBottom) .LineStyle = xlContinuous .Weight = xlThin End With End With With .Range(.Cells(Zeile_L + 3, 2), .Cells(Zeile_L + 3, 9)) With .Borders(xlEdgeBottom) .LineStyle = xlDouble End With End With 'Zeile einfügen und Name in SPalte B eintragen .Rows(zeile).Insert With .Cells(zeile, 2) .Value = altNr .Font.Bold = True End With Zeile_L = zeile - 1 altNr = neuNr End If Next 'Spalte A ausblenden .Columns(1).Hidden = True End With End Sub

Hallo Franz
Dein Code funktionierte in der Beispieldatei wunderbar. Wenn ich diesen Code aber auf das richtige Dokument anwende, entsteht ein Laufzeitfehler '13' "Typen unverträglich". Im Editor werde ich auf folgende Zeile verwiesen:

Sub Leerzeilen_Formeln_Einfuegen()
Dim altNr As String
Dim neuNr As String
Dim anzLZ As Long       ' Anzahl der einzufügenden Leerzeilen
Dim Zeile_L As Long
Dim startZeile As Long
Dim zeile As Long
Dim ws As Worksheet
Dim sFormel As String
startZeile = 2
anzLZ = 4
Set ws = ActiveSheet
With ws
'letzte Zeile in Spalte A
Zeile_L = .Cells(.Rows.Count, 1).End(xlUp).Row
altNr = .Cells(Zeile_L, 1).Value
For zeile = Zeile_L To startZeile Step -1
neuNr = .Cells(zeile - 1, 1).Value
If neuNr  altNr Then
' Leerzeilen unter Block einfügen
.Rows(Zeile_L + 1).Resize(anzLZ).Insert
'Werte eintragen
With .Cells(Zeile_L + 1, 2)
.Value = "Total"
.Font.Bold = True
End With
.Cells(Zeile_L + 1, 6).Value = 3010
.Cells(Zeile_L + 2, 6).Value = 3020
.Cells(Zeile_L + 3, 6).Value = 3510
'Formel einfügen
sFormel = "=SUMIF(R" & zeile & "C6:R" & Zeile_L _
& "C6,R[0]C6,R" & zeile & "C[0]:R" & Zeile_L & "C[0])"
.Range(.Cells(Zeile_L + 1, 7), .Cells(Zeile_L + 3, 9)).FormulaR1C1 = sFormel
'Linien formatieren
With .Range(.Cells(Zeile_L, 2), .Cells(Zeile_L, 9))
With .Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
End With
End With
With .Range(.Cells(Zeile_L + 3, 2), .Cells(Zeile_L + 3, 9))
With .Borders(xlEdgeBottom)
.LineStyle = xlDouble
End With
End With
'Zeile einfügen und Name in SPalte B eintragen
.Rows(zeile).Insert
With .Cells(zeile, 2)
.Value = altNr
.Font.Bold = True
End With
Zeile_L = zeile - 1
altNr = neuNr
End If
Next
'Spalte A ausblenden
.Columns(1).Hidden = True
End With
End Sub

Woran liegt das?
LG

Beliebteste Forumthreads (12 Monate)

VBA: Summewenn mit relativen Verweisen

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA: Summewenn mit relativen Verweisen

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

308 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread