Nur bestimmte Werte in neues Tabellenblatt kopieren

In der Spalte A stehen die Werte 1 und 2. Es sollen aber nur die Werte 1 samt den Einträgen den Spalten B:E in das Tabellenblatt „Ziel“ kopiert werden.

Quelle:

Excel VBA- Nur bestimmte Werte in neue Tabelle übertragen
Excel VBA- Nur bestimmte Werte in neue Tabelle übertragen

Ziel vor Übertrag:

Excel VBA- Nur bestimmte Werte in neue Tabelle übertragen
Excel VBA- Nur bestimmte Werte in neue Tabelle übertragen

Ziel nach Übertrag:

Excel VBA- Nur bestimmte Werte in neue Tabelle übertragen
Excel VBA- Nur bestimmte Werte in neue Tabelle übertragen

Option Explicit


Sub Übertrag()

 Application.ScreenUpdating = False

' Tabelle: Quelle
' Tabelle Ziel: Ziel
' Kopiert die SoD-Konflikte von Quelle in das Dashboard
'

Const Blatt1 = "Quelle"           ' Source
Const Blatt2 = "Ziel" ' Ziel
Dim I As Integer
Dim iAnz As Integer
Dim letzte As Long

    ' ermittelt die letzte befüllte Zelle
    Worksheets("Ziel").Activate
    letzte = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
    ' ermittelt die letzte befüllte Zelle
    
    ' Markiert und löscht den Bereich
    Worksheets("Ziel").Range("A1:AA" & letzte).Clear

    ' Kopiert die Überschrift
    Worksheets("Quelle").Range("A3:E3").Copy
    Worksheets("Ziel").Activate
    Range("A3").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, _
    Operation:=xlNone, SkipBlanks:=False, Transpose:=False

    Worksheets("Ziel").Range("A4").Activate
   
 Sheets(Blatt1).Activate
 Range("A4").Select
 iAnz = 0
 I = 0

 Do Until I = ActiveSheet.UsedRange.Rows.Count
  If ActiveCell.Value = "1" Then
     Selection.EntireRow.Copy
     Sheets(Blatt2).Activate
     ActiveSheet.Paste
     ActiveCell.Offset(1, 0).Select
     Sheets(Blatt1).Select
     ActiveCell.Offset(1, 0).Select
     iAnz = iAnz + 1
     Else
     ActiveCell.Offset(1, 0).Select
   End If
   I = I + 1
 Loop

  MsgBox "Es wurden " & iAnz & " Sätze übertragen"
 
 Application.CutCopyMode = False
 Application.ScreenUpdating = True

End Sub

2 Antworten auf „Nur bestimmte Werte in neues Tabellenblatt kopieren“

  1. Hallo,sehr übersichtlich gestaltet und gut verständlich, danke dafür. Gibt es eine möglichkeit nur einen bestimmten Bereich der Zelle zu löschen? Ich hätte nämlich schon vorhandene daten mit denen im neuen Blatt weitergerechnet wird nach der aussortiertung.Wie übertrage ich denn nur einen bestimmten Bereich der Reihe? Danke schon mal für die Antwort.MFGPaul

  2. Moin,
    sehr übersichtlich und Funktioniert sehr gut. Habe das Beispiel mal ausprobiert. Problem. Ich habe einen Text in der Spalte und keine Zahl und möchte auch nur den vorhandenen Text übertragen ohne Formatierung der Celle Farbe zB. Gelb als Füllung. Leer Cellen in der Spalte sollen nicht mit übertragen werden.
    Für eine hilfe wäre ich sehr Dankbar

Schreibe einen Kommentar

Deine E-Mail-Adresse wird nicht veröffentlicht. Erforderliche Felder sind mit * markiert