Thema Datum  Von Nutzer Rating
Antwort
31.03.2021 15:19:47 Franzi
NotSolved
31.03.2021 19:51:36 ralf_b
NotSolved
Rot Zeilen kopieren und in Tabelle einfügen
 01.04.2021 11:39:10 Nobody
NotSolved

Ansicht des Beitrags:
Von:
Nobody		 Datum:
01.04.2021 11:39:10		 Views:
764		 Rating:
     
Antwort:
  Ja
Thema:
Zeilen kopieren und in Tabelle einfügen

Hallo

für genau diese Aufgabe fand ich mal ein Makro im Internet. Vielleicht kannst du es verwenden?? Den namen der Quelltabelle musst du evtl. aendern!  Siehe ** im Code!

mfg Nobody

Sub Erledigte_Aktualisieren()
Dim TB2 As Worksheet, Zelle
Set TB2 = Worksheets("Tabelle2")
    'LastZell in Tabelle2 suchen +1
    lngZeile = TB2.Cells(Rows.Count, 1).End(xlUp).Row + 1
         
     With Worksheets("Tabelle1")     '** hier den Namen der Quell Tabelle angeben!!
        Application.ScreenUpdating = False
        lngA = .Cells(Rows.Count, "E").End(xlUp).Row

        '1.Schleife um Daten in "Erledigt" zu kopieren
        For Each Zelle In .Range("E2:E" & lngA)
            If Zelle.Value = "Nein" Then
               Zelle.EntireRow.Copy Destination:=TB2.Rows(lngZeile)
               Zelle.EntireRow.ClearContents
               lngZeile = lngZeile + 1:  n = n + 1
             End If
         Next Zelle
     
        '2.Schleife um Leerzeilen Rückwaerts zu löschem
        For j = lngA To 2 Step -1
            If .Cells(j, 1).Value = Empty Then
               .Rows(j).Delete shift:=xlUp
            End If
     End With

     If n = 0 Then MsgBox "Ke?ne Daten gefunden"
     If n > 0 Then MsgBox n & " Daten kopiert"
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
31.03.2021 15:19:47 Franzi
NotSolved
31.03.2021 19:51:36 ralf_b
NotSolved
Rot Zeilen kopieren und in Tabelle einfügen
 01.04.2021 11:39:10 Nobody
NotSolved