Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1216to1220
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

On Error Resume Next

On Error Resume Next
Markus
Hallo zusammen,
kann mir jemand sagen, warum das Makro unter Excel 2007 nicht läuft?
im 2003 lief es tadellos!
Danke. Gruß Markus
Sub Vorgaben_Import1()
On Error Resume Next
Dim strPfad As String
Workbooks.Open Filename:=strPfad & Environ("UserProfile") & "\Desktop\" & "Vorgaben"
MsgBox "1"
If Err = 0 Then
MsgBox "2"
ThisWorkbook.Worksheets("Vorgaben").Range("B10:N105").Value = Workbooks("Vorgaben").Worksheets(" _
Vorgaben").Range("A4:M99").Value
ThisWorkbook.Worksheets("Vorgaben").Range("P10:AD105").Value = Workbooks("Vorgaben").Worksheets( _
"Vorgaben").Range("O4:AC99").Value
ThisWorkbook.Worksheets("Vorgaben").Range("C107:D207").Value = Workbooks("Vorgaben").Worksheets( _
"Vorgaben").Range("B101:C202").Value
ThisWorkbook.Worksheets("Master").Range("A2:E100").Value = Workbooks("Vorgaben").Worksheets(" _
Master").Range("A2:E100").Value
MsgBox " Die Daten wurden kopiert! " _
& Chr(13) & Chr(13) & " Sie können die Vorgaben-Datei auf dem Desktop löschen."
Range("B10").Select
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
MsgBox "4"
Beenden
End If
MsgBox "5"
MsgBox " Die Datei -Vorgaben- ist nicht vorhanden! " _
& Chr(13) & Chr(13) & " Bitte die Datei zuerst über den Button Vorgaben exportiern " _
& Chr(13) & " (aus dem vorigen Jahr) erstellen und bearbeiten, " _
& Chr(13) & " und den Vorgang wiederholen! "
On Error GoTo 0
End Sub

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: On Error Resume Next
03.06.2011 15:00:26
Matthias
Hallo Markus,
kommentiere erst mal "On Error Resume Next" aus (Hochkomma davor) und schau, welcher Fehler auftritt.
Gruß Matthias
AW: On Error Resume Next
03.06.2011 15:29:50
Markus
Hallo,
es tritt kein Fehler auf, die Datei wird geöffnet und die Werte übernommen!
Gruß Markus
AW: On Error Resume Next
03.06.2011 15:38:24
Matthias
Hallo Markus,
soll das ein Ratespiel sein?
Es tritt kein Fehler auf, die Werte werden übernommen...
Vielleicht verrätst Du noch, was nicht funktioniert?
Gruß Matthias
AW: On Error Resume Next
03.06.2011 16:43:46
Sonnenpeter
Dumme Frage.........
Workbooks.Open Filename:=strPfad & Environ("UserProfile") & "\Desktop\" & "Vorgaben"
Wo oder wie übergibst Du "strPfad" ?
Gruß SP
Anzeige

280 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige