Office: VBA

Hallo zusammen,
ich versuche mich grade an einer VBA-Programmierung, die bewirken soll, dass unter jede Zeile, in der ein bestimmtes Wort steht (Filiale), fünf bestimmte, bereits in einem anderen Tabellenblatt bestehende Zeilen eingefügt werden.
Diese Prüfung soll für alle Zeilen vorgenommen werden.

Ich habe schon ewig gesucht, aber leider nichts passendes gefunden bzw. konnte das dann leider nicht anwenden auf meinen Fall. Bin leider VBA-Anfänger und versuche mich da grade reinzuarbeiten.


Ausgangsbild:

Spalte B Spalte C Spalte D Spalte E

Filiale 25685 Ort1 Straße1
Filiale 26568 Ort2 Straße2
Filiale 26549 Ort3 Straße3
Filiale 12565 Ort4 Straße4
Filiale 12345 Ort5 Straße5


Die bestehenden Zeilen sehen wie folgt aus:



Zeile 1: Eingestellt:

Zeile 2: Einstellung / Übergabe am:

Zeile 3: Name des Nachfolgers:

Zeile 4: Anschrift des Nachfolgers:


Außer diesen Begriffen steht nichts in der Zeile. Die Begriffe stehen jeweils in Spalte B der jeweiligen Zeile. (evtl. geht's ja auch mit festem Zellenbezug?)


Am Ende soll das Ganze wie folgt aussehen:


Zeile 1: Filiale 12565 Ort4 Straße4

Zeile 2: Eingestellt:

Zeile 3: Einstellung / Übergabe am:

Zeile 4: Name des Nachfolgers:

Zeile 5:Anschrift des Nachfolgers:

Zeile 6: -Leerzeile-

Zeile 7: Filiale 12565 Ort4 Straße4

Zeile 8: Eingestellt:

Zeile 9: Einstellung / Übergabe am:

Zeile 10: Name des Nachfolgers:

Zeile 11: Anschrift des Nachfolgers:

Zeile 12: -Leerzeile-

usw.

Hatte es erst mit aufgezeichneten Makro für 4 Fälle gemacht, aber die Ursprungs-Liste kann bis zu 50 Zeilen lang werden... Das war dann doch zu umständlich.

Hat hier jemand einen Tipp, wie das funktionieren kann? *Smilie

Hoffe die Beschreibung ist ausführlich genug.

Danke schonmal.
LG

:)

 

Na klar. Mein Tipp ist, dass du eine Beispielmappe hochlädst. Denn 1. will das niemand nachbauen und 2. sind wir alle auf deinen bestehenden Code gespannt.

 

Hier mal mein Versuch.

Ich hoffe da steigt man durch *frown.gif*

Also unter dem Tabellenblatt "neuertest" habe ich hinterlegt, dass man mit dem Button "Leerzeile einfügen", die notwendigen Leerzeilen bekommt, sofern in der vorherigen Zeile "Filiale" steht.

Soweit so gut,, nun müssten nur noch die entsprechenden Inhalte in diese eingefügten Zeilen...

Oder kann man hinterlegen, dass immer wenn in einer Zeile das Wort "Filiale" steht, dann die Zeilen 4-10 aus dem Tabellenblatt "neuerTest" eingefügt werden


Der Versuch mit den ersten 5 habe ich auf dem Tabellenblatt "Druckversion" bereits erfolgreich hinbekommen. Und dann habe ich nochmal von vorne angefangen für "unendlich viele" Filialen


Dankeeeee *Smilie

 

Hallo Andi,

wenn ich es richtig verstanden habe, dann so:

Code:

Durch das Einfügen der Leerzeilen ist das halt eine recht langsame Lösung.

 

Wow, perfekt! *Smilie

Vielen Vielen Dank!. Funkioniert 1A


Eine kleine Ergänzung hätte ich jedoch noch, falls es dir nicht zu viel wird...

Kann man zwischen die einen Zeilen, die eingefügt werden, jeweils noch eine Leerzeile packen, damit es übersichtlicher ist?

Dann wäre ich wunschlos glücklich *Smilie

Danke!

 

Code:

 

Jetzt ist es perfekt, Vielen Dank!!! *Smilie

 

Ich hätte doch noch eine Frage. Wie kann ich den Code verändern, sodass z.b. nur in den ersten 250 Zeilen das ganze läuft? Je nach Menge der Filialen dauert das echt ganz schön lange *frown.gif*

 

Naja, das geht grundsätzlich so, dass du die Zeile
Code:

durch
Code:

ersetzt.
266 deshalb, weil du erst bei Zeile 16 beginnst (also 250 + 16 ist 266).

Aber sinnvoll ist das in meinen Augen nicht. Eine Geschwindigkeitsverbesserung könnte vermutlich dieser Code bringen, der fügt nicht fünf mal eine Zeile sondern fünf Zeilen auf einmal ein.
Code:

Und falls das immer noch zu langsam sein sollte, wäre meine Idee, ein Hilfstabellenblatt zu verwenden. D.h. immer erst die Zeile "Filiale" in das neue Tabellenblatt kopieren, dann die anderen vier Zeilen, dann wieder die nächste Filiale usw.
Kopieren sollte schneller sein als Zeilen einfügen.

 

Super danke, das teste ich direkt morgen mal *Smilie

Danke für das schnelle Antworten!

 

sooo ich habe das mal getestet und noch etwas modifiziert, weil ich noch mehr Zellen einfügen wollte, funktioniert soweit sehr gut.

Aber... Ist es evtl. möglich eine Abfrage einzubauen, dass nur hinzugefügt wird, wenn in Spalte B das Wort "Betriebsstätte" steht? Also sobald dies da nicht mehr steht, soll er mit der Einfügen Schleife auch schon vor dem angegebenen Maximum von 250 Zeilen aufhören.

Geht so was?

Das ist mein aktuelles Makro:

Sub Abfrageneinfügen()
'
' Abfrageneinfügen Makro
'
Dim i As Long
Dim j As Long
Dim ws As Worksheet

Application.ScreenUpdating = False
Set ws = Sheets("Druckausgabe")

With ws
For i = 263 To 13 Step -1
For j = 1 To 10
.Rows(i + 1).Insert (xlShiftDown)
Next j
.Rows(i + 1 & ":" & i + 5).Insert (xlShiftDown)
.Range("J2:M12").Copy .Range("B" & i + 2)

Next i
End With

Application.ScreenUpdating = True
'
End Sub



Geschwindigkeitsmäßig dauert es nur etwas, wenn alles eingefügt ist. Da es aber in den meisten Fällen weit weniger Zeilen sein werden ca 50) wäre so eine automatische Erkennung, wann er aufhören soll, gut *Smilie

 

okay habe es selbst gelöst *Smilie


Trotzdem dankeee für alles!

 

Also irgendwie hast du jetzt die Codes miteinander vermischt...

Code:

Du sagst nun "Füge mir 10 mal hintereinander eine Leerzeile ein. Danach fügst du auf einmal 5 Leerzeilen ein".
Wieso nicht einfach
Code:

???
Das würde auch erklären, wieso die Geschwindigkeit nach wie vor bescheiden ist.

Zu deiner Frage:
Code:

Ich rate dir, die Einrückungen im Code zu lassen wie angegeben, das erleichtert das Lesen.
Verwende bitte außerdem Codetags wenn du hier Code postest, das macht das Lesen ebenso einfacher.