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

Hallo zusammen

Ich bräuchte eure hilfe 

Ich habe 2 Register. Ein Register ist mit Daten gefüllt. Auf dem 2. Register lasse ich eine Liste generieren mit S-Verweis, je nach dem was ich für ein Kriterium mit Hilfe der dropdown Liste wähle. Das hat zur Folge, dass nun im Register 2 eine Aufzählung generiert wird, die einmal 10 Zeilen lang ist, das andere Mal 20 Zeilen etc.

Nun möchte ich, dass jeweils 2 Zeilen nach dem letzten Eintrag der aus Register 1 generierten Tabelle ein Schlusssatz steht. So dass man das Dokument dann auch schön drucken kann...

Danke für eure Hilfe und einen schönen Abend.

Martin

Guten Tag

Als Amateur Nutzer wäre ich sehr dankbar um eure Hilfe )

Ich habe die Problematik, dass ich von einem Register bestimmte Informationen (insofern die gefilterten Zeilen gefüllt sind) in ein 2. Register kopieren möchte:

Nun habe ich auf http://www.office-loesung.de/ftopic511049_0_0_asc.php folgenden Lösungsansatz gefunden...

Option Explicit

 Public Sub NurGefuellte()

 Dim WkSh_Q  As Worksheet ' das Quell-Tabellenblatt - die Eingabe
 Dim WkSh_Z  As Worksheet ' das  Zile-Tabellenblatt - die Ausgabe
 Dim lZeile  As Long      ' der For/Next Schleifen-Index im Quell-Tabellenblatt
 Dim lFreie  As Long      ' die nächste freie Zeile im Ziel-Tabellenblatt

    Application.ScreenUpdating = False
     
    Set WkSh_Q = ThisWorkbook.Worksheets("Tabelle1") ' den Tabellenblattnamen ggf. anpassen
    Set WkSh_Z = ThisWorkbook.Worksheets("Tabelle2")
     
 '     es wird ab Zeile 1 in Spalte 1 = A geprüft
    For lZeile = 1 To WkSh_Q.Cells(Rows.Count, 1).End(xlUp).Row
       If Trim$(WkSh_Q.Range("A" & lZeile).Value) <> "" Then
          lFreie = WkSh_Z.Cells(Rows.Count, 1).End(xlUp).Row + 1
          WkSh_Q.Rows(lZeile).Copy Destination:=WkSh_Z.Rows(lFreie)
       End If
    Next lZeile
     
    Application.ScreenUpdating = False
     
    Set WkSh_Q = Nothing ' die Ressourcen wieder freigeben
    Set WkSh_Z = Nothing

 End Sub

Ich habe dies bei mir probiert und es funktioniert soweit, nur nicht in den richtigen Bereichen 

Meine Probleme:

1. Bei mir müsste es die gefüllten Felder ab Feld E 8 nehmen nach unten und rechts nehmen.

2. Weiter habe ich die Problematik, dass ich danach noch Spalten habe, die ich nicht berücksichtigen möchte, z. B. Beispiel Spalte F bis P und Spalte X und Y. Wie müsste ich dies einbauen?

3. Weiter habe ich in der 1. Zeile meine Spaltenbezeichnungen hinterlegt. Wenn ich nun bei der Spalte S nur jene Zeilen anzeigen lasse, die ein X enthalten, so sollte es mir auch nur diese gefüllten Zeilen in das neue Register kopieren...

hui... Fragen über Fragen 

Ich hoffe, dass mir jemand bei den Anpassungen behilflich sein kann.

Herzlichen Dank.

Martin