Thema Datum  Von Nutzer Rating
Antwort
09.11.2017 09:52:50 Chris M.
NotSolved
09.11.2017 10:50:21 Gast40075
NotSolved
09.11.2017 11:07:47 Chris M.
NotSolved
09.11.2017 12:30:47 Gast8117
NotSolved
09.11.2017 13:35:15 Chris M.
NotSolved
09.11.2017 13:52:36 Gast28362
NotSolved
09.11.2017 14:06:34 Chris M.
NotSolved
09.11.2017 21:11:11 Mackie
NotSolved
09.11.2017 21:17:53 Mackie
NotSolved
09.11.2017 21:29:29 Chris M.
NotSolved
09.11.2017 21:33:00 Mackie
NotSolved
09.11.2017 21:41:45 Chris M.
NotSolved
09.11.2017 21:47:24 Mackie
NotSolved
09.11.2017 21:50:03 Chris M.
NotSolved
09.11.2017 21:53:44 Gast52627
NotSolved
09.11.2017 21:54:49 Chris M.
NotSolved
09.11.2017 21:57:20 Gast44905
NotSolved
09.11.2017 22:00:06 Mackie
NotSolved
09.11.2017 22:02:06 Chris M.
NotSolved
10.11.2017 10:32:58 Chris M.
NotSolved
10.11.2017 10:58:46 Chris M.
NotSolved
11.11.2017 00:25:11 Mackie
NotSolved
11.11.2017 12:04:41 Chris M.
NotSolved
11.11.2017 12:26:30 Mackie
NotSolved
11.11.2017 13:04:26 Chris M.
NotSolved
11.11.2017 13:13:08 Chris M.
NotSolved
11.11.2017 15:15:29 Mackie
NotSolved
11.11.2017 16:10:45 Mackie
NotSolved
11.11.2017 15:13:07 Mackie
NotSolved
Blau Zeile Kopieren mit Bedingung, Laufzeitfehler 9
11.11.2017 16:09:42 Mackie
NotSolved
12.11.2017 09:21:31 Chris M.
NotSolved
12.11.2017 12:13:37 Holger
NotSolved
12.11.2017 13:44:19 Mackie
NotSolved
13.11.2017 10:32:52 Chris M.
NotSolved
12.11.2017 13:45:45 Mackie
NotSolved
13.11.2017 14:26:12 Chris M.
NotSolved
13.11.2017 17:35:16 Mackie
NotSolved
13.11.2017 20:54:14 chris m.
NotSolved
13.11.2017 21:03:49 Chris M.
NotSolved
13.11.2017 21:31:16 Mackie
NotSolved
13.11.2017 22:16:38 Chris M.
NotSolved
14.11.2017 07:57:03 Chris M.
NotSolved

Ansicht des Beitrags:
Von:
Mackie		 Datum:
11.11.2017 16:09:42		 Views:
573		 Rating:
     
Antwort:
  Ja
Thema:
Zeile Kopieren mit Bedingung, Laufzeitfehler 9

Jetz aber!!!


 Sub ZieheTeammitglieder()
     Dim Zeile As Long
     Dim ZeileMax As Long
     Dim n As Long
     Application.ScreenUpdating = False

  Workbooks.Open Filename:="O:\WFM\02 Abwesenheiten\08 Actuals\2017\T_Report Stammdaten_2017.xlsm"
    n = 1
For Zeile = 2 To 10000
          Windows("T_Report Stammdaten_2017.xlsm").Activate

          Sheets("MA Daten").Select
          a = Cells(Zeile, 5)
          If a = "T_TL Michel Wittstock" Then
               Rows(Zeile).Copy
               Windows("KPI_Übersicht_3_1_0.xlsm").Activate
               Sheets("Rohdaten Team").Select
               Cells(n, 1).Select
               ActiveSheet.Paste
            n = n + 1
        End If
    Next Zeile
    Windows("KPI_Übersicht_3_1_0.xlsm").Activate
     Application.ScreenUpdating = True
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
09.11.2017 09:52:50 Chris M.
NotSolved
09.11.2017 10:50:21 Gast40075
NotSolved
09.11.2017 11:07:47 Chris M.
NotSolved
09.11.2017 12:30:47 Gast8117
NotSolved
09.11.2017 13:35:15 Chris M.
NotSolved
09.11.2017 13:52:36 Gast28362
NotSolved
09.11.2017 14:06:34 Chris M.
NotSolved
09.11.2017 21:11:11 Mackie
NotSolved
09.11.2017 21:17:53 Mackie
NotSolved
09.11.2017 21:29:29 Chris M.
NotSolved
09.11.2017 21:33:00 Mackie
NotSolved
09.11.2017 21:41:45 Chris M.
NotSolved
09.11.2017 21:47:24 Mackie
NotSolved
09.11.2017 21:50:03 Chris M.
NotSolved
09.11.2017 21:53:44 Gast52627
NotSolved
09.11.2017 21:54:49 Chris M.
NotSolved
09.11.2017 21:57:20 Gast44905
NotSolved
09.11.2017 22:00:06 Mackie
NotSolved
09.11.2017 22:02:06 Chris M.
NotSolved
10.11.2017 10:32:58 Chris M.
NotSolved
10.11.2017 10:58:46 Chris M.
NotSolved
11.11.2017 00:25:11 Mackie
NotSolved
11.11.2017 12:04:41 Chris M.
NotSolved
11.11.2017 12:26:30 Mackie
NotSolved
11.11.2017 13:04:26 Chris M.
NotSolved
11.11.2017 13:13:08 Chris M.
NotSolved
11.11.2017 15:15:29 Mackie
NotSolved
11.11.2017 16:10:45 Mackie
NotSolved
11.11.2017 15:13:07 Mackie
NotSolved
Blau Zeile Kopieren mit Bedingung, Laufzeitfehler 9
11.11.2017 16:09:42 Mackie
NotSolved
12.11.2017 09:21:31 Chris M.
NotSolved
12.11.2017 12:13:37 Holger
NotSolved
12.11.2017 13:44:19 Mackie
NotSolved
13.11.2017 10:32:52 Chris M.
NotSolved
12.11.2017 13:45:45 Mackie
NotSolved
13.11.2017 14:26:12 Chris M.
NotSolved
13.11.2017 17:35:16 Mackie
NotSolved
13.11.2017 20:54:14 chris m.
NotSolved
13.11.2017 21:03:49 Chris M.
NotSolved
13.11.2017 21:31:16 Mackie
NotSolved
13.11.2017 22:16:38 Chris M.
NotSolved
14.11.2017 07:57:03 Chris M.
NotSolved