kopieren und danach löschen

Rene · 2017-12-02T01:42:10+00:00

Hallo Excelforum, die Forumsarchivsuche brachte keinen Treffer.Vor kurzen war so eine ähnliche Frage aber da war ich noch nicht an diesem Punkt , es näher zu betrachten. Aus Platzgründen würde ich gerne immer in der 2.Zeile des Blattes " Eingabe" die Daten eingeben. Die Zeile geht von A2 bis CR2 und ist vollständig wenn in CD2 ein Wert eingetragen wurde. Kopiert werden soll die Zeile in ein anderes Blatt in A2 und wenn wieder im Blatt " Eingabe" die Zeile vollständig ist soll es in A3 geschrieben werden usw. Vielen Dank für Eure Hilfe LG Rene

Hallo Rene,


Sub Eingabe_Kopieren()
Dim shEin As Worksheet
Dim shUeb As Worksheet
Dim ARR                 'Array zum kopieren
Dim NoOfCol             'Spaltenzahl zum kopieren
Dim ControlCol          'Kontrollspalte
Dim LastRow             'Letzte Zeile in Übersicht
Set shEin = Sheets(1)   'Eingabe
Set shUeb = Sheets(2)   'Übersicht
NoOfCol = 96            '96 = CR2
ControlCol = 82         '82 = CD2
If shEin.Cells(2, ControlCol)  "" Then
'Bedingung zum kopieren: CD2 (82) ist nicht leer
ARR = shEin.Range(shEin.Cells(2, 1), shEin.Cells(2, NoOfCol))
'Kopiere bis CR2 (96)
LastRow = shUeb.Cells(shUeb.Rows.Count, "A").End(xlUp).Row
'Suche letzte Zeile in Übersicht
shUeb.Range(shUeb.Cells(LastRow + 1, 1), shUeb.Cells(LastRow + 1, NoOfCol)) = ARR
'Füge Daten ein
shEin.Range(shEin.Cells(2, 1), shEin.Cells(2, NoOfCol)).Clear
'Lösche Eingabefelder
Else
MsgBox "Kontrollfeld ist nicht ausgefüllt!"
End If
End Sub

Dieser Text kommt am besten in ein neues VBA-Modul.
Du musst nur noch den Aufruf definieren, z.B. erstelle einen Button und weise das Makro zu.
Das kopieren mit Hilfe des Array "ARR" ist das gleiche als wenn du "Kopieren und Werte einfügen" benutzt. Formate, Formeln, etc. werden ignoriert.
Gruß, Rainer

Hallo Rene,
hab jetzt mal ein Makro geschrieben, so wie ich das verstanden habe.
Makro gehört ins CodeModul vom Blatt "Eingabe"
Rechtsklick auf den Blattreiter - Code anzeigen - Code rechts ins Codefenster kopieren

Private Sub Worksheet_Change(ByVal Target As Range)
Dim loLetzte As Long
Application.ScreenUpdating = False
If Target.Address(0, 0) = "CD2" Then
If Target  "" Then
If Application.WorksheetFunction.CountBlank(Range("A2:CG2")) = 0 Then
Rows(Target.Row).Copy
With Worksheets("Sammelfeld der Eingaben")
loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
.Cells(loLetzte, 1).PasteSpecial Paste:=xlValues
End With
Application.CutCopyMode = False
Range(Cells(2, 1), Cells(2, 85)).ClearContents
Else
MsgBox "Es sind nicht alle Felder ausgefüllt."
End If
End If
End If
Application.ScreenUpdating = True
End Sub

Code startet bei Eintrag in Zelle CD2
Es wird geprüft, ob alle Felder befüllt sind.
Gruß Werner

Forumthread: kopieren und danach löschen

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Infobox / Tutorial

Zeile kopieren und anschließend löschen in Excel

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)