Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<
Microsoft Office 2003-2019 => Excel => Thema gestartet von: timmi_79 am November 23, 2016, 09:26:59 Vormittag
-
Guten Tag
Als Amateur Nutzer wäre ich sehr dankbar um eure Hilfe :o)
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 (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
-
hat sich erledigt 8)
Danke.