Thema Datum  Von Nutzer Rating
Antwort
Rot Zeilen Kopieren und einfügen
 11.05.2020 10:18:12 Bernd
Solved
11.05.2020 14:32:41 Gast01233
NotSolved

Ansicht des Beitrags:
Von:
Bernd		 Datum:
11.05.2020 10:18:12		 Views:
1187		 Rating:
     
Antwort:
 Nein
Thema:
Zeilen Kopieren und einfügen

Hallo Community,

 

ich sitze gerde vor einer Tabelle, die mich zum verwezifeln bringt. Ich habe eine Eingabemaske auf der ersten Seite. Die Daten werden per Makro in das Tabellenblatt "Zwischenspeicher" kopiert und sollen dann in das Tabellenblatt "Verarbeitung" in die letzte Freie Zeile kopiert werden. Mit dem Makro, das ich im Kopf hatte, funktioniert alles soweit. Naja fast, beim Kopieren der Daten in das Tabellenblatt "Verarbeitung" stockt es dann letzlich. entweder schreibt er mir in meine Kopfzeile oder er überschreibt mir einfach die vorherigen Daten.

Die daten sollen auf dem Tabellenblatt "verarbeitung" ab D3 eingefügt werden. Die Spalten A-C sind nicht zu berücksichtigen. Vor Zeile 3 kommt noch der Kopf und eine Info.

Anbei der verwendete Code. Ich wäre extrem dankbar, wenn jemand die zündende Idee hätte.

 

Danke euchGruß Bernd

?
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
88
89
90
91
92
93
94
95
96
97
98
Sub Übertragung()
'
' Übertragung Makro
'
 
'
    Sheets("Zwischenspeicher").Select
    Range("A2").Select
    Selection.EntireRow.Insert
    Sheets("Eingabemaske").Select
    Selection.Copy
    Sheets("Zwischenspeicher").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Eingabemaske").Select
    Range("C6").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Zwischenspeicher").Select
    Range("A2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Eingabemaske").Select
    Range("C8").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Zwischenspeicher").Select
    Range("B2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Eingabemaske").Select
    Range("C10").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Zwischenspeicher").Select
    Range("C2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Eingabemaske").Select
    Range("C12").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Zwischenspeicher").Select
    Range("D2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Eingabemaske").Select
    Range("C14").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Zwischenspeicher").Select
    Range("E2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Eingabemaske").Select
    Range("C16").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Zwischenspeicher").Select
    Range("F2").Select
     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Eingabemaske").Select
    Range("C18").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Zwischenspeicher").Select
    Range("G2").Select
     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Eingabemaske").Select
    Range("C6").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Selection.ClearContents
    Range("C8").Select
    Selection.ClearContents
    Range("C10").Select
    Selection.ClearContents
    Range("C12").Select
    Selection.ClearContents
    Range("C14").Select
    Selection.ClearContents
    Range("C16").Select
    Selection.ClearContents
    Range("C18").Select
    Selection.ClearContents
    Range("C20").Select
   'Bereich kopieren
Sheets("Zwischenspeicher").Range("A2:G2").Copy
'einfügen in erste freie Zeile in ausgabe
Sheets("Verarbeitung").Cells(Rows.Count, 1).End(xlUp).Offset(rowOffset:=1, columnOffset:=3).PasteSpecial xlPasteValues
'Kopiermodus beenden
Application.CutCopyMode = False
     
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 Zeilen Kopieren und einfügen
 11.05.2020 10:18:12 Bernd
Solved
11.05.2020 14:32:41 Gast01233
NotSolved