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
Seit Anfang des Jahrtausends absolut linux-begeistert und Fan von 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 und zu anderen spannenden IT-Themen. Nutzt
beruflich viel Excel. Sitzt vor einem riesen 49″ Monitor, nutzt Windows zum Arbeiten, Linux auf seinen Servern und virtuellen Maschinen und hört dabei Spotify und Musik über seinen RadioPi.
Trinkt gerne fairen Kaffee und freut sich deshalb sehr über eine Kaffeespende. 😎
(**) Produktpreise und -verfügbarkeit sind zum angegebenen Datum / Uhrzeit korrekt und können sich ändern. Alle Preis- und Verfügbarkeitsinformationen auf https://www.amazon.de/ zum Zeitpunkt des Kaufs gelten für den Kauf dieses Produkts.
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