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

Ansicht des Beitrags:
Von:
Gast32487		 Datum:
03.10.2022 12:26:35		 Views:
460		 Rating:
     
Antwort:
  Ja
Thema:
Zeilen untereinander kopieren

Hallo Bert

Oder auch so!

Sub DeinMakro()
 Dim Eingabestring As String
 Eingabestring = InputBox("Eingabe")
 Call CopyTab("Tabelle3", Eingabestring)
 Call CopyTab("Tabelle4", Eingabestring)
End Sub


Sub CopyTab(Tabname As String, Suchbegriff As String)
 Worksheets(Tabname).Range("B1").AutoFilter Field:=1, Criteria1:=Suchbegriff
 Worksheets(Tabname).AutoFilter.Range.SpecialCells(xlCellTypeVisible).Copy Worksheets("Tabelle5").Range("A" & Worksheets("Tabelle5").UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1)
 Worksheets(Tabname).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
03.10.2022 08:25:03 Gast90507
NotSolved
Blau Zeilen untereinander kopieren
 03.10.2022 12:26:35 Gast32487
NotSolved
03.10.2022 12:39:49 Gast91965
NotSolved