Thema Datum  Von Nutzer Rating
Antwort
30.11.2024 19:53:21 Myra
NotSolved
01.12.2024 10:14:48 Gast23250
NotSolved
01.12.2024 10:27:12 Myra
NotSolved
Blau Zeilen auschneiden und in anderer Tabelle einfügen.
 01.12.2024 13:52:34 ralf_b
NotSolved

Ansicht des Beitrags:
Von:
ralf_b		 Datum:
01.12.2024 13:52:34		 Views:
55		 Rating:
     
Antwort:
  Ja
Thema:
Zeilen auschneiden und in anderer Tabelle einfügen.

die Erklärung ist auch nicht viel besser. Ich gehe davon aus das deutsch nicht deine Muttersprache ist. Damit wir das Problem auch lösen, versuche ich den Ablauf zusammenzufassen.

das Makro

 - prüfe in Spalte "AI" ob sich dort der Eintrag "erledigt" befindet  
- wenn ja, kopiere die Zeile in das Blatt "Archiv" in die erste freie Zeile, als Werte
- lösche die kopierten Zeilen im Quellblatt 

Sub ButtonKlick()
  Dim WSh As Worksheet, iZeile As Long, i&
  Dim rng As Range, rngtmp As Range
  
  Set WSh = ThisWorkbook.Sheets("Archiv")
  iZeile = WSh.Cells(WSh.Rows.Count, "A").End(xlUp).Row + 1
  
  Application.EnableEvents = False
  For Each rng In Intersect(ActiveSheet.UsedRange, ActiveSheet.Columns("AI"))
     If rng.Value = "erledigt" Then
       If rngtmp Is Nothing Then
          Set rngtmp = rng.EntireRow
       Else
         Set rngtmp = Union(rngtmp, rng.EntireRow)
       End If
     End If
  Next
  If Not rngtmp Is Nothing Then
    rngtmp.EntireRow.Copy
    WSh.Cells(iZeile, "A").PasteSpecial xlPasteValues
    rngtmp.EntireRow.Delete shift:=xlUp
  End If
  Application.EnableEvents = True
  
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
30.11.2024 19:53:21 Myra
NotSolved
01.12.2024 10:14:48 Gast23250
NotSolved
01.12.2024 10:27:12 Myra
NotSolved
Blau Zeilen auschneiden und in anderer Tabelle einfügen.
 01.12.2024 13:52:34 ralf_b
NotSolved