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:
Ziel vor Übertrag:
Ziel nach Übertrag:
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

ist absolut technik-begeistert und großer Fan von Linux und Open Source. Raspberry Pi Bastler der ersten Stunde und nach wie vor begeistert von dem kleinen Stück Hardware, auf dem er tolle Projekte umsetzt. Teilt hier seine Erfahrungen mit Nextcloud, Pi-hole, YubiKey, Synology und openmediavault und anderen spannenden IT-Themen. Nutzt Markdown und LaTeX zum Dokumentieren seiner Projekte und Gitea zum Versionieren. Sitzt vor einem 49“ Monitor, nutzt Windows und MacOS zum Arbeiten, Linux auf seinen Servern und virtuellen Maschinen und hört dabei Spotify und MP3s und Radio-Streams über seinen RadioPi.
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
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