Kommentar einfügen + Zeile kopieren

Sub Zeile_c_v() Dim akt_zeile As Integer ' Aktive Zeile wird copiert und in der nächsten Zeile eingefügt '--- Arbeitsblatt auswählen Sheets("Merkmals-Zuordnung").Select Call Password_aktiv_no akt_zeile = Selection.Row Rows(akt_zeile & ":" & akt_zeile).Select Selection.Copy Rows(akt_zeile + 1 & ":" & akt_zeile + 1).Select Selection.Insert Shift:=xlDown Call Password_aktiv_yes End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Private Sub Zeile_c_v() 'Aktive Zeile wird kopiert und in der nächsten Zeile eingefügt If Selection.Row > 1 Then 'Selection nicht in HeadLine-Area Rows(Selection.Row).Copy Rows(Selection.Row + 1).Insert Shift:=xlDown Application.CutCopyMode = False End If End Sub

Hallo Ralf
Es gibt verschiedene Ansätze nach der Ursache zu suchen, aber das ist ohne die Datei zu sehen schwierig. "Noch diverse Gliederungen..." ist zu grob und wenig aussagefähig.
Ich würde mal versuchen die fehlende,nicht kopierte Formel manuell von der Ursprungs-Zeile in die neue Zeile darunter zu kopieren (über Kopieren/Einfügen). Was passiert denn dann?
Schalte auch zuvor alle Schutzstufen zuerst einmal aus, sprich Blattschutz/Arbeitsmappenschutz und dies am besten manuell und nicht über VBA.
AutoFilter blendet doch nur die Zeilen aus, die nicht dem Filter entsprechen. Ein Kopieren in eine neu eingefügte Zeile sollte doch da funktionieren!?
Wie gesagt, ohne Original-Datei ist da schwer zu helfen.
Gruß Adelhorst.

Hallo Ralf,
also das Problem tritt beim Kopieren einer Zeile dann auf, wenn ein Filter aktiv gesetzt ist und gleichzeitig Spalten über die Gliederung ausgeblendet sind.
Hauptursache ist aber das Filtern.
Excel ist so eingerichtet, dass wenn Filter aktiv gesetzt sind im Kopiermodus nur die Daten und Formate der sichtbaren Zellen kopiert werden.
Das macht auch Sinn, denn meistens möchte man sich ja die gefilterten Daten in eine andere Tabelle oder andere Anwendung kopieren.
Deshalb müssen hier vor dem Kopieren alle Datenangeseigt werden (alle Filter deaktiviert werden) .
Über Ansicht--benutzerdefinierte Ansichten kann man die Filtereinstellungen vor dem Kopieren sichern und danach wieder herstellen.
Das Kopiermakro muss dann wie folgt aussehen, wobei ich die Zeilen zum Kopieren radikal eingekürzt hab.
Gruß
Franz

Sub Zeile_c_v()
Dim akt_zeile As Integer
' Aktive Zeile wird copiert und in der nächsten Zeile eingefügt
Dim bolFiler As Boolean, objFilter As Filter
'--- Arbeitsblatt auswählen
Sheets("Merkmals-Zuordnung").Select
'prüfen, ob filter gesetzt
If ActiveSheet.AutoFilterMode = True Then
For Each objFilter In ActiveSheet.AutoFilter.Filters
If objFilter.On = True Then
'Aktualle Ansicht merken
ActiveWorkbook.CustomViews.Add ViewName:="VorCopy", PrintSettings:=True, _
RowColSettings:=True
ActiveSheet.ShowAllData
bolfilter = True
Exit For
End If
Next
End If
akt_zeile = Selection.Row
Rows(akt_zeile).Copy
Rows(akt_zeile + 1).Insert Shift:=xlDown
Application.CutCopyMode = False
If bolfilter = True Then
'gemerkte Ansicht wieder herherstellen
ActiveWorkbook.CustomViews("VorCopy").Show
'Ansicht im Ansichtenmanager wieder löschen
ActiveWorkbook.CustomViews("VorCopy").Delete
End If
End Sub

Beliebteste Forumthreads (12 Monate)

Kommentar einfügen + Zeile kopieren

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread