Thema Datum  Von Nutzer Rating
Antwort
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
Blau Einfügen einer Zeile in ein anderes Workbook
 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:
volti		 Datum:
16.11.2020 14:04:23		 Views:
994		 Rating:
     
Antwort:
 Nein
Thema:
Einfügen einer Zeile in ein anderes Workbook

Hallo,

bei mir geht es (allerdings auch Win10). 

Falls Du nur Werte kopieren möchtest, kannst Du das auch ohne Select und Kopie machen. Und Du könntest Deinen Code deutlich verkleinern.

 

Zum Einfügen gibt es auc mindestens zwei Varianten, s. Code.

 

Probiere es halt mal aus.

?
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
Option Explicit
 
Sub Bestellen()
'
' Bestellen Makro
'
 Dim Marke As String
 Dim WSh As Worksheet, WKb As Workbook
  
 With ThisWorkbook.Sheets("Bestellformular")
 
'Ü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
  
   Marke = .Range("E5").Value
  
'In passendes Tab einfügen
  
   If InStr("Finn Comfort,New Balance,FootJoy,Meindl", Marke) > 0 Then
   
'Zieldatei öffnen
      Set WKb = Workbooks.Open("I:\Domenic Stamm\Bestellung\Bestellformular.xlsm")
      Set WSh = WKb.Worksheets(Marke)
'      WSh.Rows("2:2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
      WSh.Range("A2").EntireRow.Insert
      WSh.Range("A2").Resize(1, 9).Value = .Range("C5:K5").Value
      WKb.Close SaveChanges:=True
      .Range("C5:K5").ClearContents         'Nur löschen bei gültger Marke
    End If
  
 End With
  
End Sub

viele Grüße

Karl-Heinz

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
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
Blau Einfügen einer Zeile in ein anderes Workbook
 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