Thema Datum  Von Nutzer Rating
Antwort
Rot Einfügen einer Zeile in ein anderes Workbook
 16.11.2020 13:20:55 staeme
NotSolved
16.11.2020 13:26:51 Gast96319
NotSolved
16.11.2020 15:30:25 Gast77581
NotSolved
16.11.2020 16:35:26 Gast26779
NotSolved
16.11.2020 15:43:36 Gast75662
NotSolved
16.11.2020 14:04:23 volti
Solved
16.11.2020 15:41:33 staeme
NotSolved
17.11.2020 10:35:14 staeme
NotSolved
17.11.2020 11:23:05 volti
NotSolved
17.11.2020 11:59:43 staeme
NotSolved
17.11.2020 12:17:14 volti
NotSolved

Ansicht des Beitrags:
Von:
staeme		 Datum:
16.11.2020 13:20:55		 Views:
1824		 Rating:
     
Antwort:
  Ja
Thema:
Einfügen einer Zeile in ein anderes Workbook

Guten Tag zusammen

Ich habe eine Excel-Datei in welcher ich Bestellungen eintrage und diese dann per Knopfdruck kopiere und in ein anderes Excel-file einfügen möchte. Die neue Bestellung soll dabei immer in die 2. Zeile geschrieben werden. Dazu muss eine neue Zeile eingefügt werde. Solange sich die erste Excel-Datei auf einem Windows 10 System befindet, funktioniert alles einwandfrei, auf einem PC mit Windows 7 klappts jedoch nicht. Das VBA-Skript hängt sich auf und meistens bringt es Excel zum Abstürzen. Wenn Excel nicht abstürzt kommt folgende Fehlermeldung:

 

Der Debugger markiert mir immer folgende Zeile:

Rows("2:2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

Ich kann damit aber nichts anfangen, da diese Codezeile sonst immer funktioniert hat. Auch auf Windows 7 Rechnern!

Meine Frage ist nun, wie ich das Skript anpassen kann, damit es auch unter Windows 7 läuft.

Besten Dank für die Hilfe schon Mal im Voraus ;-)

 

Hier ist der Code:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
Sub Bestellen()
'
' Bestellen Makro
'
Dim Marke As String
 
 
Sheets("Bestellformular").Select
 
Marke = Range("E5").Value
 
'Überprüfen ob Zellen ausgefüllt sind
 
If IsEmpty(Range("C5")) Then
    MsgBox ("Bitte Anzahl einfügen!")
    Exit Sub
ElseIf IsEmpty(Range("D5")) Then
    MsgBox ("Bitte Einheit einfügen!")
    Exit Sub
ElseIf IsEmpty(Range("E5")) Then
    MsgBox ("Bitte Marke einfügen!")
    Exit Sub
ElseIf IsEmpty(Range("F5")) Then
    MsgBox ("Bitte Model einfügen!")
    Exit Sub
ElseIf IsEmpty(Range("I5")) Then
    MsgBox ("Bitte Visum einfügen!")
    Exit Sub
ElseIf IsEmpty(Range("K5")) Then
    MsgBox ("Bitte Standort einfügen!")
    Exit Sub
End If
 
 
'In passendes Tab einfügen
 
If Marke = "Finn Comfort" Then
 
    Range("C5:K5").Select
    Selection.Copy
    Workbooks.Open "I:\Domenic Stamm\Bestellung\Bestellformular.xlsm"
    Workbooks("Bestellformular.xlsm").Worksheets("New Balance").Select
    Rows("2:2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("A2:I2").Select
    ActiveSheet.Paste
    Workbooks("Bestellformular.xlsm").Close SaveChanges:=True
 
ElseIf Marke = "New Balance" Then
 
    Range("C5:K5").Select
    Selection.Copy
    Workbooks.Open "I:\Domenic Stamm\Bestellung\Bestellformular.xlsm"
    Workbooks("Bestellformular.xlsm").Worksheets("New Balance").Select
    Rows("2:2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("A2:I2").Select
    ActiveSheet.Paste
    Workbooks("Bestellformular.xlsm").Close SaveChanges:=True
 
ElseIf Marke = "FootJoy" Then
 
    Range("C5:K5").Select
    Selection.Copy
    Workbooks.Open "I:\Domenic Stamm\Bestellung\Bestellformular.xlsm"
    Workbooks("Bestellformular.xlsm").Worksheets("FootJoy").Select
    Rows("2:2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("A2:I2").Select
    ActiveSheet.Paste
    Workbooks("Bestellformular.xlsm").Close SaveChanges:=True
 
ElseIf Marke = "Meindl" Then
 
    Range("C5:K5").Select
    Selection.Copy
    Workbooks.Open "I:\Domenic Stamm\Bestellung\Bestellformular.xlsm"
    Workbooks("Bestellformular.xlsm").Worksheets("Meindl").Select
    Rows("2:2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("A2:I2").Select
    ActiveSheet.Paste
    Workbooks("Bestellformular.xlsm").Close SaveChanges:=True
 
End If
Sheets("Bestellformular").Select
Range("C5:K5").Select
Selection.ClearContents
 
 
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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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 Einfügen einer Zeile in ein anderes Workbook
 16.11.2020 13:20:55 staeme
NotSolved
16.11.2020 13:26:51 Gast96319
NotSolved
16.11.2020 15:30:25 Gast77581
NotSolved
16.11.2020 16:35:26 Gast26779
NotSolved
16.11.2020 15:43:36 Gast75662
NotSolved
16.11.2020 14:04:23 volti
Solved
16.11.2020 15:41:33 staeme
NotSolved
17.11.2020 10:35:14 staeme
NotSolved
17.11.2020 11:23:05 volti
NotSolved
17.11.2020 11:59:43 staeme
NotSolved
17.11.2020 12:17:14 volti
NotSolved