Office: (Office 2013) Bestimmte Zeilen Ausschneiden und in anderes Tabellenblatt einfügen

Helfe beim Thema Bestimmte Zeilen Ausschneiden und in anderes Tabellenblatt einfügen in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo, ich habe folgendes Problem: Mein Makro soll alle (kompletten) Zeilen von Tabelle 1 in Tabelle 2 verschieben, bei denen in der Spalte 1 der... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von Lucas112, 23. Mai 2017.

  1. Lucas112 Neuer User

    Bestimmte Zeilen Ausschneiden und in anderes Tabellenblatt einfügen


    Hallo, ich habe folgendes Problem:

    Mein Makro soll alle (kompletten) Zeilen von Tabelle 1 in Tabelle 2 verschieben, bei denen in der Spalte 1 der Wert größer als 4999 ist.
    Habe mir ein Makro zusammengebastelt, leider übernimmt es nicht alle Reihen.
    Außerdem möchte ich den Bereich definieren, in dem die ausgeschnittenen Reihen eingefügt werden. (also nicht bei A1 anfangen, sondern bei C3 und ab da dann abwärts)

    PHP:
    Option Explicit

    Public Sub ZeilenFilternUndVerschieben()
    Dim loLetzte As Long
    Dim loLetzteTab3 
    As Long
    Dim loAnzahl 
    As Long
    Dim loCounter 
    As Long

    loAnzahl 
    0

        With ThisWorkbook
    .Worksheets("Tabelle1")
           
    loLetzteTab3 = .UsedRange.Rows.Count 1
        End With
        
        With Me
           loLetzte 
    = .UsedRange.Rows.Count 1
            
    For loCounter 1 To loLetzte
                
    If .Cells(loCounter1).Value 4999 Then
                    loAnzahl 
    loAnzahl 1
                End 
    If
            
    Next loCounter
            
    For loCounter loLetzte To 1 Step -1
                
    If .Cells(loCounter1).Value 4999 Then
                    
    .Rows(loCounter).EntireRow.Cut Destination:=ThisWorkbook.Worksheets("Tabelle2").Rows(loLetzteTab3)
                    .
    Rows(loCounter).EntireRow.Delete shift:=xlUp
                    loAnzahl 
    loAnzahl 1
                End 
    If
            
    Next loCounter
        End With
        
    End Sub
    Ich hoffe jemand kann mir helfen
     
    Lucas112, 23. Mai 2017
    #1
  2. Hallo,

    versuche es mal so. Hier werden die Daten erst in ein Array gezogen und mit einer For-Schleife durchlaufen. Trifft die Bedingung zu, werden die entsprechenden Daten in ein neues Array geschrieben. Dieses Array wird dann am Stück ab Zelle C3 eingefügt.

    Ungetestet:
    Code:
    Option Explicit
    
    Public Sub ZeilenFilternUndVerschieben()
        Dim loLetzteTab3 As Long
        Dim loCounter As Long
        Dim arrTab3
        Dim arrNeu()
        Dim i As Long
        
        With ThisWorkbook.Worksheets("Tabelle1")
            loLetzteTab3 = .Cells(Rows.Count, 1).End(xlUp).Row + 1
            arrTab3 = .Range("A1:A" & loLetzteTab3)
        End With
        
        With Me
            For loCounter = LBound(arrTab3) To UBound(arrTab3)
                If arrTab3(loCounter, 1) > 4999 Then
                    ReDim Preserve arrNeu(i)
                    arrNeu(i) = arrTab3(loCounter)
                    i = i + 1
                End If
            Next loCounter
            
            .Range("C3:C" & UBound(arrNeu) + 1) = arrNeu
        End With
    End Sub
     
    Jonas0806, 2. Juni 2017
    #2
Thema:

Bestimmte Zeilen Ausschneiden und in anderes Tabellenblatt einfügen

Die Seite wird geladen...
  1. Bestimmte Zeilen Ausschneiden und in anderes Tabellenblatt einfügen - Similar Threads - Bestimmte Zeilen Ausschneiden

  2. Bestimmte Inhalte aus sämtlichen Textdateien im Verzeichnis in Excel Tabelle / Zeilen und zuordnen

    in Microsoft Excel Hilfe
    Bestimmte Inhalte aus sämtlichen Textdateien im Verzeichnis in Excel Tabelle / Zeilen und zuordnen: Hallo liebes Forum, ich bin neu hier und hoffe, dass Sie mir vielleicht helfen können: Ich habe ein Verzeichnis mit *.txt Dateien mit bestimmten (z.T. variablen Inhalten). Diese Textdateien...
  3. Zeile kopieren um einen bestimmten Wert

    in Microsoft Excel Hilfe
    Zeile kopieren um einen bestimmten Wert: Hallo, kann mir jemand weiterhelfen? Ich möchte eine Zelle mittels "ziehen" automatisch kopieren und dabei immer um einen bestimmten Wert erhöhen. (siehe Screenshot) kann mir hier jemand...
  4. Zeilen ausblenden bei bestimmten Wert

    in Microsoft Excel Hilfe
    Zeilen ausblenden bei bestimmten Wert: Hallo, über VBA lasse ich Zeilen ausblenden, wenn in einer Zelle ein bestimmter Wert steht. In meinem Fall Ausblenden bei <60000. Prinzipiell funktioniert der verwendete Code: Private Sub...
  5. Zeilen mit bestimmten Inhalten löschen lassen

    in Microsoft Excel Hilfe
    Zeilen mit bestimmten Inhalten löschen lassen: Hallo, gibt es eine Möglichkeit ganze Zeilen die in einer bestimmten Zelle einen bestimmten Eintrag haben automatisch löschen zu lassen? Manuell über Autofilter und dann die Zeilen löschen finde...
  6. Zeile suchen, ausschneiden und an bestimmter Stelle einfügen?

    in Microsoft Excel Hilfe
    Zeile suchen, ausschneiden und an bestimmter Stelle einfügen?: Hallo Leute, ich versuche folgendes Problem mittels VBA zu lösen: Die Spalte A der Tabelle Nachweis soll nach dem Wort Test durchsucht werden. Anschließend soll die gefundene Zeile ausgeschnitten...
  7. Makro, welches bestimmte Anzahl von Zeilen in einer Spalte ausschneidet

    in Microsoft Excel Hilfe
    Makro, welches bestimmte Anzahl von Zeilen in einer Spalte ausschneidet: Hallo zusammen, ich bin ganz neu im Bereich der Makros in Excel, deshalb habe ich wirklich noch überhaupt keine Ahnung. Habe mir schon einige Themen durchgelesen, aber nichts hat mir...
  8. Zeilen mit bestimmten Merkmal ausschneiden,einfügen &lös

    in Microsoft Excel Hilfe
    Zeilen mit bestimmten Merkmal ausschneiden,einfügen &lös: Hi! Ich hoffe Ihr könnt mir helfen! Folgendes Problem: Ich möchte in einer Tabelle allle Zeilen, die zwei bestimmte, unterschiedliche Merkmale (in den Spalten Z & AH) haben, ausschneiden...
Schlagworte:
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden