Supportnet / Forum / Tabellenkalkulation

ich habe ein kleines Makro-Problem... In meiner Excel Tabelle gibt es in spalte A verschiedene Baugruppen die nacheinander aufsteigend aufgelistet sind. Nun möchte ich das er nach jeder Baugruppenart eine Leerzeile einfügt um die ganze Sache zu gliedern und später Summen zu anderen Daten aus der Tabelle zu bilden. Bsp: 0000. 000A. 000A. 000B. 000B. 000B. Und nach jeder Baugruppe soll nun eine Leerezeile eingefügt werden. Bitte schnell Liebe Grüße [*][sup][i]Admininfo: Bitte vermeide Mehrfachanfragen in verschiedenen, bzw. gleichen Gruppen. Siehe [url=https://supportnet.de/faqsthread/840][u]FAQ 2.[/u][/url][/u][/i][/sup] [url]https://supportnet.de/threads/2144444[/url]

Hallo,

versuch es mal mit dem Makro

Sub Makro1()
    letzteZeile = Range("A65536").End(xlUp).Row
    HW = Left(Range("A" & 2).Value, 5)
    For i = 3 To letzteZeile
        If Left(Range("A" & i).Value, 5) <> HW Then
            Rows(i).Select
            Selection.Insert Shift:=xlDown
            i = i + 1
            letzteZeile = letzteZeile + 1
            HW = Left(Range("A" & i).Value, 5)
        End If
    Next i
End Sub

Die Baugruppe darf nur 4 Zeichen vor dem Punkt haben

Ohne Makro kenn ich keine Lösung

Gruß

Helmut

Vielen Vielen Dank :-)
Hat super funktioniert...da sitz ich schon den ganzen Vormittag drüber.....:-)

LG

Also bei dem neuen Sub bildet er mir die Summe ganz oben und macht keine Leerzeilen zwischen die Baugruppen. Ich denke das liegt daran, dass ich in der Zelle A1:A2 und B1:B2 nochwas stehen habe.
Ab Zeile 5 kommt die erste Baugruppe davor is nur Überschrift, KN usw.

Und dann müssten folgende Spalten gezählt werden:

L bis AG

Ist ziemlich viel ;-)

Und in Spalte A sind eben die Baugruppen....

Danke schonmal

LG

Habs jetzt so abgeändert, das in der Spalte L die Summe ausgegeben wird und das sonst alles passt, jedoch macht er ganz unten die Summe nicht bei L und wie mache ich das für die nächsten Spalten?
Hier meine geänderter Sub:

Zeile = 2
Range("A6").Select
HW = Left(Range("A" & 2).Value, 5)
While IsEmpty(ActiveCell) = False
If Left(ActiveCell.Value, 5) <> HW Then
I = ActiveCell.Row()
j = I + 2
Rows(I & ":" & j).Select
Selection.Insert Shift:=xlDown
Range("A" & I).Formula = "Summe:"
Range("L" & I).Formula = "=SUM(R" & Zeile & "C:R" & I - 1 & "C)"
ActiveCell.Offset(3, 0).Select
Zeile = ActiveCell.Row()
HW = Left(ActiveCell.Value, 5)
Else
ActiveCell.Offset(1, 0).Select
End If
Wend
I = ActiveCell.Row()
Range("A" & I).Formula = "Summe"
Range("B" & I).Formula = "=SUM(R" & Zeile & "C:R" & I - 1 & "C)"

Hey :-)

Also das er das über die Spalten L bis AG macht hab ich aber trotzdem bleibt das Problem mit der letzten Baugruppe, da macht er irgendwie nichts.
Ist dein Sub von den Zeilen Her begrenzt? Meine Tabelle kann nämlich tausende von Baugruppen enthalten...
Wäre schön wenn du mir sagen könntest wie ich die Zeilen wo die Summen sind schön hervorheben kann. ZB Fett machen und Rahmen um die Zeile und Hintergund Gelb oderso :-)

Dann wars das glaub ich....

LG

• Wenn Dann Funktion über VBA ?
• Zeichenkettenaddition bei VBA?
• VBA und "-00"
• VBA
• VBA