Thema Datum  Von Nutzer Rating
Antwort
Rot Zeile Kopieren mit Bedingung, Laufzeitfehler 9
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
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:
Chris M.		 Datum:
09.11.2017 09:52:50		 Views:
1036		 Rating:
     
Antwort:
  Ja
Thema:
Zeile Kopieren mit Bedingung, Laufzeitfehler 9

Hallo liebe VBA-Gemeinde,

 

ich bekomme immer den Laufzeitfehler 9 und finde den Fehler nicht. Vielleicht kann mir jemand von Euch helfen.

 

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"
Workbooks("T_Report Stammdaten_2017.xlsm").Activate
Worksheets("MA Daten").Activate

With Worksheets("MA Daten")
ZeileMax = .UsedRange.Rows.Count
n = 1
    For Zeile = 2 To ZeileMax
        If .Cells(Zeile, 5).Value = "T_TL XXX XXX" Then

        .Rows(Zeile).Copy Destination:=Workbooks("H:\XXX\Projekte\KPI-Übersicht\KPI_Übersicht_3_1_0.xlsm").Worksheets("Rohdaten Team").Rows(n)
        n = n + 1
        End If
    Next Zeile
End With
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
Rot Zeile Kopieren mit Bedingung, Laufzeitfehler 9
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
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