Office: (Office 2013) excel wenn in einer zelle etwas steht dann zeile verschieben

Hallo,

folgende SUB müsste dies erledigen. Diese in ein allgemeines Codemodul kopieren. Dann ist sie mittels Tastenkombination Alt+F8 auswählbar und ausführbar Aber auch ein Button im Arbeitsblatt, dem die Makro-SUB zugewiesen wird, ist möglich.

Code:

Sub ZeilenVerschieben()
  Dim wsQ As Worksheet
  Dim rngZeileQ As Range, rngJaSpalteQ As Range
  Dim lngZeileZ As Long
 
  Set wsQ = Worksheets("Tabelle1")
  Set rngJaSpalteQ = wsQ.Columns(8)  'Ja-Spalte = Spalte H
 
  Set wsZ = Worksheets("Tabelle2")
  With wsZ.UsedRange
    lngZeileZ = .Row + .Rows.Count
  End With
 
  For Each rngZeileQ In wsQ.UsedRange.Rows
    If UCase$(Intersect(rngZeileQ, rngJaSpalteQ).Value) = "JA" Then
       rngZeileQ.Copy Destination:=wsZ.Cells(lngZeileZ, 1)
       rngZeileQ.ClearContents
      
       lngZeileZ = lngZeileZ + 1
    End If
 
  Next rngZeileQ
  MsgBox "Verschoben, falls H:H='Ja'"
End Sub

 

Hi,

tut mir leid, dass ich mich jetzt erst melde. Vielen, Vielen Dank für den Code. Er funktioniert wunderbar. Ich suche noch nach einem Workaround die Zellen aus Spalte A nicht mit zu verschieben. Komme aber gerade nicht, dazu mir das näher anzuschauen.

Dir jedenfalls vielen, lieben Dank! Das hilft mir ungemein.

Beste Grüsse,
Fabbo