ich benötige eure Hilfe....
Ich habe eine sehr große Tabelle, die momentan so angelegt ist, dass ich nur noch die Summen benötige - so sieht mein akt. Code aus:
Sub alleleerenzeilen()
Dim zeilen, spalten, i, j As Integer
zeilen = Cells(1, 1).CurrentRegion.Rows.Count
spalten = Cells(1, 1).CurrentRegion.Columns.Count
For i = 1 To spalten
For j = 1 To zeilen
If Cells(j, i).Value & "" = "" Then 'HIER SAGT ER MIR TYPENFEHLER!?!?!
Cells(j, i).Value = 0
End If
Next j
Next i
End Sub
Sub zeilenEinfuegen() 'funktioniert!
Dim ix As Integer
For ix = 26 To 10000 Step 25
ActiveSheet.Cells(ix, 1).EntireRow.Insert
Next ix
End Sub
'HIER BEGINNT MEIN PROBLEM
Sub Summe()
Dim rngC As Range, dblSum As Double, rngBer As Range
Set rngBer = Range("B9:B" & Range("A65536").End(xlUp).Row + 1)
For Each rngC In rngBer
dblSum = dblSum + rngC.Value
If rngC.Value = "" Then
rngC.Value = dblSum
dblSum = 0
End If
Next
End Sub
Nun brauche ich einen Code, der mir in jede neu eingefügt Zeile in jeder Spalte (außer A) eine Summe bildet (xlUp...) - also in Spalte B+C+D+E+F...CZ, Zeile 26 (+25), 51, 76...etc.. Am besten noch rot formatiert.
kann mir jemand helfen? :-/