ich bin neu hier und sehr begeistert von diesem Forum/dieser Website - wirklich toll, dass es so etwas gibt:-)
Allerdings habe ich ein kleines VBA-Problem.....
Dim reihe As Integer
Const spalte As Integer = 5 ' Spalte Teilebezeichnung
reihe = 3 ' Tabelle hat ersten Eintrag in Reihe 2 eig - Wert 3 für Vergleich notwendig
spalte = 5
Do While Cells(reihe, spalte).Value Cells(reihe - 1, spalte).Value
reihe = reihe + 1
Loop
Cells(reihe, spalte).EntireRow.Select
Selection.Insert Shift:=x1Down
Selection.Insert Shift:=x1Down
Range("G" & reihe).Value = WorksheetFunction.Sum(Sheets("Lieferant").Range("G2:G" & reihe - 1))
Range("J" & reihe).Value = WorksheetFunction.Sum(Sheets("Lieferant").Range("J2:J" & reihe - 1))
Range("K" & reihe).Value = WorksheetFunction.Sum(Sheets("Lieferant").Range("K2:K" & reihe - 1))
Range("J" & reihe).Select
Selection.Font.Bold = True
With Selection.Interior
.ColorIndex = 36
.Pattern = xlSolid
End With
Range("K" & reihe).Select
Selection.Font.Bold = True
With Selection.Interior
.ColorIndex = 36
.Pattern = xlSolid
End With
Range("G" & reihe).Select
Selection.Font.Bold = True
With Selection.Interior
.ColorIndex = 36
.Pattern = xlSolid
End With
End Sub
Die obige Sub soll(te) in einer Tabelle, die schon nach der Spalte "Teilebezeichnung" sortiert worden ist, jeweils nach einer "Teilebezeichnungsgruppe" 2 Leerzeilen einfügen und in die oberste der beiden dann noch die Summen der Teilebezeichnungsgruppe für Umsatz2007, Umsatz2008 und Menge eintragen.
Beispiel:
Teilenummer Teilebezeichnung Lieferant Menge Preis2007 Preis2008 Umsatz2007 Umsatz2008
101 Rohr ABC 50 1 2 50 150
103 Rohr CBA 60 2 3 120 180
--- '1.Leere Zeile 110 170 320
--- ' 2. Leere Zeile
105 Schlüssel ....... ...... ....... .....
.....
.....
.....
Leider ist mein Problem hier, dass das ganze nur 1x ordnungsgemäß klappt, da die Do While-Schleife ja verlassen wird und ich nicht wieder in diese reinkomme.
Kann mir jemand weiterhelfen oder mir sagen/zeigen, wie ich das ganze ändern muss? Ich weiß es leider im moment net :-(
Danke schonmal für Antworten.
Liebe Grüße
Herbert