Thema Datum  Von Nutzer Rating
Antwort
18.11.2021 14:00:04 Markus
NotSolved
18.11.2021 14:18:56 Markus
NotSolved
Rot Makro mit Filterung (evtl einfach) und Kopieren
18.11.2021 21:52:36 ralf_b
Solved
19.11.2021 07:00:23 Gast41097
NotSolved

Ansicht des Beitrags:
Von:
ralf_b
Datum:
18.11.2021 21:52:36
Views:
438
Rating: Antwort:
 Nein
Thema:
Makro mit Filterung (evtl einfach) und Kopieren
Sub test()
   Dim var
   
   var = Sheets("Startseite").Range("A3").Value
   With Sheets("Alles")
     .Range("$A$2:$G$2").AutoFilter Field:=6, Criteria1:=var
     .AutoFilter.Range.SpecialCells(xlCellTypeVisible).Copy Sheets("Startseite").Range("A5")
   End With
   Sheets("Startseite").Columns("A:G").EntireColumn.EntireColumn.AutoFit
  
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
18.11.2021 14:00:04 Markus
NotSolved
18.11.2021 14:18:56 Markus
NotSolved
Rot Makro mit Filterung (evtl einfach) und Kopieren
18.11.2021 21:52:36 ralf_b
Solved
19.11.2021 07:00:23 Gast41097
NotSolved