HERBERS Excel-Forum - die Beispiele

Thema: Werte prüfen und kopieren

Home

Gruppe

Allgemein

Problem

Ist eine Artikelnummer in Spalte A noch nicht vorhanden, soll die nächsthöhere Zahl als Artikelnummer eingesetzt und der Wertebereich der Zeile in das Blatt "Ziel" kopiert werden.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain

Sub MatchCopy()
   Dim var As Variant
   Dim lRowL As Integer, lRow As Integer, lRowD, lRowS As Long
   Dim bln As Boolean
   lRowL = Cells(Rows.Count, 2).End(xlUp).Row
   For lRow = 1 To lRowL
      bln = False
      If Not IsEmpty(Cells(lRow, 1)) Then
         var = Application.Match(Cells(lRow, 1), _
            Worksheets("Ziel").Columns("A"), 0)
      Else
         Cells(lRow, 1).Value = WorksheetFunction.Max(Columns(1)) + 1
         bln = True
      End If
      If IsError(var) Or bln = True Then
         With Worksheets("Ziel")
            If IsEmpty(.Cells(1, 1)) Then
               lRowS = 1
            Else
               lRowS = .Cells(Rows.Count, 1).End(xlUp).Row + 1
            End If
            .Range(.Cells(lRowS, 1), .Cells(lRowS, 4)).Value = _
               Range(Cells(lRow, 1), Cells(lRow, 4)).Value
         End With
      Else
         With Worksheets("Vorhanden")
            If IsEmpty(.Cells(1, 1)) Then
               lRowD = 1
            Else
               lRowD = .Cells(Rows.Count, 1).End(xlUp).Row + 1
            End If
            .Range(.Cells(lRowD, 1), .Cells(lRowD, 4)).Value = _
               Range(Cells(lRow, 1), Cells(lRow, 4)).Value
         End With
      End If
   Next lRow
End Sub

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Kopieren

Finden und Kopieren Nur Text in die Zwischenablage kopieren
Kopieren Spalte aus AutofilterTabelle Daten in "Excel-Datenbank" kopieren
Spalten kopieren Komplettes Excel Sheet kopieren mit Formaten
Tab. kopieren & neue Daten in Datenbank einfuegen Inhalte von einer PDF suchen und den Text kopieren
Datensatz kopieren+einfügen - Code verinfachen VBA- aus anderer Mappe kopieren)mit Kriterium)
Datum abfragen und Werte kopieren sverweis klappt nicht ( bei runter kopieren)
Bestimmten Bereich anhand Zeilenabgabe kopieren VBA Suchen, kopieren, einfügen
VBA bestimmte Spalten kopieren Namen der Tabellen kopieren
Finden und kopieren Array in Tabelle kopieren, Verlust von Format
VBA: Kopieren nicht vorhandener Werte Zeile automatisch hoch kopieren
Spalte in andere Dateien kopieren + zurückkopieren kopieren von Zeilen in ein neues Sheet
VBA - Neues Tabellenblatt soll altes kopieren Zeilen in anderes Tabellenblatt kopieren
Daten kopieren mit Bedingung Ordner mit Unterordnern/Dateien kopieren
Gefilterte Tabelle kopieren Daten aus worksheets kopieren
Kopieren wenn Daten aus Excel in andere Software kopieren
Kopieren über 2 Dateien? Formelspalten in viele Tabellenblätter kopieren
2 Dateien Vergleichen und Spalten kopieren? 2 Dateien Vergleichen und Spalten kopieren?
Zeile einfügen, Daten kopieren und transponieren Probleme beim Kopieren Word Tabelle nach Excel
Sheet aus File kopieren und in zig andere einfügen Makro Zelleninhalte kopieren und einfügen
String mit Buchstaben & Zahlen suchen und kopieren Daten zwischen Arbeitsblättern per Makro? kopieren
Format mit VBA kopieren Makro - Selektieren Kopieren und Einfügen
Automatisches Kopieren von Blättern kopieren, sheet benennen, automatisch speichern
Suchen und Kopieren mit Schleife Kopieren und inhalte einfügen Makro
Zelle hochzählen und erhaltenen Wert kopieren Blatt kopieren
Excel schmiert beim Kopieren ab