Thema Datum  Von Nutzer Rating
Antwort
Rot Zeilen kopieren wenn Bedingung erfüllt ist
27.03.2019 08:10:25 Peter
NotSolved
27.03.2019 08:44:09 Gast80875
NotSolved
27.03.2019 10:02:18 Peter
NotSolved
27.03.2019 10:06:57 Peter
NotSolved
28.03.2019 07:37:48 Peter
NotSolved
28.03.2019 08:15:25 Flotter Feger
NotSolved
28.03.2019 08:39:16 Peter
NotSolved
29.03.2019 07:22:48 Peter
NotSolved
29.03.2019 12:20:27 Gast 80875
NotSolved

Ansicht des Beitrags:
Von:
Peter
Datum:
27.03.2019 08:10:25
Views:
1471
Rating: Antwort:
  Ja
Thema:
Zeilen kopieren wenn Bedingung erfüllt ist
Hallo zusammen, Ich bin nahe beim verzweifeln. Im netz habe ich dieses Script gefunden das ich brauche um Daten in ein neues Excel-File zu kopieren wenn eine Bedingung erfüllt ist. Ein Probleme habe ich damit und komme nicht darauf woran das liegt. Wenn ich ab der 5 Zeile die Daten kopieren will die, die Kriterien erfüllt haben, werden nur 2 Zeilen kopiert. Sub BedingteKopieZeilen() Dim Zeile As Long Dim ZeileMax As Long Dim n As Long With Tabelle1 ZeileMax = .UsedRange.Rows.Count n = 5 For Zeile = 1 To ZeileMax If .Cells(Zeile, 33).Value = "Ja" Then .Rows(Zeile).Copy Destination:=Tabelle2.Rows(n) n = n + 1 End If Next Zeile End With End Sub Was mache ich falsch? Ich komme wirklich nicht drauf, wo der Fehler liegt.

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 Zeilen kopieren wenn Bedingung erfüllt ist
27.03.2019 08:10:25 Peter
NotSolved
27.03.2019 08:44:09 Gast80875
NotSolved
27.03.2019 10:02:18 Peter
NotSolved
27.03.2019 10:06:57 Peter
NotSolved
28.03.2019 07:37:48 Peter
NotSolved
28.03.2019 08:15:25 Flotter Feger
NotSolved
28.03.2019 08:39:16 Peter
NotSolved
29.03.2019 07:22:48 Peter
NotSolved
29.03.2019 12:20:27 Gast 80875
NotSolved