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
Menü
An- und Abmelden
Partner / Links
