Verschiedene Bausteine aus Tabellenblatt in anderes einfügen

[illi]

Hallo zusammen,
nachdem mir Officer heute morgen so schnell und kompetent geholfen hat (Nochmals ganz lieben Dank an dieser Stelle!) komme ich doch glatt mit der nächsten Frage.

In einem Tabellenblatt "Bausteine" gibt es unterschiedliche Texte die sich über mal mehr und mal weniger Zeilen erstrecken. Im 2. Tabellenblatt Ausdruck soll nun von B2 bis E2 ein X gesetzt werden können - daneben eine Schaltfläche einfügen.
Nun soll das Makro je nach gewählten Bausteinen die untereinander einfügen.
Allerdings soll zwischen den Bausteinen jeweils nur eine Leerzeile kommen.
Das blöde ist, dass je nach Vorgang mal einer, mehrere und auch nicht immer lückenlos Bausteine gewählt werden sollen.

Ist das zu realisieren?
Ich hab mal die Möglichkeit des Dateianhangs genutzt und ein kleines Bsp hochgeladen.
Danke für jegliche Unterstützung
Viele Grüße
Illi

[Officer]

Hallo illi,

wie sollen die Bausteine auf dem Blatt "Ausdruck" eingefügt werden?

a) Wenn bspw. Baustein 1 und 3 mit "x" gewählt ist, sollen dann in Spalte B die Bausteine 1 und darunter mit Leerzeile die Bausteine 3 eingefügt werden oder
b) sollen in Spalte B die Bausteine 1 und in Spalte D die Bausteine 3 eingefügt werden?

Viele Grüße

Officer

[illi]

Hallo officer,
die sollen immer untereinander -
also gewählt zB 1 und 3
Spalte B zuerst die Bausteinzeilen 1
dann eine Leerzeile
dann Bausteinzeile 3

Vielen Dank für den tollen Support!
VG Illi

[Officer]

Hallo illi,

hier ist der Code zum Eintragen der Bausteine in Spalte B. Die Beispieldatei mit dem Code habe ich als Anlage beigefügt.

Code: Visual Basic

1. Sub bausteine()
2. '** Dimensionierung
3. Dim lngZeile As Long
4. Dim a As Long
5.  
6. '** Vorgaben definieren
7. Set wsb = ThisWorkbook.Sheets("Bausteine")
8. Set wsa = ThisWorkbook.Sheets("Ausdruck")
9. lngZeile = 9 'Startzeile definieren
10.  
11.  
12. '** Ausgabebereich löschen
13. wsa.range("B9:E50").ClearContents
14.  
15. '** Prüfen, wo x gesetzt ist - Durchlaufen der Zeile 2
16. For a = 1 To 4
17.  
18.   If LCase(wsa.Cells(2, a + 1).Value) = LCase("x") Then
19.  
20.     '** Übertragen der Bausteine in Spalte B, wenn x gesetzt ist
21.    For b = 2 To wsb.Cells(Rows.Count, a).End(xlUp).Row
22.      
23.       wsa.Cells(lngZeile, 2).Value = wsb.Cells(b, a).Value
24.       lngZeile = lngZeile + 1 'Zeile erhöhen
25.              
26.     Next b
27.    
28.     '** Leerzeile einfügen
29.    lngZeile = lngZeile + 1
30.   End If
31.  
32. Next a
33.  
34. End Sub
35.  

Ist das so OK?

Viele Grüße

Officer

[illi]

Hallo Officer ,
vorzüglich ! Das passt bestens ! Ganz lieben Dank und einen schönen Tag
VG
Illi

[Officer]

Hallo illi,

prima...
Bitte markiere mit dem Button "Thema gelöst" den Thread als gelöst. Den Button findest Du unterhalb des letzten Beitrags im Thread.

Vielen Dank und ebenfalls einen schönen Tag

Officer

[illi]

Hallo Officer,
sorry - hatte ich im Eifer der Freude über Deine tolle Hilfe vergessen.
Ist nachgeholt.
Vielen Dank
VG
Illi