Excel Makros zum Zeilen und Berechnungen einfügen

Computer: Software & Programmierung Visual Basic
#1

Hallo liebe Wissensgemeinde :wink:
Ich suche zwei Excel Makros:
Eines um eine Liste von Nummern zu durchsuchen und vor jede neue Nummer 4 leere Zeilen einzufügen.

Mit dem zweiten Makro soll in die oberste der freien Zeilen eine Berechnung zu dem vorhergehenden „Block“ geschrieben werden, jedoch ist die Größe des Blocks nicht immer gleich, also bestehen die Blocks aus unterschiedlich vielen Zeilen.

Hoffe auf Eure Unterstützung.
Vielen Dank an alle, die sich Gedanken dazu machen, bin froh um jede Antwort.
Sebastian

#2

Hallo Sebastian,

Ich suche zwei Excel Makros:

Eines um eine Liste von Nummern zu durchsuchen und vor jede
neue Nummer 4 leere Zeilen einzufügen.

was ist „eine neue Nummer“?

Beispielliste?

Gruß
Reinhard

#3

1
1
1
1
1
2
2
2
3
3
3
3
3
4
5
5
5

:wink: und zwischen 2 unterschiedliche Nummern (Ziffern) sollen 4 leere Zeilen

#4

:wink: und zwischen 2 unterschiedliche Nummern (Ziffern) sollen 4
leere Zeilen

Hallo Sebastian,

Alt+F11, Eifügen–Modul, Code reinkopieren, ggfs. anpassen, Editor schließen.
Makro ausführen lassen mit Alt+F8—

Die „1“ in „Cells(…,1)“ steht für die Spalte, 1=A, 2=B, 3=C, usw.

Gruß
Reinhard

Option Explicit

Sub Block1()
Dim Zei As Long
For Zei = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
 If Cells(Zei, 1).Value Cells(Zei - 1, 1).Value Then
 Rows(Zei).Resize(4).Insert
 End If
Next Zei
End Sub
#5

Mit dem zweiten Makro soll in die oberste der freien Zeilen
eine Berechnung zu dem vorhergehenden „Block“ geschrieben
werden, jedoch ist die Größe des Blocks nicht immer gleich,
also bestehen die Blocks aus unterschiedlich vielen Zeilen.

Hallo Sebastian,

in ein Standardmodul:

Sub Block2()
Dim Such As Range, Von As Long, Bis As Long, Zei As Long
Zei = Cells(Rows.Count, 1).End(xlUp).Row
Von = 1
Do
 Set Such = Range("A" & Von & ":A" & Zei + 10).Find("")
 Bis = Such.Row - 1
 Cells(Bis + 1, 1).Value = Application.Sum(Range(Cells(Von, 1), Cells(Bis, 1)))
 Von = Bis + 5
Loop While Such.Row 

Gruß
Reinhard
#6

Also bisher funktioniert alles super!
Auch mit der Teilsummenberechnung.

Jetzt bleibt die Frage wie ich am besten mit den Teilsummen weiterrechne.
In Spalte J soll die Rechnung „Wert aus G“ aus der selben Zeile geteilt durch „Wert aus I“ aus dieser Zeile.
In Spalte K das gleiche für „Wert aus H“ / „Wert aus I“.
In Spalte L soll „Wert aus G“/„Wert aus H“ *100
In Spalte M der Wert aus J direkt übertragen.
Spalte N soll „Wert aus M“ * „Wert aus I“ enthalten,
Spalte O den originalwert aus Spalte H.
Schließlich und endlich Spalte P soll „Wert aus N“ durch „Wert aus O“ * 100.

Hoffe du hast auch dafür Tipps oder gar Lösungen.

Bin begeistert was Excel mit Makros alles kann!!!

#7

Also bisher funktioniert alles super!
Auch mit der Teilsummenberechnung.
Jetzt bleibt die Frage wie ich am besten mit den Teilsummen
weiterrechne.
In Spalte J soll die Rechnung „Wert aus G“ aus der selben
Zeile geteilt durch „Wert aus I“ aus dieser Zeile.

Hallo Sebastion,

ich habe die „Summe“ in Ax der obersten von vier eingefügten leeren Zeilen eingefügt.
D.h. würdest du durch einen Wert in der gleichen Zeile teilen hast du Div/0, da ja alle Zellen in der Zeile leer sind bis auf eine.

Bastle mal eine Beispielmappe, in Blatt1 die Rohdaten wie sie vorliegen. In Blatt2 wie es nach einem Gesamtmakro aussehen soll.
Hochladen mit file-Upload o.ä., s. FAQ:2606

Gruß
Reinhard