Thema Datum  Von Nutzer Rating
Antwort
30.09.2022 12:48:13 Bert H.
NotSolved
30.09.2022 18:44:49 ralf_b
NotSolved
Rot Zeilen untereinander kopieren
 03.10.2022 08:25:03 Gast90507
NotSolved
03.10.2022 12:26:35 Gast32487
NotSolved
03.10.2022 12:39:49 Gast91965
NotSolved

Ansicht des Beitrags:
Von:
Gast90507		 Datum:
03.10.2022 08:25:03		 Views:
431		 Rating:
     
Antwort:
  Ja
Thema:
Zeilen untereinander kopieren

Hallo Bert

Eine mögliche Variante!

Sub Copy_Sammeln()
 Dim Eingabestring As String
        Eingabestring = InputBox("Eingabe")
        Worksheets("Tabelle3").Range("B1").AutoFilter Field:=1, Criteria1:=Eingabestring
        Worksheets("Tabelle3").AutoFilter.Range.SpecialCells(xlCellTypeVisible).Copy Worksheets("Tabelle5").Range("A" & Worksheets("Tabelle5").UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1)
        Worksheets("Tabelle3").Range("A10").AutoFilter

        Worksheets("Tabelle4").Range("B1").AutoFilter Field:=1, Criteria1:=Eingabestring
        Worksheets("Tabelle4").AutoFilter.Range.SpecialCells(xlCellTypeVisible).Copy Worksheets("Tabelle5").Range("A" & Worksheets("Tabelle5").UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1)
        Worksheets("Tabelle4").Range("A10").AutoFilter
End Sub

 

Gruß Michael

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
30.09.2022 12:48:13 Bert H.
NotSolved
30.09.2022 18:44:49 ralf_b
NotSolved
Rot Zeilen untereinander kopieren
 03.10.2022 08:25:03 Gast90507
NotSolved
03.10.2022 12:26:35 Gast32487
NotSolved
03.10.2022 12:39:49 Gast91965
NotSolved