Find 0 og indsæt linie

Hvordan laver du tabellen? Ved en while fra databaseudtræk?

Er det Excel? I så fald kan du med fordel flytte spm til http://www.eksperten.dk/spm/Programmer/Regneark/Excel/

thomasjepsen: Arhh - det er jo et VBA-spørgsmål (går jeg ud fra), så er kategorien jo fin nok:

confisk: Du kunne måske være så smart at skrive at det omhandler om VBA og Excel? Det gætter jeg på at det gør, men det er jo ikke alle der er tankelæsere ;o)


Svar:

Sub Makro1()
    Dim ws As Worksheet
    Dim i As Long
   
'Ret arknavnet til dit arknavn
    Set ws = Sheets("Ark1")
   
'Finder sidste række i kolonne F
    lLastRow = ws.Range("F" & Rows.Count).End(xlUp).Row
   
    For i = 1 To lLastRow
      If ActiveSheet.Cells(i, 6).Value = "0" Then
'Indsætter ny række under rækken med nul
        Rows(i + 1).Select
        Selection.Insert Shift:=xlDown
'Indsætter sumformel
        Cells(i + 1, 6).Select
        ActiveCell.FormulaR1C1 = "=SUM(R[-" & i & "]C:R[-1]C)"
        Exit For
      End If
    Next i
End Sub

martin->ja, man kan sagtens placere dette spm her. Men dette er en VB-gruppe og ikke en VBA-gruppe. Og mange VB-brugere vil også kunne løse problemet, men det vil stadig være mere korrekt at placere det under Excel ;)

Hmm - jeg synes nu at VBA hører under VB og ikke under Excel/Word/whatever. Der er jo tonsvis af VBA spørgsmål i forvejen herinde.

Jeg tror der er flere der kan svare her end i Excel-kategorien.

Men der mangler faktisk en egentlig decideret VBA kategori på eksperten!

ja, du har nok ret :o)...jeg er bare vandt til fra bla Access-kategorien, at det er her, man lægger Access-VBA-spm.
En VBA-kategori kunne være fint, men så, ligesom her, skal man huske at fortælle hvilket program, man spørger til. Dette spm kunne være til både Excel, Access  eller en hvilken som helst anden database eller regneark.

Enig!

Tak for hjælpen det virker (fandt dog selv ud af det i mellemtiden - dog ikke så smart som løsningen her). Fremover skal jeg nok skrive det er Excel-VBA ;-)

;o)