Thema Datum  Von Nutzer Rating
Antwort
Rot Bestimmte Zeilen kopieren von Combobox Auswahl
05.06.2021 21:11:37 Tim
NotSolved
05.06.2021 22:35:45 Gast57804
NotSolved

Ansicht des Beitrags:
Von:
Tim
Datum:
05.06.2021 21:11:37
Views:
89
Rating: Antwort:
  Ja
Thema:
Bestimmte Zeilen kopieren von Combobox Auswahl

Hallo zusammen,

ich bräuchte einmal bei folgender Sache Hilfe:

Ich möchte anhand von zwei Auswahlmöglichkeiten in Comboboxen die entsprechenden Zeilen einer Tabelle, in der die Kriterien vorkommen, in ein anderes Excel Blatt kopieren beim Klick auf einen Button.

Aktuell ist es so, dass nur bei der Vorauswahl (siehe Foto) des Userforms die Abfrage funktioniert und die entsprechenden Zeilen  in ein neues Blatt ausgegeben werden. Sobald ich einen anderen Wert in der Combobox "Kontinent" einstelle, wird nur die zweite Zeile der Tabelle kopiert. Ich stehe gerade etwas auf dem Schlauch da ich noch Anfänger bin, kann mir hier vielleicht jemand helfen?

Link zum Bild: https://ibb.co/wdf1kZS

Code:

Private Sub btn_ausgabe_Click()


Dim lngzeile As Long
Dim lngzeilemax As Long
Dim rngbereich As Range


Tabelle2.Cells.Clear

With Tabelle2
    .Range("A1") = "Flüge in den Kontinent"
    .Range("B1") = Me.cmb_kontinent
    .Range("C1") = "für das Jahr:"
    .Range("D1") = Me.cmb_Jahr
    .Range("E1") = "Kategorie"
    .Range("F1") = Me.cmb_Kategorie
    
    .Range("A3") = "Flugnummer"
    .Range("B3") = "Beförderte Passagiere"
    .Range("C3") = "Umsatz/€"
    .Range("D3") = "Marketingausgaben/€"
End With

With Tabelle1
    
Set rngbereich = .Rows(2)

lngzeilemax = Worksheets("Tabelle1").Range("A" & Rows.Count).End(xlUp).Row

For lngzeile = 2 To lngzeilemax
    If .Cells(lngzeile, 1).Value = (Me.cmb_kontinent) And .Cells(lngzeile, 3).Value = (Me.cmb_Jahr) Then
    Set rngbereich = Union(rngbereich, .Rows(lngzeile))
    
    End If

Next lngzeile

'Bestimmte Bereiche der Zeile sollen kopiert werden
rngbereich.Columns("B").Copy Destination:=Tabelle2.Range("A4")
rngbereich.Columns("E").Copy Destination:=Tabelle2.Range("B4")
rngbereich.Columns("F").Copy Destination:=Tabelle2.Range("C4")
rngbereich.Columns("G").Copy Destination:=Tabelle2.Range("D4")
End With
     

End Sub


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Bestimmte Zeilen kopieren von Combobox Auswahl
05.06.2021 21:11:37 Tim
NotSolved
05.06.2021 22:35:45 Gast57804
NotSolved