Thema Datum  Von Nutzer Rating
Antwort
12.02.2017 20:53:01 Andreas
NotSolved
13.02.2017 01:57:10 Mackie
NotSolved
13.02.2017 09:45:03 Andreas
NotSolved
13.02.2017 11:37:24 Mackie
NotSolved
Rot Makro erweitern auf alle Tabellenblätter
 13.02.2017 11:32:39 Mackie
NotSolved
13.02.2017 12:40:22 Werner
NotSolved
13.02.2017 13:12:30 Gast15367
NotSolved

Ansicht des Beitrags:
Von:
Mackie		 Datum:
13.02.2017 11:32:39		 Views:
652		 Rating:
     
Antwort:
  Ja
Thema:
Makro erweitern auf alle Tabellenblätter		 
Sub BedingteKopieZeilen()

Dim ar(), i, n
Dim Zeile As Long
Dim ZeileMax As Long
ar = Array("Tabelle1", "Tabelle2", "Tabelle3")' Hier DEINE Blattnamen eingeben
For i = 0 To UBound(ar())
     With Sheets(ar(i))
          ZeileMax = .UsedRange.Rows.Count
          n = 8
          For Zeile = 2 To ZeileMax
               If .Cells(Zeile, 1).Value = "1" Then
                    .Rows(Zeile).Copy Destination:=Tabelle4.Rows(n)
                    n = n + 1
               End If
          Next Zeile
     End With
Next i
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
12.02.2017 20:53:01 Andreas
NotSolved
13.02.2017 01:57:10 Mackie
NotSolved
13.02.2017 09:45:03 Andreas
NotSolved
13.02.2017 11:37:24 Mackie
NotSolved
Rot Makro erweitern auf alle Tabellenblätter
 13.02.2017 11:32:39 Mackie
NotSolved
13.02.2017 12:40:22 Werner
NotSolved
13.02.2017 13:12:30 Gast15367
NotSolved