Thema Datum  Von Nutzer Rating
Antwort
Rot Zeile Kopieren in Excel über Makro
02.02.2024 15:29:22 Harry
NotSolved
02.02.2024 19:23:22 ralf_b
Solved
02.02.2024 19:40:10 Gast26632
NotSolved
02.02.2024 19:25:04 Flatulenz
Solved
02.02.2024 19:36:32 Gast65250
NotSolved

Ansicht des Beitrags:
Von:
Harry
Datum:
02.02.2024 15:29:22
Views:
517
Rating: Antwort:
  Ja
Thema:
Zeile Kopieren in Excel über Makro

Guten Tag, 

ich bin ein kompletter neuling und freue mich auf Hilfe. Ich habe eine Excel Tabelle mit Spalten A-L.

Die Spalte L wird, wenn ein J eingertragen wird, komplett in ein neues Tabellenblatt kopiert.

Funktionier alles super. Ich möchte allerdings gerne zwei Spalten einfügen und somit Spalte N zur

abfragenden Spalte machen. Dafür ändere ich im Makro (siehe unten im Code in ROT -     If wsA.Cells(zeileA, "L") = "j" Then ) die Spalte in N.

Beim Kopieren allerdings kopiert er weiterhin nur die Spalten bis L. Was übersehe ich?

Ich würde mich auf änderung des Codes freuen, so dass die Zeilen bis N (oder weiter) kopiert werden.

Ich finde den Fehler nicht. Danke für Hilfe.

 

Option Explicit

Sub Verschieben()
  Dim copVar As Variant
  Dim letzteZeileA As Long
  Dim letzteZeileE As Long
  Dim wsA As Worksheet  ' Blatt "AKTUELL"
  Dim wsE As Worksheet  ' Blatt "ERLEDIGT"
  Dim zeileA As Long
  Dim zeileE As Long
  
  Set wsA = ThisWorkbook.Worksheets("AKTUELL")
  Set wsE = ThisWorkbook.Worksheets("ERLEDIGT")
  letzteZeileA = wsA.Cells(wsA.Rows.Count, "A").End(xlUp).Row
  letzteZeileE = wsE.Cells(wsE.Rows.Count, "A").End(xlUp).Row
  zeileE = letzteZeileE + 1
  For zeileA = letzteZeileA To 2 Step -1
    If wsA.Cells(zeileA, "L") = "j" Then
      copVar = wsA.Cells(zeileA, "A").Resize(1, 10)
      wsE.Cells(zeileE, "A").Resize(1, 10) = copVar
      wsA.Rows(zeileA).Delete
      zeileE = zeileE + 1
    End If
  Next zeileA
  If zeileE > 2 Then
    With wsE.Sort
      With .SortFields
        .Clear
        .Add Key:=wsE.Range("B2")
        .Add Key:=wsE.Range("C2")
      End With
      .Header = xlYes
      .SetRange Rng:=wsE.UsedRange
      .Apply
    End With
  End If
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 Zeile Kopieren in Excel über Makro
02.02.2024 15:29:22 Harry
NotSolved
02.02.2024 19:23:22 ralf_b
Solved
02.02.2024 19:40:10 Gast26632
NotSolved
02.02.2024 19:25:04 Flatulenz
Solved
02.02.2024 19:36:32 Gast65250
NotSolved