Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Microsoft Office 2003-2019 => Excel => Thema gestartet von: illi am Dezember 01, 2011, 18:49:21 Nachmittag

Titel: Verschiedene Bausteine aus Tabellenblatt in anderes einfügen
Beitrag von: illi am Dezember 01, 2011, 18:49:21 Nachmittag
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
Titel: Antw: Verschiedene Bausteine aus Tabellenblatt in anderes einfügen
Beitrag von: Officer am Dezember 01, 2011, 20:43:33 Nachmittag
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
Titel: Antw: Verschiedene Bausteine aus Tabellenblatt in anderes einfügen
Beitrag von: illi am Dezember 01, 2011, 20:53:25 Nachmittag
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
Titel: Antw: Verschiedene Bausteine aus Tabellenblatt in anderes einfügen
Beitrag von: Officer am Dezember 01, 2011, 21:13:47 Nachmittag
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
Titel: Antw: Verschiedene Bausteine aus Tabellenblatt in anderes einfügen
Beitrag von: illi am Dezember 02, 2011, 06:58:19 Vormittag
Hallo Officer ,
vorzüglich ! Das passt bestens ! Ganz lieben Dank und einen schönen Tag
VG
Illi
Titel: Antw: Verschiedene Bausteine aus Tabellenblatt in anderes einfügen
Beitrag von: Officer am Dezember 02, 2011, 07:11:17 Vormittag
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
Titel: Antw: Verschiedene Bausteine aus Tabellenblatt in anderes einfügen
Beitrag von: illi am Dezember 02, 2011, 09:10:05 Vormittag
Hallo Officer,
sorry - hatte ich im Eifer der Freude über Deine tolle Hilfe vergessen.
Ist nachgeholt.
Vielen Dank
VG
Illi