Zeilen mit bestimmten Werten in ein anderes Tabellenblatt kopieren

  • Excel

Es gibt 14 Antworten in diesem Thema. Der letzte Beitrag () ist von petaod.

    Zeilen mit bestimmten Werten in ein anderes Tabellenblatt kopieren

    Hallo,

    habe folgende Problemstellung:

    Ich habe eine Userform erstellt mit zwei Komboboxen, in denen ein Leistungsbereich (kW) von: bis: ausgewählt werden kann. Mit klick auf den OK-Button soll im Tabellenblatt Database1 die Spalte D nach den ausgewählten Werten (einschließlich und zwischen) suchen und die komplette Zeile in das Tabellenblatt Comparison chart (ab erster freie Zeile) kopieren.

    Merci vorab!

    Visual Basic-Quellcode

    1. For r = 1 to Database1.Cells(Rows.Count).End(xlUp).Row
    2. If Database1.Cells(r,1) >= LeistungMin And Database1.Cells(r,2) <= LeistungMax Then
    3. Database1.Rows(r).EntireRow.Copy ComparisonChart.Cells(Rows.Count,1).End(xlup).Offset(1)
    4. End If
    5. Next
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    Der Code funktioniert leider nicht. Wo ist denn die Spalte D definiert? Als was muss das r deklariert (Objekt erforderlich) werden?

    anbei mein code:

    Quellcode

    1. Private Sub btn_OK_Click()
    3. LeistungsMin = cbx_powerband1.Value
    4. LeistungMax = cbx_powerband2.Value
    5. r = 'noch offen
    7. For r = 1 To Database1.Cells(Rows.Count).End(xlUp).Row
    8. If Database1.Cells(r, 1) >= LeistungMin And Database1.Cells(r, 2) <= LeistungMax Then
    9. Database1.Rows(r).EntireRow.Copy ComparisonChart.Cells(Rows.Count, 1).End(xlUp).Offset(1)
    10. End If
    11. Next
    14. End Sub

    keepsmile schrieb:

    Der Code funktioniert leider nicht
    Das soll ja auch nur ein Rohentwurf gewesen sein.
    Ich hab schon erwartet, dass du den Rest selbst an deine Struktur anpasst.

    Visual Basic-Quellcode

    1. Set Database1=Sheets("Database1")
    2. Set ComparisonChart=Sheets("ComparisonChart")
    Falls du "Option Explicit" eingeschaltet hast, musst du die Variablen auch noch definieren.
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    Ich verstehe aber immer noch nicht an welcher Stelle ich meine Spalte definiere in der nach den Werten gesucht werden soll. Normal kenne ich es mit beispielsweise Spalte F bis Zeile (6, Zeile XYZ). Bisher passiert bei Klick auf den OK-Button noch nichts. Tut mir leid, aber ich arbeite nur selten mit VBA.

    keepsmile schrieb:

    If Database1.Cells(r, 1) >= LeistungMin And Database1.Cells(r, 2) <= LeistungMax
    In meinem Beispiel ist es Spalte 1 für LeistungMin und Spalte 2 für LeistungMax.
    Du musst das schon auf deine Umgebung anpassen.

    keepsmile schrieb:

    Bisher passiert bei Klick auf den OK-Button noch nichts
    "nichts" glaube ich nicht (es sei denn, du hast Macros disabled).
    Wie wärs mit Debuggen?
    Breakpoint setzen und im Singlestep durchgehen.
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    Meine Makros sind aktiviert! Und ich bin den Code schon mit F8 durchgegangen. Es passiert beim Klicken des OK-Button nichts. Anbei nochmals mein Code. Habe es jetzt auf Spalte F angepasst.

    Quellcode

    1. Private Sub btn_OK_Click()
    3. LeistungsMin = cbx_powerband1.Value
    4. LeistungMax = cbx_powerband2.Value
    6. Set Database1 = Sheets("Database1")
    7. Set ComparisonChart = Sheets("ComparisonChart")
    9. For r = 1 To Database1.Cells(Rows.Count).End(xlUp).Row
    10. If Database1.Cells(r, 6) >= LeistungMin And Database1.Cells(r, 6) <= LeistungMax Then
    11. Database1.Rows(r).EntireRow.Copy ComparisonChart.Cells(Rows.Count, 1).End(xlUp).Offset(1)
    12. End If
    13. Next
    15. Unload Me
    17. End Sub
    19. Private Sub UserForm_Initialize()
    21. 'Füllt die Kombinationsfelder mit einer Vorauswahl
    23. With Me.cbx_powerband1
    24. .AddItem ""
    25. .AddItem "0"
    26. .AddItem "200"
    27. .AddItem "400"
    28. .AddItem "600"
    29. .AddItem "800"
    30. .AddItem "1000"
    31. .AddItem "1200"
    32. .AddItem "1400"
    33. .AddItem "1600"
    34. .AddItem "1800"
    35. .AddItem "2000"
    36. .AddItem "2500"
    37. .AddItem "3000"
    38. .AddItem "4000"
    39. .AddItem "5000"
    40. .AddItem "6000"
    41. .AddItem "7000"
    42. .AddItem "8000"
    43. .AddItem "9000"
    44. .AddItem "10000"
    45. .AddItem "11000"
    46. .AddItem "12000"
    47. .AddItem "13000"
    48. .AddItem "14000"
    49. .AddItem "15000"
    50. .AddItem "16000"
    51. .AddItem "17000"
    52. .AddItem "18000"
    53. .AddItem "19000"
    54. .AddItem "20000"
    56. End With
    58. cbx_powerband2.List = cbx_powerband1.List
    61. End Sub

    Wie soll man VBA ganz ohne Hilfe lernen
    Durch Eigeninitiative und qualifizierte Fragestellung ;)
    Mach nicht andere dafür verantwortlich, wenn du deine Aufgaben nicht gelöst kriegst.
    In der Aussage "Ereignisroutine und Forms-Button sagen mir nichts" sehe ich keine konkrete Frage, die man beantworten sollte.
    Da hätte ich erwartet, dass du selbständig mit diesen Begriffen eine Suchmaschine bemühst.



    Es gibt zwei Arten von Buttons in Excel.

    Der eine ist ein Formularsteuerelement.
    Das wesentliche, was du damit tun kannst, ist beim Erzeugen ein Makro (eine Ereignisroutine) zuweisen.

    Der andere ist ein AxtiveX-Control.
    Damit kannst du wesentlich mehr machen.
    Deswegen verwende ich normalerweise diese Variante.

    Für deinen Zweck sind beide ausreichend.
    Die Ereignisroutine ist das, was passieren soll, wenn du auf den Button klickst (also das Ereignis auslöst).

    Wenn beim Klicken des Buttons nichts passiert, dann hast du dem Button vermutlich keine (oder eine andere) Ereignisroutine zugewiesen.
    Du musst deine Sub btn_OK_Click dem Button zuweisen.
    Oder aus der zugewiesenen Routine diese aufrufen.

    Verwende in der ersten Zeile deiner Routine den Befehl

    Visual Basic-Quellcode

    1. Stop
    Wenn beim Klicken auf den Button der Code nicht an dieser Stelle angehalten wird, dann wird die Routine nicht angesprungen (weil sie nicht zugewiesen ist).
    Wenn der Code anhält, kannst du im Singlestep-Verfahren (F8) durch den Code steppen und dabei den Programmablauf beobachten und die Variablen anschauen.
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    Ich bin nunmal hauptberuflich keine Programmiererin. Hatte VBA ein halbes Semester lang. TOP! Denke wenn man dann nicht so viel Ahnung hat ist das legitim. Aber wird auch meine letzte Fragestellung in diesem Forum sein.

    Ich verwende immer ActiveX Steuerelemente.

    Und meine Routine ist dem Button btn_OK zugewiesen. Bei Doppelklick auf den Button wird es ja automatisch zugewiesen. Bin jetzt schon weiß gott wie oft mit F8 den Code durchgegangen. Ich habe mir sogar meine Excelfenster dabei angeschautö. Es passiert nichts. Habe es jetzt mit Option explicit versucht. Leider kein Erfolg.

    Quellcode

    1. Option Explicit
    4. Private Sub btn_OK_Click()
    5. Dim Database1 As Worksheet
    6. Dim ComparisonChart As Worksheet
    7. Dim LeistungMin As Integer
    8. Dim LeistungMax As Integer
    9. Dim r As Long
    11. LeistungMin = cbx_powerband1.Value
    12. LeistungMax = cbx_powerband2.Value
    15. Set Database1 = Sheets("Database1")
    16. Set ComparisonChart = Sheets("ComparisonChart")
    18. For r = 1 To Database1.Cells(Rows.Count).End(xlUp).Row
    19. If Database1.Cells(r, 6) >= LeistungMin And Database1.Cells(r, 6) <= LeistungMax Then
    20. Database1.Rows(r).EntireRow.Copy ComparisonChart.Cells(Rows.Count, 1).End(xlUp).Offset(1)
    21. End If
    22. Next
    24. Unload Me
    26. End Sub
    28. Private Sub UserForm_Initialize()
    30. 'Füllt die Kombinationsfelder mit einer Vorauswahl
    32. With Me.cbx_powerband1
    33. .AddItem ""
    34. .AddItem "0"
    35. .AddItem "200"
    36. .AddItem "400"
    37. .AddItem "600"
    38. .AddItem "800"
    39. .AddItem "1000"
    40. .AddItem "1200"
    41. .AddItem "1400"
    42. .AddItem "1600"
    43. .AddItem "1800"
    44. .AddItem "2000"
    45. .AddItem "2500"
    46. .AddItem "3000"
    47. .AddItem "4000"
    48. .AddItem "5000"
    49. .AddItem "6000"
    50. .AddItem "7000"
    51. .AddItem "8000"
    52. .AddItem "9000"
    53. .AddItem "10000"
    54. .AddItem "11000"
    55. .AddItem "12000"
    56. .AddItem "13000"
    57. .AddItem "14000"
    58. .AddItem "15000"
    59. .AddItem "16000"
    60. .AddItem "17000"
    61. .AddItem "18000"
    62. .AddItem "19000"
    63. .AddItem "20000"
    65. End With
    67. cbx_powerband2.List = cbx_powerband1.List
    70. End Sub

    keepsmile schrieb:

    Es passiert nichts.
    Mit dieser Aussage hast du mich oben schon auf den Holzweg geführt.
    Er wird zumindest zeilenweise im Code vorangehen.

    Wenn du nicht sagen willst, an welcher Stelle nicht das von dir erwartete passiert, mag ich auch nicht raten.

    Aber wird auch meine letzte Fragestellung in diesem Forum sein.
    Auch in anderen Foren wirst du, um Hilfe zu bekommen, qualifizierten Input liefern müssen.
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    Mich nervt es nur etwas als "dumm" dargestellt zu werden. Glaube meine Beschreibung am Anfang war akzeptabel. Diese Codezeile wird übersprungen:


    Database1.Rows(r).EntireRow.Copy ComparisonChart.Cells(Rows.Count, 1).End(xlUp).Offset(1)

    Die Userform öffnet sich problemlos. Sie wird auch mit dem vorgegebenen Input gefüllt.

Facebook
Telefonspende