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
Blau Zeile Kopieren mit Bedingung, Laufzeitfehler 9
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:
Gast8117		 Datum:
09.11.2017 12:30:47		 Views:
626		 Rating:
     
Antwort:
  Ja
Thema:
Zeile Kopieren mit Bedingung, Laufzeitfehler 9

Versuch es einmal so:

Option Explicit

Sub ZieheTeammitglieder()
    On Error GoTo cleanUp
    Dim wkbMain As Workbook, wkbDaten As Workbook
    
    Set wkbMain = ThisWorkbook
    Set wkbDaten = Application.Workbooks.Open(Filename:="O:\WFM\02 Abwesenheiten\08 Actuals\2017\T_Report Stammdaten_2017.xlsm")
    
    Dim Zeile As Long
    Dim ZeileMax As Long
    Dim n As Long
    Dim v As Variant
     
    v = Application.ScreenUpdating
    Application.ScreenUpdating = False
     
    With wkbMain.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:=wkbMain.Worksheets("Rohdaten Team").Rows(n)
                n = n + 1
            End If
        Next Zeile
    End With
    
    Application.ScreenUpdating = v
    On Error GoTo 0
    
cleanUp:
    If Err.Number <> 0 Then
        MsgBox "Es ist leider ein Fehler aufgetreten." & vbCrLf & _
            "Fehlernummer: " & Err.Number & vbCrLf & _
            "Fehlerbeschreibung: " & Err.Description, vbExclamation
    End If
    
    'Objektreferenzen leeren
    If Not wkbMain Is Nothing Then Set wkbMain = Nothing
    If Not wkbDaten Is Nothing Then Set wkbDaten = Nothing
End Sub

Viele Grüße

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
Blau Zeile Kopieren mit Bedingung, Laufzeitfehler 9
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