Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon Chrissi_Li vom 21.08.2020, 12:14 Options

VBA

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

^{Admininfo: Bitte vermeide Mehrfachanfragen in verschiedenen, bzw. gleichen Gruppen. Siehe FAQ 2.[/u]}
http://www.supportnet.de/threads/2144444

Antwort schreiben

Antwort 1 von Saarbauer vom 21.08.2020, 13:04 OptionsLösung

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

Antwort 2 von Chrissi_Li vom 21.08.2020, 13:20 Options

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

LG

Antwort 3 von Chrissi_Li vom 21.08.2020, 14:48 Options

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

Antwort 4 von Chrissi_Li vom 21.08.2020, 15:05 Options

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)"

Antwort 5 von Chrissi_Li vom 21.08.2020, 15:21 Options

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

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Tipp einschicken

News einschicken